--- a/SVDLib1.def
+++ b/SVDLib1.def
@@ -29,9 +29,7 @@
(* Licence : GNU Lesser General Public License (LGPL) *)
(*------------------------------------------------------------------------*)
- (* $Id: SVDLib1.def,v 1.3 2018/08/25 15:04:43 mriedl Exp mriedl $ *)
-
-FROM Deklera IMPORT VEKTOR,MATRIX;
+ (* $Id: SVDLib1.def,v 1.4 2018/08/26 14:25:52 mriedl Exp mriedl $ *)
PROCEDURE PowSVD( M,N : INTEGER;
VAR A : ARRAY OF ARRAY OF LONGREAL;
@@ -393,7 +391,7 @@
VAR A : ARRAY OF ARRAY OF LONGREAL;
VAR D : ARRAY OF LONGREAL;
Nb : INTEGER;
- VAR B : MATRIX;
+ VAR B : ARRAY OF ARRAY OF LONGREAL;
VAR iErr : INTEGER);
(*----------------------------------------------------------------*)
@@ -455,12 +453,12 @@
PROCEDURE BerLsg(VAR M,N : INTEGER;
IP : INTEGER;
- VAR A : MATRIX; (* [1..N,1..N] *)
- VAR A0 : MATRIX; (* [1..M,1..N] *)
- VAR B,B0 : MATRIX; (* [1..M,IP] *)
- VAR X : VEKTOR; (* [1..N] *)
- VAR W : VEKTOR; (* [1..N] *)
- VAR R : VEKTOR; (* [1..M] *)
+ VAR A : ARRAY OF ARRAY OF LONGREAL; (* [1..N,1..N] *)
+ VAR A0 : ARRAY OF ARRAY OF LONGREAL; (* [1..M,1..N] *)
+ VAR B,B0 : ARRAY OF ARRAY OF LONGREAL; (* [1..M,IP] *)
+ VAR X : ARRAY OF LONGREAL; (* [1..N] *)
+ VAR W : ARRAY OF LONGREAL; (* [1..N] *)
+ VAR R : ARRAY OF LONGREAL; (* [1..M] *)
VAR ifR : BOOLEAN);
(*----------------------------------------------------------------*)