INTEGER NPSEUDOTIMESTEPS
& NPSEUDOTIMESTEPS,
IF ( NPSEUDOTIMESTEPS .GT. MPSEUDOTIMESTEPS ) THEN
& MPSEUDOTIMESTEPS, NPSEUDOTIMESTEPS
IF ( NPSEUDOTIMESTEPS.GT.2 ) ipass0 = 1
DO ipass=1,NPSEUDOTIMESTEPS
IF ( ipass .LE. NPSEUDOTIMESTEPS ) THEN
& SOLV_MAX_ITERS, SOLV_NCHECK, NPSEUDOTIMESTEPS,
NPSEUDOTIMESTEPS = 2
NPSEUDOTIMESTEPS = MAX(NPSEUDOTIMESTEPS,2)
CALL WRITE_0D_I ( NPSEUDOTIMESTEPS, INDEX_NONE,