--- 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);
 
           (*---------------------------------------------------------------*)