Artifact e67a8f85382b2ee3212e28712e069b9c77b57cc30e7710152cf34691e9ecf23e:

• Executable file mtt/bin/trans/p/zero_state.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: 133) [annotate] [blame] [check-ins using] [more...]
• Executable file mttroot/mtt/bin/trans/p/zero_state.p — part of check-in [773866be10] at 1999-08-02 13:39:27 on branch origin/master — Initial revision (user: gawthrop@users.sourceforge.net, size: 133) [annotate] [blame] [check-ins using]

PROCEDURE zero_state(VAR x : StateVector;
			 N : INTEGER);
VAR i : INTEGER;
   
BEGIN
   FOR i:=1 TO N DO
      x[i] := 0.0;
END;