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