DEFINITION MODULE LongMath;

  (* Mathematical functions for the type LONGREAL *)

(****************************************************************)
(*								*)
(*    GPM defines LONGREAL as a type alias of REAL so no	*)
(*    seperate implementation is required.			*)
(*								*)
(*	  LongMath is implemented by RealMath			*)
(*								*)
(****************************************************************)

IMPORT RealMath;

CONST
  pi     = RealMath.pi;
  exp1   = RealMath.exp1;

CONST
  sqrt   = RealMath.sqrt;
  exp    = RealMath.exp;
  ln     = RealMath.ln;
  sin    = RealMath.sin;
  cos    = RealMath.cos;
  tan    = RealMath.tan;
  arcsin = RealMath.arcsin;
  arccos = RealMath.arccos;
  arctan = RealMath.arctan;
  power  = RealMath.power;
  round  = RealMath.round;
  IsRMathException = RealMath.IsRMathException;

END LongMath.