integer modelintsteps
& modelintsteps,
cal_IntSteps = modelintsteps
modelintsteps = modintsteps
if ( modelintsteps .eq. 0 .and. modeliterend .ne. 0 )
& modelintsteps = modeliterend - modeliter0
if ( modelintsteps .eq. 0 .and. modelend .ne. 0. )
& modelintsteps = int(0.5 + (modelend - modelstart)/modelstep)
if ( modeliterend .eq. 0 .and. modelintsteps .ne. 0 )
& modeliterend = modeliter0 + modelintsteps
if ( modelend .eq. 0. .and. modelintsteps .ne. 0 )
& modelend = modelstart + modelstep*float(modelintsteps)
if ( (modelintsteps .ne. 0) .and.
runtimesecs = float(modelintsteps)*modelstep
else if ( (modelintsteps .eq. 0) .and.
modelintsteps = int(runtimesecs/modelstep)
runtimesecs = modelintsteps*modelstep
modeliterend = modeliter0 + modelintsteps
else if ( modelintsteps .ne. modintsteps) then
laststep = modelintsteps