ix = 0x7fffffff&__HI(x);
un.d = x; ix = 0x7fffffff&__HI(un);
	static double qone(double x)#else	static double qone(x)	double x;#endif{#ifdef __STDC__	const double *p,*q;#else	double *p,*q;#endif	double  s,r,z;	int ix;	ix = 0x7fffffff&__HI(x);	if(ix>=0x40200000)     {p = qr8; q= qs8;}	else if(ix>=0x40122E8B){p = qr5; q= qs5;}	else if(ix>=0x4006DB6D){p = qr3; q= qs3;}	else if(ix>=0x40000000){p = qr2; q= qs2;}	z = one/(x*x);	r = p[0]+z*(p[1]+z*(p[2]+z*(p[3]+z*(p[4]+z*p[5]))));	s = one+z*(q[0]+z*(q[1]+z*(q[2]+z*(q[3]+z*(q[4]+z*q[5])))));	return (.375 + r/s)/x;}