Lines Matching refs:myrank

101       if(myrank == 0) then
138       if(myrank == 0 ) then
180       if(myrank == 0) then
189       color = int(myrank/(numparts/nfiles)) !Should call the color routine in SyncIO here
198       itmp = int(log10(float(myrank+1)))+1
201       if (myrank == 0) then
210       write (fname2,temp1) (myrank+1),'?'
215       write (fname2,temp1) (myrank+1),'?'
221       write (fname2,temp1) (myrank+1),'?'
227       write (fname2,temp1) (myrank+1),'?'
233       write (fname2,temp1) (myrank+1),'?'
239       write (fname2,temp1) (myrank+1),'?'
245       write (fname2,temp1) (myrank+1),'?'
251       write (fname2,temp1) (myrank+1),'?'
257       write (fname2,temp1) (myrank+1),'?'
300       if(myrank == 0) then
313       if (myrank == 0) then
325       itmp = int(log10(float(myrank+1)))+1
327       write (fname1,temp1) (myrank+1),'?'
361          if (myrank.eq.master) then
387         itmp = int(log10(float(myrank+1)))+1
389         write (fname1,temp1) (myrank+1),'?'
405           if(myrank==0) then
417         itmp = int(log10(float(myrank+1)))+1
419         write (fname1,temp1) (myrank+1),'?'
435           if(myrank==0) then
448           itmp = int(log10(float(myrank+1)))+1
453           write (fname1,temp1) iphavg,(myrank+1),'?'
476             if(myrank==0) then
494         itmp = int(log10(float(myrank+1)))+1
496         write (fname1,temp1) (myrank+1),'?'
512           if(myrank==0) then
528         write (fname1,temp1) (myrank+1),'?'
548           if(myrank==0) then
565       if(myrank == 0) then
578       if (myrank == 0) then
590       itmp = int(log10(float(myrank+1)))+1
593        write (fname1,temp1) (myrank+1),'?'
617         write (fname1,temp1) (myrank+1),'?'
662       if(myrank == 0) then
682       if(myrank.eq.0) then
693           if(myrank == i) then
694             write(*,926) myrank, (icountN(j),j=1,irankN)
704       if(myrank == 0) then
721      &                 myrank
735         if(myrank.eq.0) write(*,*) 'Writing maxvID on each of N ranks'
736         if(myrank.eq.0) write(*,926) (maxvIDout(j),j=1,irankN)
749       if(myrank == 0) then
753       if(myrank.lt.irankN) then
754         nshgN=maxvIDout(myrank+1) ! number of vtx on my part computed above
808       if(myrank == 0) then
828           if (myrank == irN) then
851 …  if (myrank == irN .and. myrank == irM) then ! no need to send the data. Already there so get them
897               if(myrank == irN) then 
963               elseif(myrank == irM) then ! rank irM sends data to rank irN
1045           if (myrank == irN) then
1126             fnamer = trim(fnamer) // cname2(myrank+1)
1204       if(myrank == 0) then
1256           l=myrank+1                ! help me find my mapped files 
1396       if(myrank == 0) then
1421       call Write_M2N_SolOnly(myrank,irankN,lstep,nshgN,ndof,qoldN)
1425         call Write_M2N_Field(myrank,irankN,'a','ybar',4,ybarN,'d',
1431         call Write_M2N_Field(myrank,irankN,'a','errors',6,errorsN,'d',
1438           call write_M2N_phavg2(myrank,irankN,'a','phase_average',13,
1446         call Write_M2N_Field(myrank,irankN,'a','vorticity',9,
1452         call Write_M2N_Field(myrank,irankN,'a','dwal',4,dwalN,'d',