ADDED   mttroot/mtt/bin/trans/p/zeros.p
Index: mttroot/mtt/bin/trans/p/zeros.p
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/p/zeros.p
@@ -0,0 +1,11 @@
+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;
+
+