--- a/F77func.def
+++ b/F77func.def
@@ -8,10 +8,13 @@
   (* Licence        : GNU Lesser General Public License (LGPL)              *)
   (*------------------------------------------------------------------------*)
 
-  (* $Id: F77func.def,v 1.3 2017/07/24 08:47:52 mriedl Exp mriedl $ *)
+  (* $Id: F77func.def,v 1.4 2018/07/08 08:39:09 mriedl Exp mriedl $ *)
 
-TYPE  REAL8    = LONGREAL; (* F77 DOUBLE PRECISION / REAL (kind=dp), dp=8   *)
-      INTEGER4 = INTEGER;  (* F77 INTEGER (32 Bit)                          *)
+IMPORT LibDBlasL1F77;
+
+TYPE  INTEGER4  = LibDBlasL1F77.INTEGER4;
+      REAL8     = LibDBlasL1F77.REAL8;
+      COMPLEX16 = LibDBlasL1F77.COMPLEX16;
 
 PROCEDURE DSIGN(a,b : REAL8) : REAL8;
 
@@ -50,6 +53,12 @@
           (* FORTRAN DINT-Funktion (Abschneiden des Nachkommaanteils).      *)
           (*----------------------------------------------------------------*)
 
+PROCEDURE NINT(x : LONGREAL) : INTEGER;
+
+          (*----------------------------------------------------------------*)
+          (* FORTRAN NINT-Funktion (rundet zur naechstliegende Ganzzahl)    *)
+          (*----------------------------------------------------------------*)
+
 PROCEDURE IAND(a,b : INTEGER) : INTEGER;
 
           (*----------------------------------------------------------------*)