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;