(* Copyright (c) xTech 1992,94,97.  All Rights Reserved *)

(* $RCSfile: math.def,v $ $Revision: 1.1.1.1 $ $Date: 1997/10/20 19:32:35 $ *)

<*+ CSTDLIB  *>
<*+ NOHEADER *>
<*+ M2EXTENSIONS *>

DEFINITION MODULE [2] math;

FROM float IMPORT DBL_MAX;

<* IF __GEN_C__ THEN *>
VAR
  HUGE_VAL -: LONGREAL;
<* ELSE *>
CONST
  HUGE_VAL = DBL_MAX;
<* END *>

PROCEDURE acos(x: LONGREAL): LONGREAL;
PROCEDURE asin(x: LONGREAL): LONGREAL;
PROCEDURE atan2(y,x: LONGREAL): LONGREAL;
PROCEDURE atan(x: LONGREAL): LONGREAL;
PROCEDURE ceil(x: LONGREAL): LONGREAL;
PROCEDURE cos(x: LONGREAL): LONGREAL;
PROCEDURE cosh(x: LONGREAL): LONGREAL;
PROCEDURE exp(x: LONGREAL): LONGREAL;
PROCEDURE fabs(x: LONGREAL): LONGREAL;
PROCEDURE floor(x: LONGREAL): LONGREAL;
PROCEDURE fmod(x,y: LONGREAL): LONGREAL;
PROCEDURE frexp(x: LONGREAL; VAR exp: INTEGER): LONGREAL;
PROCEDURE ldexp(x: LONGREAL; exp: INTEGER): LONGREAL;
PROCEDURE log10(x: LONGREAL): LONGREAL;
PROCEDURE log(x: LONGREAL): LONGREAL;
PROCEDURE modf(x: LONGREAL; VAR ipart: LONGREAL): LONGREAL;
PROCEDURE pow(x,y: LONGREAL): LONGREAL;
PROCEDURE sin(x: LONGREAL): LONGREAL;
PROCEDURE sinh(x: LONGREAL): LONGREAL;
PROCEDURE sqrt(x: LONGREAL): LONGREAL;
PROCEDURE tan(x: LONGREAL): LONGREAL;
PROCEDURE tanh(x: LONGREAL): LONGREAL;

END math.
