ix = 0x7fffffff&__HI(x);
un.d = x; ix = 0x7fffffff&__HI(un);
	static double pone(double x)#else	static double pone(x)	double x;#endif{#ifdef __STDC__	const double *p,*q;#else	double *p,*q;#endif	double z,r,s;        int ix;        ix = 0x7fffffff&__HI(x);        if(ix>=0x40200000)     {p = pr8; q= ps8;}        else if(ix>=0x40122E8B){p = pr5; q= ps5;}        else if(ix>=0x4006DB6D){p = pr3; q= ps3;}        else if(ix>=0x40000000){p = pr2; q= ps2;}        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]))));        return one+ r/s;}