Searched refs:num_rstrctd (Results 1 – 8 of 8) sorted by relevance
/dports/devel/ga/ga-5.8/global/testing/ |
H A D | field-test.F | 185 integer num_rstrctd 199 num_rstrctd = nproc/2 200 if (num_rstrctd.eq.0) num_rstrctd = 1 201 do i = 1, num_rstrctd 202 rstrctd_list(i) = (num_rstrctd/2) + i-1 235 call ga_set_restricted(g_a, rstrctd_list, num_rstrctd) 555 integer num_rstrctd 572 num_rstrctd = nproc/2 573 if (num_rstrctd.eq.0) num_rstrctd = 1 574 do i = 1, num_rstrctd [all …]
|
H A D | types-test.F | 182 integer num_rstrctd 196 num_rstrctd = nproc/2 197 if (num_rstrctd.eq.0) num_rstrctd = 1 198 do i = 1, num_rstrctd 199 rstrctd_list(i) = (num_rstrctd/2) + i-1 234 call ga_set_restricted(g_a, rstrctd_list, num_rstrctd) 574 integer num_rstrctd 591 num_rstrctd = nproc/2 592 if (num_rstrctd.eq.0) num_rstrctd = 1 593 do i = 1, num_rstrctd [all …]
|
H A D | pgtest.F | 301 integer num_rstrctd 314 num_rstrctd = nproc/2 315 if (num_rstrctd.eq.0) num_rstrctd = 1 316 do i = 1, num_rstrctd 1194 integer num_rstrctd 1208 num_rstrctd = nproc/2 1209 if (num_rstrctd.eq.0) num_rstrctd = 1 1769 integer num_rstrctd 1783 if (num_rstrctd.eq.0) num_rstrctd = 1 2231 integer num_rstrctd [all …]
|
H A D | test.F | 272 integer num_rstrctd local 292 num_rstrctd = nproc/2 293 if (num_rstrctd.eq.0) num_rstrctd = 1 294 do i = 1, num_rstrctd 1248 integer num_rstrctd local 1263 if (num_rstrctd.eq.0) num_rstrctd = 1 1836 integer num_rstrctd local 1857 if (num_rstrctd.eq.0) num_rstrctd = 1 2466 integer num_rstrctd local 2490 if (num_rstrctd.eq.0) num_rstrctd = 1 [all …]
|
/dports/devel/ga/ga-5.8/global/src/ |
H A D | onesided.c | 1538 if (GA[handle].num_rstrctd > 0) { in pnga_access_ptr() 2304 if (GA[handle].num_rstrctd > 0) in gai_scatter_acc_local() 2424 if (GA[handle].num_rstrctd > 0) { in pnga_scatter2d() 2425 nproc = GA[handle].num_rstrctd; in pnga_scatter2d() 2465 if (GA[handle].num_rstrctd == 0) { in pnga_scatter2d() 2782 if (GA[handle].num_rstrctd > 0) nproc = GA[handle].num_rstrctd; in gai_gatscat() 2821 if (GA[handle].num_rstrctd == 0) { in gai_gatscat() 3400 num_rstrctd = GA[handle].num_rstrctd; in gai_gatscat_new() 3407 if (num_rstrctd > 0) nprocs = num_rstrctd; in gai_gatscat_new() 3535 if (num_rstrctd > 0) { in gai_gatscat_new() [all …]
|
H A D | base.h | 86 C_Integer num_rstrctd; /* number of processors with data */ member 239 if (GA[ga_handle].num_rstrctd == 0) { \ 244 if (proc < GA[ga_handle].num_rstrctd) { \ 401 if (GA[g_handle].num_rstrctd > 0) \
|
H A D | base.c | 763 if (GA[ga_handle].num_rstrctd > 0) { in pnga_locate() 1954 GA[ga_handle].num_rstrctd = size; in pnga_set_restricted() 2002 GA[ga_handle].num_rstrctd = size; in pnga_set_restricted_range() 3629 if (GA[ga_handle].num_rstrctd > 0) { in pnga_distribution() 3737 GA[ga_handle].num_rstrctd = 0; in pnga_duplicate() 3739 GA[ga_handle].num_rstrctd = GA[GA_OFFSET + g_a].num_rstrctd; in pnga_duplicate() 3741 GA[GA_OFFSET + g_a].num_rstrctd); in pnga_duplicate() 3920 if (GA[ga_handle].num_rstrctd > 0) { in pnga_destroy() 3921 GA[ga_handle].num_rstrctd = 0; in pnga_destroy() 4831 if (GA[h_a].num_rstrctd == GA[h_b].num_rstrctd) { in pnga_compare_distr() [all …]
|
H A D | iterator.c | 130 if (GA[g_handle].num_rstrctd == 0) { \ 162 if (GA[g_handle].num_rstrctd == 0) { in gam_LocationF() 320 Integer n_rstrctd = GA[handle].num_rstrctd; in gai_iterator_next() 734 Integer n_rstrctd = GA[handle].num_rstrctd; in gai_iterator_last()
|