Lines Matching refs:code
1 subroutine local (global, rlocal, ientmp, n, code) argument
26 character*8 code local
39 if (code .eq. 'gather ') then
63 if (code .eq. 'scatter ') then
89 if (code .eq. 'globaliz') then
108 call error ('local ', code, 0)
114 subroutine localx (global, rlocal, ien, n, code) argument
139 character*8 code local
143 if (code .eq. 'gather ') then
166 if (code .eq. 'scatter ') then
194 call error ('local ', code, 0)
389 subroutine localb (global, rlocal, ientmp, n, code) argument
414 character*8 code local
427 if (code .eq. 'gather ') then
456 if (code .eq. 'scatter ') then
487 if (code .eq. 'globaliz') then
507 call error ('local ', code, 0)