Lines Matching refs:istep
153 istep = 0
300 & 'stopjob,lstep,istep', stopjob,lstep,istep
310 istep=nstp ! have to do this so that solution will be written
520 istep = istep + 1
542 & istep.eq.nstep(itseq)) then
564 write(*,*) 'istep,nstep,irs',istep,nstep(itseq),irs
645 & istep.eq.nstep(itseq)) then
1110 & (istep .eq. nstep(1)))) .and.
1139 if(istep.eq.1) then
1144 if(istep.eq.1) then
1153 & (istep .eq. nstep(1)))) .and.
1265 call RCRint(istep,PdistIni) !get initial distal P (use istep)
1715 & istep+1.eq.nstep(itseq) .or. ioybar == 1) then
1868 & istep.gt.ncycles_startphaseavg*nstepsincycle) then
1870 if((istep-1).eq.ncycles_startphaseavg*nstepsincycle)
1934 & istep.gt.ncycles_startphaseavg*nstepsincycle) then
1937 if((istep-1).eq.ncycles_startphaseavg*nstepsincycle)
1942 if(mod(istep-1,nstepsincycle).eq.0) then
1948 istepincycle = mod(istep,nstepsincycle)