| 123456789101112131415161718192021222324252627282930 |
- DEFINITION MODULE NumTypes;
- (*
- * REPERTOIRE
- * Release 1.6
- * By Charles Bradford and Cole Brecheen
- * (c) Copyright 1985-1990 PMI
- * Portland, Oregon
- * All rights reserved
- * (503) 236-1788
- *
- * $Header: D:/logfiles/masters/numtdef.jpv 1.1 03 Dec 1990 22:49:28 coleb $
- *
- *)
- (* JPI Version *)
- TYPE
- Real8 = LONGREAL;
- VAR
- L0, L1, L2, L65535: LONGINT;
- R8TenPowers : ARRAY [0..9] OF Real8;
- PROCEDURE REALToReal8( TheReal: REAL ): Real8;
- PROCEDURE Real8ToREAL( TheReal8: Real8 ): REAL;
- PROCEDURE Init();
- END NumTypes.
|
