12345678910111213 |
- (*$Foreign*)
- DEFINITION MODULE FIFFEF;
- PROCEDURE FIF(arg1, arg2: LONGREAL; VAR intres: LONGREAL) : LONGREAL;
- (* multiplies arg1 and arg2, and returns the integer part of the
- result in "intres" and the fraction part as the function result.
- *)
- PROCEDURE FEF(arg: LONGREAL; VAR exp: INTEGER) : LONGREAL;
- (* splits "arg" in mantissa and a base-2 exponent.
- The mantissa is returned, and the exponent is left in "exp".
- *)
- END FIFFEF.
|