13e12c5d1SDavid du Colombier #ifndef __MATH 23e12c5d1SDavid du Colombier #define __MATH 33e12c5d1SDavid du Colombier #pragma lib "/$M/lib/ape/libap.a" 43e12c5d1SDavid du Colombier 53e12c5d1SDavid du Colombier /* a HUGE_VAL appropriate for IEEE double-precision */ 63e12c5d1SDavid du Colombier /* the correct value, 1.797693134862316e+308, causes a ken overflow */ 73e12c5d1SDavid du Colombier #define HUGE_VAL 1.79769313486231e+308 83e12c5d1SDavid du Colombier 93e12c5d1SDavid du Colombier #ifdef __cplusplus 103e12c5d1SDavid du Colombier extern "C" { 113e12c5d1SDavid du Colombier #endif 123e12c5d1SDavid du Colombier 133e12c5d1SDavid du Colombier extern double acos(double); 143e12c5d1SDavid du Colombier extern double asin(double); 153e12c5d1SDavid du Colombier extern double atan(double); 163e12c5d1SDavid du Colombier extern double atan2(double, double); 173e12c5d1SDavid du Colombier extern double cos(double); 183e12c5d1SDavid du Colombier extern double sin(double); 193e12c5d1SDavid du Colombier extern double tan(double); 203e12c5d1SDavid du Colombier extern double cosh(double); 213e12c5d1SDavid du Colombier extern double sinh(double); 223e12c5d1SDavid du Colombier extern double tanh(double); 233e12c5d1SDavid du Colombier extern double exp(double); 243e12c5d1SDavid du Colombier extern double frexp(double, int *); 253e12c5d1SDavid du Colombier extern double ldexp(double, int); 263e12c5d1SDavid du Colombier extern double log(double); 273e12c5d1SDavid du Colombier extern double log10(double); 283e12c5d1SDavid du Colombier extern double modf(double, double *); 293e12c5d1SDavid du Colombier extern double pow(double, double); 303e12c5d1SDavid du Colombier extern double sqrt(double); 313e12c5d1SDavid du Colombier extern double ceil(double); 323e12c5d1SDavid du Colombier extern double fabs(double); 333e12c5d1SDavid du Colombier extern double floor(double); 343e12c5d1SDavid du Colombier extern double fmod(double, double); 353e12c5d1SDavid du Colombier 363e12c5d1SDavid du Colombier #ifdef __cplusplus 373e12c5d1SDavid du Colombier } 383e12c5d1SDavid du Colombier #endif 393e12c5d1SDavid du Colombier 403e12c5d1SDavid du Colombier 413e12c5d1SDavid du Colombier #ifdef _RESEARCH_SOURCE 423e12c5d1SDavid du Colombier /* does >> treat left operand as unsigned ? */ 433e12c5d1SDavid du Colombier #define Unsigned_Shifts 1 44*219b2ee8SDavid du Colombier 45*219b2ee8SDavid du Colombier extern double hypot(double, double); 463e12c5d1SDavid du Colombier #endif 473e12c5d1SDavid du Colombier #endif /* __MATH */ 48