Lines Matching refs:lstep
115 write(fvarts, "('./varts/varts.', I0, '.dat')") lstep
124 call MC_init(Delt, lstep, BC)
152 call BC_init(Delt, lstep, BC) !Note: sets BC_enable
356 if(itvn.gt.0) call BCint((lstep+1)*Delt(1), shp, shgl,
663 lstep = lstep + 1
689 if(mod(lstep,ntout).eq.0 ) call MC_writeState(lstep)
700 if(mod(lstep, ntout) == 0) call BC_writePhase(lstep)
762 & mod(lstep, ntout) == 0 .or. !Checkpoint
769 if(ntout.le.lstep) then ! user also wants file output
841 call MC_writeState(lstep)
852 if(mod(lstep, ntout) /= 0) then !May have already written file.
853 call BC_writePhase(lstep)
881 if( (mod(lstep, ntout) .eq. 0) .and.
901 & d2wall,'d'//char(0), nshg, 1, lstep)
907 & ybar,'d'//char(0),nshg,ndof+8,lstep)
919 & rerr, 'd'//char(0), nshg, 10, lstep)