Lines Matching refs:f1
51 double f1, ans1, ansu1, ansl1, tmp1, poly1, conup1, conlo1;
132 f1 = 0.0; /* put dummy values in args 1,2 */
145 f1 = fabs(*x); /* fetch argument */
155 ans = f1 - f1; /* return NaN if x=NaN*/
159 dummy = 1.0e37 + f1;
161 ans = f1;
174 f1 = 0.0; /* put dummy values in args 1,2 */
185 { f1 = -1.0/f1;
193 f1 = (f1 - z)/(1.0 + f1*z); /* get reduced argument */
286 tmp1 = f1*f1;
290 poly1 = f1*((p3*tmp1 + p2)*tmp1 + p1)*tmp1;
294 ansu1 = conup1 + f1; /* compute atan(f) upper */
298 ansl1 = (((conup1 - ansu1) + f1) + poly1) + conlo1;