DEFINITION MathL; (* portable *)

(*
 Commonly needed Math for LONGREALs.
*)
 CONST
  e = 2.7182818284590452354D0;
  pi = 3.14159265358979323846D0;
 PROCEDURE sin (x: LONGREAL): LONGREAL;
 PROCEDURE cos (x: LONGREAL): LONGREAL;
 PROCEDURE arctan (x: LONGREAL): LONGREAL;
 PROCEDURE sqrt (x: LONGREAL): LONGREAL;
 PROCEDURE ln (x: LONGREAL): LONGREAL;
 PROCEDURE exp (x: LONGREAL): LONGREAL;

END MathL.