FIFFEF.def 444 B

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