88   double z, s, c, ss, cc, r, u, v, r1, r2, s1, s2, z2, z4;  in __ieee754_j0()  local
103 	  z = -__cos (x + x);  in __ieee754_j0()
105 	    cc = z / ss;  in __ieee754_j0()
107 	    ss = z / cc;  in __ieee754_j0()
114 	z = (invsqrtpi * cc) / sqrt (x);  in __ieee754_j0()
118 	  z = invsqrtpi * (u * cc - v * ss) / sqrt (x);  in __ieee754_j0()
120       return z;  in __ieee754_j0()
130   z = x * x;  in __ieee754_j0()
131   r1 = z * R[2]; z2 = z * z;  in __ieee754_j0()
132   r2 = R[3] + z * R[4]; z4 = z2 * z2;  in __ieee754_j0()
134   s1 = one + z * S[1];  in __ieee754_j0()
135   s2 = S[2] + z * S[3];  in __ieee754_j0()
139       return one + z * (-0.25 + (r / s));  in __ieee754_j0()
144       return ((one + u) * (one - u) + z * (r / s));  in __ieee754_j0()
165   double z, s, c, ss, cc, u, v, z2, z4, z6, u1, u2, u3, v1, v2;  in __ieee754_y0()  local
198 	  z = -__cos (x + x);  in __ieee754_y0()
200 	    cc = z / ss;  in __ieee754_y0()
202 	    ss = z / cc;  in __ieee754_y0()
205 	z = (invsqrtpi * ss) / sqrt (x);  in __ieee754_y0()
209 	  z = invsqrtpi * (u * ss + v * cc) / sqrt (x);  in __ieee754_y0()
211       return z;  in __ieee754_y0()
217   z = x * x;  in __ieee754_y0()
218   u1 = U[0] + z * U[1]; z2 = z * z;  in __ieee754_y0()
219   u2 = U[2] + z * U[3]; z4 = z2 * z2;  in __ieee754_y0()
220   u3 = U[4] + z * U[5]; z6 = z4 * z2;  in __ieee754_y0()
222   v1 = one + z * V[0];  in __ieee754_y0()
223   v2 = V[1] + z * V[2];  in __ieee754_y0()
306   double z, r, s, z2, z4, r1, r2, r3, s1, s2, s3;  in pzero()  local
331   z = one / (x * x);  in pzero()
332   r1 = p[0] + z * p[1]; z2 = z * z;  in pzero()
333   r2 = p[2] + z * p[3]; z4 = z2 * z2;  in pzero()
334   r3 = p[4] + z * p[5];  in pzero()
336   s1 = one + z * q[0];  in pzero()
337   s2 = q[1] + z * q[2];  in pzero()
338   s3 = q[3] + z * q[4];  in pzero()
425   double s, r, z, z2, z4, z6, r1, r2, r3, s1, s2, s3;  in qzero()  local
450   z = one / (x * x);  in qzero()
451   r1 = p[0] + z * p[1]; z2 = z * z;  in qzero()
452   r2 = p[2] + z * p[3]; z4 = z2 * z2;  in qzero()
453   r3 = p[4] + z * p[5]; z6 = z4 * z2;  in qzero()
455   s1 = one + z * q[0];  in qzero()
456   s2 = q[1] + z * q[2];  in qzero()
457   s3 = q[3] + z * q[4];  in qzero()