Lines Matching refs:myrank
77 if(myrank == 0) then
103 if(myrank == 0 ) then
165 color = int(myrank/(numparts/nfiles))
191 write(*,*)myrank,timestep,nfiles,numparts,trim(adjustl(fnamer))
198 if (myrank == 0) then
211 itmp = int(log10(float(myrank+1)))+1
213 write (fname1,temp1) (myrank+1),'?'
225 & in AcuStat_input',myrank
248 write (fname1,temp1) (myrank+1),'?'
259 & in AcuStat_input',myrank
282 itmp = int(log10(float(myrank+1)))+1
290 write (fname1,temp1) iphavg,(myrank+1),'?'
293 if(myrank == 0 .or. myrank == numpe-1) then
294 write(*,*)'Rank: ',myrank,'- phase: ',
307 & in AcuStat_input',myrank
336 itmp = int(log10(float(myrank+1)))+1
338 write (fname1,temp1) (myrank+1),'?'
359 & in AcuStat_input',myrank
368 write (fname1,temp1) (myrank+1),'?'
386 & in AcuStat_input',myrank
396 write (fname1,temp1) (myrank+1),'?'
413 & in AcuStat_input',myrank
451 call Write_AcuStat(myrank, tablets(1,1), tablets(numts,1),
455 call write_field(myrank,'a','vorticity',9,qvorticity,
460 call write_error(myrank, tablets(numts,1), nshg2, ndoferrors,
464 call write_field(myrank,'a', 'ybar', 4,
469 call write_phavg2(myrank,'a','phase_average',13,iphavg,
476 call write_field(myrank, 'a', 'dwal', 4, dwal,