SQLITE_NOTICE(283): recovered 5 frames from WAL file /data/mtt.fossil-wal

File mttroot/mtt/bin/trans/p/zeros.p artifact e8ec334d34 part of check-in adbb1b266e

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;