Artifact e8ec334d34039c071af2b92dc5aff97c00f6dfd67bfbbdbd897aa40ba5e7bfe4:

• Executable file mtt/bin/trans/p/zeros.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: 153) [annotate] [blame] [check-ins using] [more...]
• Executable file mttroot/mtt/bin/trans/p/zeros.p — part of check-in [474c15ca50] at 1998-07-30 11:27:33 on branch origin/master — Initial revision (user: gawthrop@users.sourceforge.net, size: 153) [annotate] [blame] [check-ins using]

PROCEDURE zeros(VAR A	: StateMatrix;
		    N	: INTEGER);
VAR i,j	:  INTEGER;
   
BEGIN
   FOR i:=1 TO N DO
      FOR j:=1 TO N DO
	 A[i,j] = 0.0;
END;