|
a/F77func.def |
|
b/F77func.def |
|
... |
|
... |
48 |
|
48 |
|
49 |
(*----------------------------------------------------------------*)
|
49 |
(*----------------------------------------------------------------*)
|
50 |
(* FORTRAN DINT-Funktion (Abschneiden des Nachkommaanteils). *)
|
50 |
(* FORTRAN DINT-Funktion (Abschneiden des Nachkommaanteils). *)
|
51 |
(*----------------------------------------------------------------*)
|
51 |
(*----------------------------------------------------------------*)
|
52 |
|
52 |
|
|
|
53 |
PROCEDURE IAND(a,b : INTEGER) : INTEGER;
|
|
|
54 |
|
|
|
55 |
(*----------------------------------------------------------------*)
|
|
|
56 |
(* Returns the bitwise logical AND of a and b (set intersection) *)
|
|
|
57 |
(*----------------------------------------------------------------*)
|
|
|
58 |
|
|
|
59 |
PROCEDURE IOR(a,b : INTEGER) : INTEGER;
|
|
|
60 |
|
|
|
61 |
(*----------------------------------------------------------------*)
|
|
|
62 |
(* Returns the bitwise boolean inclusive OR of a and b *)
|
|
|
63 |
(* (set union) *)
|
|
|
64 |
(*----------------------------------------------------------------*)
|
|
|
65 |
|
|
|
66 |
PROCEDURE IEOR(a,b : INTEGER) : INTEGER;
|
|
|
67 |
|
|
|
68 |
(*----------------------------------------------------------------*)
|
|
|
69 |
(* Returns the bitwise boolean exclusive OR of a and b *)
|
|
|
70 |
(* (symmetric set difference) *)
|
|
|
71 |
(*----------------------------------------------------------------*)
|
|
|
72 |
|
53 |
PROCEDURE D1Mach (i: INTEGER): LONGREAL;
|
73 |
PROCEDURE D1Mach (i: INTEGER): LONGREAL;
|
54 |
|
74 |
|
55 |
(*----------------------------------------------------------------*)
|
75 |
(*----------------------------------------------------------------*)
|
56 |
(* D1Mach liefert verschiende Maschinenkonstanten *)
|
76 |
(* D1Mach liefert verschiende Maschinenkonstanten *)
|
57 |
(* *)
|
77 |
(* *)
|