--- a/LibDBlasL2F77.mod
+++ b/LibDBlasL2F77.mod
@@ -18,19 +18,19 @@
(* $Id: LibDBlasL2F77.mod,v 1.1 2018/09/12 13:20:49 mriedl Exp mriedl $ *)
-FROM LibDBlasL1F77 IMPORT CHAR1,INTEGER4,DOUBLEPRECISION,DOUBLECOMPLEX;
+FROM LibDBlasL1F77 IMPORT CHAR1,INTEGER4,REAL8,COMPLEX16;
FROM LibDBlasLxF77 IMPORT dgemv_,zgemv_;
IMPORT LibDBlasM2;
PROCEDURE dgemv( Trans : CHAR1;
M,N : INTEGER4;
- Alpha : DOUBLEPRECISION;
- VAR A : ARRAY OF ARRAY OF DOUBLEPRECISION;
+ Alpha : REAL8;
+ VAR A : ARRAY OF ARRAY OF REAL8;
lda : INTEGER4;
- VAR X : ARRAY OF DOUBLEPRECISION;
+ VAR X : ARRAY OF REAL8;
IncX : INTEGER4;
- Beta : DOUBLEPRECISION;
- VAR Y : ARRAY OF DOUBLEPRECISION;
+ Beta : REAL8;
+ VAR Y : ARRAY OF REAL8;
IncY : INTEGER4);
(*---------------------------------------------------------------*)
@@ -48,13 +48,13 @@
PROCEDURE zgemv( Trans : CHAR1;
M,N : INTEGER4;
- Alpha : DOUBLECOMPLEX;
- VAR A : ARRAY OF ARRAY OF DOUBLECOMPLEX;
+ Alpha : COMPLEX16;
+ VAR A : ARRAY OF ARRAY OF COMPLEX16;
lda : INTEGER4;
- VAR X : ARRAY OF DOUBLECOMPLEX;
+ VAR X : ARRAY OF COMPLEX16;
IncX : INTEGER4;
- Beta : DOUBLECOMPLEX;
- VAR Y : ARRAY OF DOUBLECOMPLEX;
+ Beta : COMPLEX16;
+ VAR Y : ARRAY OF COMPLEX16;
IncY : INTEGER4);
(*---------------------------------------------------------------*)