Artifact 51fb965f2cac334feeb7477f35ebf4b07625fff250c3f7a9cda8d9a37ac6b60f:

• Executable file mtt/bin/trans/p/zero_vector.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: 135) [annotate] [blame] [check-ins using] [more...]
• Executable file mttroot/mtt/bin/trans/p/zero_vector.p — part of check-in [d4b62ce12f] at 1999-04-20 06:18:57 on branch origin/master — = to := (user: gawthrop@users.sourceforge.net, size: 135) [annotate] [blame] [check-ins using]

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