Artifact e910ee9cd2f403575f0f0758efec6240a4c9a91c948d99abfac2016b002b45f5:

• Executable file mttroot/mtt/bin/trans/p/zero_vector.p — part of check-in [34e5e7402c] at 1998-08-15 13:47:36 on branch origin/master — Initial revision (user: gawthrop@users.sourceforge.net, size: 134) [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;