Lines Matching defs:f2
52 double f2, ans2, ansu2, ansl2, tmp2, poly2, conup2, conlo2;
133 f2 = 0.0;
175 f2 = 0.0;
203 f2 = 0.0; /* put dummy value in arg 2 */
214 f2 = fabs(*x); /* fetch argument */
224 ans = f2 - f2; /* return NaN if x=NaN*/
228 dummy = 1.0e37 + f2;
230 ans = f2;
243 f2 = 0.0; /* put dummy value in arg 2 */
252 { f2 = -1.0/f2;
260 f2 = (f2 - z)/(1.0 + f2*z); /* get reduced argument */
287 tmp2 = f2*f2;
291 poly2 = f2*((p3*tmp2 + p2)*tmp2 + p1)*tmp2;
295 ansu2 = conup2 + f2; /* compute atan(f) upper */
299 ansl2 = (((conup2 - ansu2) + f2) + poly2) + conlo2;