File mttroot/mtt/bin/trans/p/mtt_update.p artifact c735b97393 part of check-in 69a9eb9cd6
PROCEDURE mtt_update(VAR xnew : StateVector; dx,x : StateVector; DT : REAL; Nx : INTEGER; METHOD : IntegrationMethod); VAR i : INTEGER; BEGIN FOR i := 1 TO Nx DO xnew[i] := xnew[i] + dx[i]*DT; END;