6 double errcheck(double, char*);
11 return errcheck(log(x), "log");
16 return errcheck(log10(x), "log10");
22 return errcheck(sqrt(x), "sqrt");
28 return errcheck(exp(x), "exp");
34 return errcheck(asin(x), "asin");
40 return errcheck(acos(x), "acos");
46 return errcheck(sinh(x), "sinh");
51 return errcheck(cosh(x), "cosh");
54 Pow(double x, double y)
56 return errcheck(pow(x,y), "exponentiation");
62 if(x<-2147483648.0 || x>2147483647.0)
63 execerror("argument out of domain", 0);
64 return (double)(long)x;
68 errcheck(double d, char* s) /* check result of library call */
71 execerror(s, "argument out of domain");
73 execerror(s, "result out of range");