/*	math.h

	Definitions for the math floating point package.

	Copyright (c) Borland International 1987,1988
	All Rights Reserved.
*/
#if __STDC__
#define _Cdecl
#else
#define _Cdecl	cdecl
#endif

#ifndef  _MATH_H
#define  _MATH_H 1

#define EDOM	33		/* Math argument */
#define ERANGE	34		/* Result too large */

#define HUGE_VAL	_huge_dble
extern double _Cdecl _huge_dble;

int	_Cdecl abs   (int x);
double	_Cdecl acos  (double x);
double	_Cdecl asin  (double x);
double	_Cdecl atan  (double x);
double	_Cdecl atan2 (double y, double x);
double	_Cdecl atof  (const char *s);
double	_Cdecl ceil  (double x);
double	_Cdecl cos   (double x);
double	_Cdecl cosh  (double x);
double	_Cdecl exp   (double x);
double	_Cdecl fabs  (double x);
double	_Cdecl floor (double x);
double	_Cdecl fmod  (double x, double y);
double	_Cdecl frexp (double x, int *exponent);
long	_Cdecl labs  (long x);
double	_Cdecl ldexp (double x, int exponent);
double	_Cdecl log   (double x);
double	_Cdecl log10 (double x);
double	_Cdecl modf  (double x, double *ipart);
double	_Cdecl pow   (double x, double y);
double	_Cdecl sin   (double x);
double	_Cdecl sinh  (double x);
double	_Cdecl sqrt  (double x);
double	_Cdecl tan   (double x);
double	_Cdecl tanh  (double x);

struct	exception 
{
	int	type;
	char   *name;
	double	arg1, arg2, retval;
};

int _Cdecl matherr (struct exception *e);

#if !__STDC__
double	cdecl hypot (double x, double y);
double	cdecl poly  (double x, int degree, double coeffs []);
double	cdecl pow10 (int p);

struct complex	    /* as used by "cabs" function */
{
    double  x, y;
};

#define cabs(z)     (hypot ((z).x, (z).y))

/*  The customary matherr() exception handler for maths functions is
    not compatible with the x3j11 draft standard for C.  _matherr() is
    provided as a compromise.
*/

typedef enum
{
    DOMAIN = 1,    /* argument domain error -- log (-1)        */
    SING,	   /* argument singularity  -- pow (0,-2))     */
    OVERFLOW,	   /* overflow range error  -- exp (1000)      */
    UNDERFLOW,	   /* underflow range error -- exp (-1000)     */
    TLOSS,	   /* total loss of significance -- sin(10e70) */
    PLOSS,	   /* partial loss of signif. -- not used      */
}   _mexcep;

double _Cdecl _matherr (_mexcep why, char *fun, double  *arg1p,
			double  *arg2p, double  retval);

/* Constants rounded for 21 decimals. */
#define M_E		2.71828182845904523536
#define M_LOG2E		1.44269504088896340736
#define M_LOG10E	0.434294481903251827651
#define M_LN2		0.693147180559945309417
#define M_LN10		2.30258509299404568402
#define M_PI		3.14159265358979323846
#define M_PI_2		1.57079632679489661923
#define M_PI_4		0.785398163397448309116
#define M_1_PI		0.318309886183790671538
#define M_2_PI		0.636619772367581343076
#define M_1_SQRTPI	0.564189583547756286948
#define M_2_SQRTPI	1.12837916709551257390
#define M_SQRT2		1.41421356237309504880
#define M_SQRT_2	0.707106781186547524401

#endif	/* __STDC__ */

#endif
