File mttroot/mtt/bin/trans/p/zeros.p artifact e8ec334d34 part of check-in 73cb1329cb
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;
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;