
DEFINITION MODULE MathREAL;

PROCEDURE Short(x{0}:LONGREAL):REAL;
PROCEDURE Long(x{0}:REAL):LONGREAL;
PROCEDURE FixS(x{0}:REAL):LONGINT;
PROCEDURE Fix(x{0}:REAL):LONGINT;
PROCEDURE Flt(x{0}:LONGINT):REAL;
PROCEDURE Cmp(x{0},y{1}:REAL):LONGINT;
PROCEDURE Tst(x{0}:REAL):LONGINT;
PROCEDURE Abs(x{0}:REAL):REAL;
PROCEDURE Neg(x{0}:REAL):REAL;
PROCEDURE Add(x{0},y{1}:REAL):REAL;
PROCEDURE Sub(x{0},y{1}:REAL):REAL;
PROCEDURE Mul(x{0},y{1}:REAL):REAL;
PROCEDURE Div(x{0},y{1}:REAL):REAL;
(*
PROCEDURE Floor(x{0}:REAL):REAL;
PROCEDURE Ceil(x{0}:REAL):REAL
*)
END MathREAL.def
