PARAMETER (MPSEUDOTIMESTEPS=2)
INTEGER MPSEUDOTIMESTEPS, NPSEUDOTIMESTEPS
IF ( NPSEUDOTIMESTEPS .GT. MPSEUDOTIMESTEPS ) THEN
& MPSEUDOTIMESTEPS, NPSEUDOTIMESTEPS
DO ipseudo=1,MPSEUDOTIMESTEPS