92   double z, s, c, ss, cc, r, u, v, y, r1, r2, s1, s2, s3, z2, z4;  in __ieee754_j1()  local
107 	  z = __cos (y + y);  in __ieee754_j1()
109 	    cc = z / ss;  in __ieee754_j1()
111 	    ss = z / cc;  in __ieee754_j1()
118 	z = (invsqrtpi * cc) / sqrt (y);  in __ieee754_j1()
122 	  z = invsqrtpi * (u * cc - v * ss) / sqrt (y);  in __ieee754_j1()
125 	return -z;  in __ieee754_j1()
127 	return z;  in __ieee754_j1()
140   z = x * x;  in __ieee754_j1()
141   r1 = z * R[0]; z2 = z * z;  in __ieee754_j1()
142   r2 = R[1] + z * R[2]; z4 = z2 * z2;  in __ieee754_j1()
145   s1 = one + z * S[1];  in __ieee754_j1()
146   s2 = S[2] + z * S[3];  in __ieee754_j1()
147   s3 = S[4] + z * S[5];  in __ieee754_j1()
171   double z, s, c, ss, cc, u, v, u1, u2, v1, v2, v3, z2, z4;  in __ieee754_y1()  local
191 	  z = __cos (x + x);  in __ieee754_y1()
193 	    cc = z / ss;  in __ieee754_y1()
195 	    ss = z / cc;  in __ieee754_y1()
209 	z = (invsqrtpi * ss) / sqrt (x);  in __ieee754_y1()
213 	  z = invsqrtpi * (u * ss + v * cc) / sqrt (x);  in __ieee754_y1()
215       return z;  in __ieee754_y1()
219       z = -tpi / x;  in __ieee754_y1()
220       if (isinf (z))  in __ieee754_y1()
222       return z;  in __ieee754_y1()
224   z = x * x;  in __ieee754_y1()
225   u1 = U0[0] + z * U0[1]; z2 = z * z;  in __ieee754_y1()
226   u2 = U0[2] + z * U0[3]; z4 = z2 * z2;  in __ieee754_y1()
228   v1 = one + z * V0[0];  in __ieee754_y1()
229   v2 = V0[1] + z * V0[2];  in __ieee754_y1()
230   v3 = V0[3] + z * V0[4];  in __ieee754_y1()
314   double z, r, s, r1, r2, r3, s1, s2, s3, z2, z4;  in pone()  local
339   z = one / (x * x);  in pone()
340   r1 = p[0] + z * p[1]; z2 = z * z;  in pone()
341   r2 = p[2] + z * p[3]; z4 = z2 * z2;  in pone()
342   r3 = p[4] + z * p[5];  in pone()
344   s1 = one + z * q[0];  in pone()
345   s2 = q[1] + z * q[2];  in pone()
346   s3 = q[3] + z * q[4];  in pone()
434   double s, r, z, r1, r2, r3, s1, s2, s3, z2, z4, z6;  in qone()  local
459   z = one / (x * x);  in qone()
460   r1 = p[0] + z * p[1]; z2 = z * z;  in qone()
461   r2 = p[2] + z * p[3]; z4 = z2 * z2;  in qone()
462   r3 = p[4] + z * p[5]; z6 = z4 * z2;  in qone()
464   s1 = one + z * q[0];  in qone()
465   s2 = q[1] + z * q[2];  in qone()
466   s3 = q[3] + z * q[4];  in qone()