--- a/FMatEA.def
+++ b/FMatEA.def
@@ -433,4 +433,13 @@
(* ist die Ausgabe nicht sauber formatiert. *)
(*----------------------------------------------------------------*)
+PROCEDURE WrMatConst( Aus : File;
+ M,N : CARDINAL;
+ VAR A : ARRAY OF ARRAY OF LONGREAL);
+
+ (*----------------------------------------------------------------*)
+ (* Schreibe eine kleine Matrix so aus dass sie im Quelltext als *)
+ (* Konstante eingebunden werden kann. *)
+ (*----------------------------------------------------------------*)
+
END FMatEA.