INTEGER MPSEUDOTIMESTEPS
PARAMETER (MPSEUDOTIMESTEPS=2)
IF ( NPSEUDOTIMESTEPS .GT. MPSEUDOTIMESTEPS ) THEN
& MPSEUDOTIMESTEPS, NPSEUDOTIMESTEPS
DO ipass=1,MPSEUDOTIMESTEPS
itmpkey = (ikey_dynamics-1)*MPSEUDOTIMESTEPS + ipass