|
a/TestReal.def |
|
b/TestReal.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: TestReal.def,v 1.1 2015/09/13 20:48:41 mriedl Exp mriedl $ *)
|
11 |
(* $Id: TestReal.def,v 1.2 2018/06/08 21:38:43 mriedl Exp mriedl $ *)
|
12 |
|
12 |
|
13 |
PROCEDURE Real4INF() : REAL;
|
13 |
PROCEDURE Real4INF() : REAL;
|
14 |
|
14 |
|
15 |
(*---------------------------------------------------------------*)
|
15 |
(*---------------------------------------------------------------*)
|
16 |
(* Return INF for REAL*4 according to IEEE 754 *)
|
16 |
(* Return INF for REAL*4 according to IEEE 754 *)
|