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