--- a/LibDBlasL3F77.def
+++ b/LibDBlasL3F77.def
@@ -10,7 +10,7 @@
(* $Id: LibDBlasL3F77.def,v 1.2 2018/09/12 13:20:06 mriedl Exp $ *)
-FROM LibDBlasL1F77 IMPORT INTEGER4,REAL4,DOUBLEPRECISION,DOUBLECOMPLEX;
+FROM LibDBlasL1F77 IMPORT INTEGER4,REAL4,REAL8,COMPLEX16;
PROCEDURE sgemm( TA : CHAR;
TB : CHAR;
@@ -33,13 +33,13 @@
PROCEDURE dgemm( TA : CHAR;
TB : CHAR;
M,N,K : INTEGER4;
- Alpha : DOUBLEPRECISION;
- VAR A : ARRAY OF ARRAY OF DOUBLEPRECISION;
+ Alpha : REAL8;
+ VAR A : ARRAY OF ARRAY OF REAL8;
lda : INTEGER;
- VAR B : ARRAY OF ARRAY OF DOUBLEPRECISION;
+ VAR B : ARRAY OF ARRAY OF REAL8;
ldb : INTEGER;
- Beta : DOUBLEPRECISION;
- VAR C : ARRAY OF ARRAY OF DOUBLEPRECISION;
+ Beta : REAL8;
+ VAR C : ARRAY OF ARRAY OF REAL8;
ldc : INTEGER);
(*---------------------------------------------------------------*)
@@ -54,13 +54,13 @@
PROCEDURE dgemmOMP( TA : CHAR;
TB : CHAR;
M,N,K : INTEGER4;
- Alpha : DOUBLEPRECISION;
- VAR A : ARRAY OF ARRAY OF DOUBLEPRECISION;
+ Alpha : REAL8;
+ VAR A : ARRAY OF ARRAY OF REAL8;
lda : INTEGER;
- VAR B : ARRAY OF ARRAY OF DOUBLEPRECISION;
+ VAR B : ARRAY OF ARRAY OF REAL8;
ldb : INTEGER;
- Beta : DOUBLEPRECISION;
- VAR C : ARRAY OF ARRAY OF DOUBLEPRECISION;
+ Beta : REAL8;
+ VAR C : ARRAY OF ARRAY OF REAL8;
ldc : INTEGER);
(*---------------------------------------------------------------*)
@@ -81,13 +81,13 @@
PROCEDURE zgemm( TA : CHAR;
TB : CHAR;
M,N,K : INTEGER4;
- Alpha : DOUBLECOMPLEX;
- VAR A : ARRAY OF ARRAY OF DOUBLECOMPLEX;
+ Alpha : COMPLEX16;
+ VAR A : ARRAY OF ARRAY OF COMPLEX16;
lda : INTEGER;
- VAR B : ARRAY OF ARRAY OF DOUBLECOMPLEX;
+ VAR B : ARRAY OF ARRAY OF COMPLEX16;
ldb : INTEGER;
- Beta : DOUBLECOMPLEX;
- VAR C : ARRAY OF ARRAY OF DOUBLECOMPLEX;
+ Beta : COMPLEX16;
+ VAR C : ARRAY OF ARRAY OF COMPLEX16;
ldc : INTEGER);
(*---------------------------------------------------------------*)