call WRITE_0D_I( modeliterend, INDEX_NONE,
modeliterend = moditerend
if ( modelintsteps .eq. 0 .and. modeliterend .ne. 0 )
& modelintsteps = modeliterend - modeliter0
if ( modeliterend .eq. 0 .and. modelintsteps .ne. 0 )
& modeliterend = modeliter0 + modelintsteps
if ( modeliterend .eq. 0 .and. modelend .ne. 0. )
& modeliterend = int(0.5 + modelend/modelstep)
if ( modelend .eq. 0. .and. modeliterend .ne. 0 )
& modelend = modelstep*float(modeliterend)
modeliterend = modeliter0 + modelintsteps
else if ( modeliterend .ne. moditerend ) then
integer modeliterend
& modeliterend,