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.