Lines Matching refs:myrank

74       if(myrank == 0) then 
109       if(myrank == 0 ) then
152       if(myrank == 0) then
164       color = int(myrank/(numparts/nfiles)) !Should call the color routine in SyncIO here
173       itmp = int(log10(float(myrank+1)))+1
176       if (myrank == 0) then
185       write (fname2,temp1) (myrank+1),'?'
190       write (fname2,temp1) (myrank+1),'?'
196       write (fname2,temp1) (myrank+1),'?'
202       write (fname2,temp1) (myrank+1),'?'
208       write (fname2,temp1) (myrank+1),'?'
214       write (fname2,temp1) (myrank+1),'?'
220       write (fname2,temp1) (myrank+1),'?'
226       write (fname2,temp1) (myrank+1),'?'
232       write (fname2,temp1) (myrank+1),'?'
247       if (myrank == master) then
280       if(myrank == 0) then
300       if (myrank == 0) then
314       itmp = int(log10(float(myrank+1)))+1
316       write (fname1,temp1) (myrank+1),'?'
337      &                //' on rank', myrank, ' :',nshg,nshg2,
349          if (myrank.eq.master) then
369         itmp = int(log10(float(myrank+1)))+1
371         write (fname1,temp1) (myrank+1),'?'
402         write (fname1,temp1) (myrank+1),'?'
420           if(myrank==0) then
434           itmp = int(log10(float(myrank+1)))+1
439           write (fname1,temp1) iphavg,(myrank+1),'?'
464             if(myrank==0) then
482         itmp = int(log10(float(myrank+1)))+1
484         write (fname1,temp1) (myrank+1),'?'
504           if(myrank==0) then
518         write (fname1,temp1) (myrank+1),'?'
540           if(myrank==0) then
558         if(myrank == 0) then
562         color = int(myrank/(numparts/nfiles)) !Should call the color routine in SyncIO here
571         itmp = int(log10(float(myrank+1)))+1
574         if (myrank == 0) then
583         write (fname2,temp1) (myrank+1),'?'
588         write (fname2,temp1) (myrank+1),'?'
615       if(myrank == 0) then
671       if (myrank == 0) then
682         if (myrank == 0) then
686       if (myrank == 0) then
697           if (myrank == 0) then
701         if (myrank == 0) then
713           if (myrank == 0) then
717         if (myrank == 0) then
730             if (myrank == 0) then
735           if (myrank == 0) then
748           if (myrank == 0) then
752         if (myrank == 0) then
763         if (myrank == 0) then
776       if(myrank == 0) then
785       call Write_M2NFixBnd_SolOnly(myrank, lstep, nshg, 
791         call Write_Field(myrank,'a','ybar',4,ybar,'d',
798         call Write_Field(myrank,'a','errors',6,errors,'d',
806           call write_phavg2(myrank,'a','phase_average',13,
815         call Write_Field(myrank,'a','vorticity',9,vort,'d',
822         call Write_Field(myrank,'a','dwal',4,dwal,'d',