Lines Matching refs:code
1 subroutine localt (global, rlocal, ien, n, code) argument
28 character*8 code local
32 if (code .eq. 'gather ') then
63 if (code .eq. 'scatter ') then
98 if (code .eq. 'globaliz') then
118 call error ('local ', code, 0)
126 subroutine localtSclr (global, rlocal, ien, code) argument
153 character*8 code local
157 if (code .eq. 'gather ') then
186 if (code .eq. 'scatter ') then
219 if (code .eq. 'globaliz') then
237 call error ('local ', code, 0)