Artifact 6de6bf5883bf1f68da93a53b09732c676a2997d0eaf0f74d4e5a868f457762ba:

• Executable file mtt/bin/trans/p/mtt_euler.p — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 312) [annotate] [blame] [check-ins using] [more...]
• Executable file mttroot/mtt/bin/trans/p/mtt_euler.p — part of check-in [fc9fb284e3] at 1999-04-20 06:18:27 on branch origin/master — Initial revision (user: gawthrop@users.sourceforge.net, size: 312) [annotate] [blame] [check-ins using]

PROCEDURE mtt_euler(VAR x_out, x,dx : StateVector;
			dt	    : REAL;
			Nx	    : INTEGER;
			Open	    : StateVector);

VAR i : INTEGER;
   
BEGIN{mtt_euler}
   FOR i := 1 TO Nx DO
   BEGIN
      IF Open[i]>0.5 THEN{Open switch}
	 x_out[i] := 0.0
      ELSE
	 x_out[i] := x[i] + dx[i]*dt;
   END;
END;{mtt_euler}