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