--- a/SMatEA.def
+++ b/SMatEA.def
@@ -418,4 +418,13 @@
(* ist die Ausgabe nicht sauber formatiert. *)
(*----------------------------------------------------------------*)
+PROCEDURE WrMatConst( Aus : Stream;
+ 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 SMatEA.