fixed: call to atan changed into call to _atn

This commit is contained in:
ceriel 1988-07-25 11:41:19 +00:00
parent c9f8962fc8
commit 7b1eae1d37

View file

@ -92,7 +92,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;