|
a/LMathLib.def |
|
b/LMathLib.def |
|
... |
|
... |
| 347 |
|
347 |
|
| 348 |
(*----------------------------------------------------------------*)
|
348 |
(*----------------------------------------------------------------*)
|
| 349 |
(* Berechne d. Maschinengenauigkeit / calculate machine precision *)
|
349 |
(* Berechne d. Maschinengenauigkeit / calculate machine precision *)
|
| 350 |
(*----------------------------------------------------------------*)
|
350 |
(*----------------------------------------------------------------*)
|
| 351 |
|
351 |
|
|
|
352 |
PROCEDURE SmallR4() : LONGREAL;
|
|
|
353 |
|
|
|
354 |
(*----------------------------------------------------------------*)
|
|
|
355 |
(* Berechne eine kleine REAL4 - Zahl / calculate small real value *)
|
|
|
356 |
(*----------------------------------------------------------------*)
|
|
|
357 |
|
| 352 |
END LMathLib.
|
358 |
END LMathLib.
|