Lines Matching defs:img
204 integer :: img, nimgs, i[*], tmp
206 img = this_image()
208 i = img ! i is ready to use
210 if ( img .eq. 1 ) then
212 sync images( nimgs ) ! explicit sync 1 with last img
215 sync images( nimgs ) ! explicit sync 2 with last img
219 if ( img .eq. nimgs ) then
221 sync images( 1 ) ! explicit sync 1 with img 1
224 sync images( 1 ) ! explicit sync 2 with img 1
228 write (*,*) img, i