Artifact 799bc2655a84551a4e25ab93d71fb760f170c79400aa07e32cfe77e502a50878:


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;




MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]