Lines Matching refs:myrank
38 if (myrank == master)
53 if (myrank == master) then
80 if (myrank == master) then
108 if (mod(i,50).eq.1 .and. myrank .eq. master)
111 if (myrank .eq. master)
121 if (mod(i,50).eq.1 .and. myrank .eq. master)
123 if (myrank .eq. master)
130 if (myrank .eq. master)
134 if (myrank .eq. master) then
138 if (iLSet .gt. 0 .and. myrank .eq. master)then
183 if(myrank.eq.0) write(*,*) 'input.f computes Rgas to be', Rgas
199 if(myrank.eq.-1) then
203 write (23,*) master, numpe, myrank