Lines Matching refs:myrank
118 if(myrank .eq. master) then
136 if (myrank .eq. master) then
283 if(myrank.eq.master) then
291 if(myrank.eq.master) then
449 if (myrank .eq. master)
473 … if(myrank.eq.0) write(*,*) 'exiting because run time input asked for PETSc, not linked in exec'
601 if((irscale.ge.0).and.(myrank.eq.master)) then
637 if(myrank.eq.master) write(*,*) 'istop =', istop
654 if((irscale.ge.0).and.(myrank.eq.master)) then
790 if(myrank.eq.master) then
836 if (myrank .eq. master) then
900 call write_field(myrank,'a'//char(0),'dwal'//char(0),4,
906 call write_field(myrank,'a'//char(0),'ybar'//char(0),4,
918 call write_field( myrank, 'a'//char(0), 'errors'//char(0), 6,