Artifact 799bc2655a84551a4e25ab93d71fb760f170c79400aa07e32cfe77e502a50878:

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

PROCEDURE zero_matrix(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;