|
a/F77func.def |
|
b/F77func.def |
|
... |
|
... |
| 6 |
(*------------------------------------------------------------------------*)
|
6 |
(*------------------------------------------------------------------------*)
|
| 7 |
(* Implementation : Michael Riedl *)
|
7 |
(* Implementation : Michael Riedl *)
|
| 8 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
8 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
| 9 |
(*------------------------------------------------------------------------*)
|
9 |
(*------------------------------------------------------------------------*)
|
| 10 |
|
10 |
|
| 11 |
(* $Id: F77func.def,v 1.3 2017/07/24 08:47:52 mriedl Exp mriedl $ *)
|
11 |
(* $Id: F77func.def,v 1.4 2018/07/08 08:39:09 mriedl Exp mriedl $ *)
|
| 12 |
|
12 |
|
| 13 |
TYPE REAL8 = LONGREAL; (* F77 DOUBLE PRECISION / REAL (kind=dp), dp=8 *)
|
13 |
IMPORT LibDBlasL1F77;
|
| 14 |
INTEGER4 = INTEGER; (* F77 INTEGER (32 Bit) *)
|
14 |
|
|
|
15 |
TYPE INTEGER4 = LibDBlasL1F77.INTEGER4;
|
|
|
16 |
REAL8 = LibDBlasL1F77.REAL8;
|
|
|
17 |
COMPLEX16 = LibDBlasL1F77.COMPLEX16;
|
| 15 |
|
18 |
|
| 16 |
PROCEDURE DSIGN(a,b : REAL8) : REAL8;
|
19 |
PROCEDURE DSIGN(a,b : REAL8) : REAL8;
|
| 17 |
|
20 |
|
| 18 |
(*----------------------------------------------------------------*)
|
21 |
(*----------------------------------------------------------------*)
|
| 19 |
(* FORTRAN DSIGN-Funktion (Vorzeichentransfer). Wenn b >= 0 wird *)
|
22 |
(* FORTRAN DSIGN-Funktion (Vorzeichentransfer). Wenn b >= 0 wird *)
|
|
... |
|
... |
| 48 |
|
51 |
|
| 49 |
(*----------------------------------------------------------------*)
|
52 |
(*----------------------------------------------------------------*)
|
| 50 |
(* FORTRAN DINT-Funktion (Abschneiden des Nachkommaanteils). *)
|
53 |
(* FORTRAN DINT-Funktion (Abschneiden des Nachkommaanteils). *)
|
| 51 |
(*----------------------------------------------------------------*)
|
54 |
(*----------------------------------------------------------------*)
|
| 52 |
|
55 |
|
|
|
56 |
PROCEDURE NINT(x : LONGREAL) : INTEGER;
|
|
|
57 |
|
|
|
58 |
(*----------------------------------------------------------------*)
|
|
|
59 |
(* FORTRAN NINT-Funktion (rundet zur naechstliegende Ganzzahl) *)
|
|
|
60 |
(*----------------------------------------------------------------*)
|
|
|
61 |
|
| 53 |
PROCEDURE IAND(a,b : INTEGER) : INTEGER;
|
62 |
PROCEDURE IAND(a,b : INTEGER) : INTEGER;
|
| 54 |
|
63 |
|
| 55 |
(*----------------------------------------------------------------*)
|
64 |
(*----------------------------------------------------------------*)
|
| 56 |
(* Returns the bitwise logical AND of a and b (set intersection) *)
|
65 |
(* Returns the bitwise logical AND of a and b (set intersection) *)
|
| 57 |
(*----------------------------------------------------------------*)
|
66 |
(*----------------------------------------------------------------*)
|