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