111   long double z, s, c, ss, cc, r, u, v;  in __ieee754_j0l()  local
127 	  z = -__cosl (x + x);  in __ieee754_j0l()
129 	    cc = z / ss;  in __ieee754_j0l()
131 	    ss = z / cc;  in __ieee754_j0l()
138 	z = (invsqrtpi * cc) / sqrtl (x);  in __ieee754_j0l()
143 	  z = invsqrtpi * (u * cc - v * ss) / sqrtl (x);  in __ieee754_j0l()
145       return z;  in __ieee754_j0l()
156   z = x * x;  in __ieee754_j0l()
157   r = z * (R[0] + z * (R[1] + z * (R[2] + z * (R[3] + z * R[4]))));  in __ieee754_j0l()
158   s = S[0] + z * (S[1] + z * (S[2] + z * (S[3] + z)));  in __ieee754_j0l()
161       return (one - 0.25 * z + z * (r / s));  in __ieee754_j0l()
166       return ((one + u) * (one - u) + z * (r / s));  in __ieee754_j0l()
197   long double z, s, c, ss, cc, u, v;  in __ieee754_y0l()  local
233 	  z = -__cosl (x + x);  in __ieee754_y0l()
235 	    cc = z / ss;  in __ieee754_y0l()
237 	    ss = z / cc;  in __ieee754_y0l()
240 	z = (invsqrtpi * ss) / sqrtl (x);  in __ieee754_y0l()
245 	  z = invsqrtpi * (u * ss + v * cc) / sqrtl (x);  in __ieee754_y0l()
247       return z;  in __ieee754_y0l()
251       z = -7.380429510868722527629822444004602747322E-2L  in __ieee754_y0l()
253       return z;  in __ieee754_y0l()
255   z = x * x;  in __ieee754_y0l()
256   u = U[0] + z * (U[1] + z * (U[2] + z * (U[3] + z * (U[4] + z * U[5]))));  in __ieee754_y0l()
257   v = V[0] + z * (V[1] + z * (V[2] + z * (V[3] + z * (V[4] + z))));  in __ieee754_y0l()
355   long double z, r, s;  in pzero()  local
386   z = one / (x * x);  in pzero()
388     p[0] + z * (p[1] +  in pzero()
389 		z * (p[2] + z * (p[3] + z * (p[4] + z * (p[5] + z * p[6])))));  in pzero()
391     q[0] + z * (q[1] + z * (q[2] + z * (q[3] + z * (q[4] + z * (q[5] + z)))));  in pzero()
392   return (one + z * r / s);  in pzero()
493   long double s, r, z;  in qzero()  local
524   z = one / (x * x);  in qzero()
526     p[0] + z * (p[1] +  in qzero()
527 		z * (p[2] + z * (p[3] + z * (p[4] + z * (p[5] + z * p[6])))));  in qzero()
529     q[0] + z * (q[1] +  in qzero()
530 		z * (q[2] +  in qzero()
531 		     z * (q[3] + z * (q[4] + z * (q[5] + z * (q[6] + z))))));  in qzero()
532   return (-.125 + z * r / s) / x;  in qzero()