--- a/LibDBlas.def
+++ b/LibDBlas.def
@@ -6,7 +6,7 @@
(* Some level 1 BLAS routines implemented in Modula-2 pathing the *)
(* arguments in a "Fortran manner". *)
(*------------------------------------------------------------------------*)
- (* Fortran and "C" sometime a array element is passed to an open array *)
+ (* In Fortran and "C" sometime a array element is passed to an open array *)
(* field which is not how it works Modula-2 and Oberon. *)
(* The routines can be used as an alternative to those provided in Module *)
(* "LibDBlasM2". They are doing some (ugly) address translation and can *)
@@ -40,7 +40,7 @@
(* Hinweis: *)
(* ======== *)
(* Bei den BLAS-Routinen werden Vektoren (ARRAY OF FLOAT) nur als "FLOAT" *)
- (* uebergeben. Dies entspricht der benutzung innerhalb von Fortran- *)
+ (* uebergeben. Dies entspricht der Benutzung innerhalb von Fortran- *)
(* Routinen. Die Adressen werden innehalb der Routinen dann als offene *)
(* Felder genutzt. Eine Ueberpruefung von Indizes kann so leider nicht *)
(* stattfinden. *)
@@ -94,20 +94,20 @@
incY : INTEGER;
c,s : FLOAT);
- (*---------------------------------------------------------------*)
- (* Applies a plane rotation. *)
- (* Jack Dongarra, linpack, 3/11/78. *)
- (*---------------------------------------------------------------*)
+ (*----------------------------------------------------------------*)
+ (* Applies a plane rotation. *)
+ (* Jack Dongarra, linpack, 3/11/78. *)
+ (*----------------------------------------------------------------*)
PROCEDURE drotg(VAR da : FLOAT;
VAR db : FLOAT;
VAR c : FLOAT;
VAR s : FLOAT);
- (*---------------------------------------------------------------*)
- (* Construct a Givens plane rotation *)
- (* Jack Dongarra, linpack, 3/11/78. *)
- (*---------------------------------------------------------------*)
+ (*----------------------------------------------------------------*)
+ (* Construct a Givens plane rotation *)
+ (* Jack Dongarra, linpack, 3/11/78. *)
+ (*----------------------------------------------------------------*)
PROCEDURE dscal( n : INTEGER;
da : FLOAT;
@@ -426,8 +426,8 @@
(* matrix op( A ) and the number of rows of the matrix *)
(* op( B ). K must be at least zero. *)
(* Alpha : On entry, Alpha specifies the scalar alpha. *)
- (* A : LONGREAL array of DIMENSION ( LDA, ka ), where ka is *)
- (* k when TransA = 'N' or 'n', and is m otherwise. *)
+ (* A : LONGCOMPLEX array of DIMENSION ( LDA, ka ), where ka *)
+ (* is k when TransA = 'N' or 'n', and is m otherwise. *)
(* Before entry with TransA = 'N' or 'n', the leading *)
(* m by k part of the array A must contain the matrix *)
(* A, otherwise the leading k by m part of the array *)
@@ -437,7 +437,7 @@
(* declared in the calling (sub) program. When TransA = *)
(* 'N' or 'n' then LDA must be at least max( 1, m ), *)
(* otherwise LDA must be at least max( 1, k ). *)
- (* B : LONGREAL array of DIMENSION ( LDB, kb ), *)
+ (* B : LONGCOMPLEX array of DIMENSION ( LDB, kb ), *)
(* where kb is n when TransB = 'N' or 'n', and is k *)
(* otherwise. Before entry with TransB = 'N' or 'n', *)
(* the leading k by n part of the array B must *)
@@ -450,7 +450,7 @@
(* otherwise LDB must be at least max( 1, n ). *)
(* Beta : On entry, Beta specifies the scalar beta. When Beta *)
(* is supplied as zero then C need not be set on input. *)
- (* C : LONGREAL array of DIMENSION ( LDC, n ). *)
+ (* C : LONGCOMPLEX array of DIMENSION ( LDC, n ). *)
(* Before entry, the leading m by n part of the array *)
(* C must contain the matrix C, except when beta is *)
(* zero, in which case C need not be set on entry. *)