@@ -7,6 +7,7 @@
/* $Header$ */
+#define __NO_DEFS
#include <math.h>
double
static double
#define NITER 5
@@ -6,7 +6,7 @@
*/
-
@@ -91,7 +91,7 @@ _atn(x)
while (x > pr->X) pr++;
if (pr != prec) {
x = pr->arctan +
- atan(pr->one_o_x - pr->one_o_xsq_p_1/(pr->one_o_x + x));
+ _atn(pr->one_o_x - pr->one_o_xsq_p_1/(pr->one_o_x + x));
}
else {
double xsq = x*x;
#include <pc_err.h>
extern _trp();