--- a/LinLib.def
+++ b/LinLib.def
@@ -50,7 +50,7 @@
PROCEDURE BerechneLoesung(VAR A : ARRAY OF ARRAY OF LONGREAL;
VAR X : ARRAY OF LONGREAL;
- C : ARRAY OF LONGREAL;
+ VAR C : ARRAY OF LONGREAL;
VAR RPivot : ARRAY OF LONGREAL;
VAR IndexI : ARRAY OF CARDINAL;
VAR IndexJ : ARRAY OF CARDINAL;
@@ -122,7 +122,6 @@
C : ARRAY OF LONGREAL;
n : CARDINAL; (* Anzahl der Gleichungen, n >= m *)
m : CARDINAL); (* Anzahl der Unbekannten *)
-
(*----------------------------------------------------------------*)
(* Lit.: J.Stoer, 'Einf\"uhrung in die numerische Mathematik 1', *)