File mttroot/mtt/bin/trans/p/zero_matrix.p artifact 799bc2655a part of check-in 8ac7d4a29a
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;
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;