--- a/LibDBlasL3F77.mod
+++ b/LibDBlasL3F77.mod
@@ -20,7 +20,7 @@
(* $Id: LibDBlasL3F77.mod,v 1.3 2018/09/12 13:20:49 mriedl Exp mriedl $ *)
-FROM LibDBlasL1F77 IMPORT CHAR1,INTEGER4,REAL4,DOUBLEPRECISION,DOUBLECOMPLEX;
+FROM LibDBlasL1F77 IMPORT CHAR1,INTEGER4,REAL4,REAL8,COMPLEX16;
FROM LibDBlasLxF77 IMPORT sgemm_,dgemm_,dgemmomp,dgemmomp2,zgemm_;
@@ -50,13 +50,13 @@
PROCEDURE dgemm( TA : CHAR1;
TB : CHAR1;
M,N,K : INTEGER4;
- Alpha : DOUBLEPRECISION;
- VAR A : ARRAY OF ARRAY OF DOUBLEPRECISION;
+ Alpha : REAL8;
+ VAR A : ARRAY OF ARRAY OF REAL8;
lda : INTEGER4;
- VAR B : ARRAY OF ARRAY OF DOUBLEPRECISION;
+ VAR B : ARRAY OF ARRAY OF REAL8;
ldb : INTEGER4;
- Beta : DOUBLEPRECISION;
- VAR C : ARRAY OF ARRAY OF DOUBLEPRECISION;
+ Beta : REAL8;
+ VAR C : ARRAY OF ARRAY OF REAL8;
ldc : INTEGER4);
(*---------------------------------------------------------------*)
@@ -73,13 +73,13 @@
PROCEDURE dgemmOMP( TA : CHAR1;
TB : CHAR1;
M,N,K : INTEGER4;
- Alpha : DOUBLEPRECISION;
- VAR A : ARRAY OF ARRAY OF DOUBLEPRECISION;
+ Alpha : REAL8;
+ VAR A : ARRAY OF ARRAY OF REAL8;
lda : INTEGER4;
- VAR B : ARRAY OF ARRAY OF DOUBLEPRECISION;
+ VAR B : ARRAY OF ARRAY OF REAL8;
ldb : INTEGER4;
- Beta : DOUBLEPRECISION;
- VAR C : ARRAY OF ARRAY OF DOUBLEPRECISION;
+ Beta : REAL8;
+ VAR C : ARRAY OF ARRAY OF REAL8;
ldc : INTEGER4);
(*---------------------------------------------------------------*)
@@ -99,13 +99,13 @@
PROCEDURE zgemm( TA : CHAR1;
TB : CHAR1;
M,N,K : INTEGER4;
- Alpha : DOUBLECOMPLEX;
- VAR A : ARRAY OF ARRAY OF DOUBLECOMPLEX;
+ Alpha : COMPLEX16;
+ VAR A : ARRAY OF ARRAY OF COMPLEX16;
lda : INTEGER4;
- VAR B : ARRAY OF ARRAY OF DOUBLECOMPLEX;
+ VAR B : ARRAY OF ARRAY OF COMPLEX16;
ldb : INTEGER4;
- Beta : DOUBLECOMPLEX;
- VAR C : ARRAY OF ARRAY OF DOUBLECOMPLEX;
+ Beta : COMPLEX16;
+ VAR C : ARRAY OF ARRAY OF COMPLEX16;
ldc : INTEGER4);
(*---------------------------------------------------------------*)