double z,r,s;
double z,r,s,z2,z4,r1,r2,r3,s1,s2,s3;
	static double pzero(double x)#else	static double pzero(x)	double x;#endif{#ifdef __STDC__	const double *p,*q;#else	double *p,*q;#endif	double z,r,s;	int32_t ix;	GET_HIGH_WORD(ix,x);	ix &= 0x7fffffff;	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;}