pio2_hi
pio2_hi = 1.57079632679489655800e+00, /* 0x3FF921FB, 0x54442D18 */
if(ix<=0x3c600000) return pio2_hi+pio2_lo;/*if|x|<2**-57*/
return pio2_hi - (x - (pio2_lo-x*r));
pio2_hi = 1.5707962513e+00, /* 0x3fc90fda */
if(ix<=0x23000000) return pio2_hi+pio2_lo;/*if|x|<2**-57*/
return pio2_hi - (x - (pio2_lo-x*r));
if(expt<ACOS_CONST) return pio2_hi+pio2_lo;/*x tiny: acosl=pi/2*/
return pio2_hi - (x - (pio2_lo-x*r));
pio2_hi = 1.57079632679489655800e+00, /* 0x3FF921FB, 0x54442D18 */
return x*pio2_hi+x*pio2_lo;
t = pio2_hi-(2.0*(s+s*w)-pio2_lo);
pio2_hi = 1.5707962513e+00, /* 0x3fc90fda */
return x*pio2_hi+x*pio2_lo;
t = pio2_hi-((float)2.0*(s+s*w)-pio2_lo);
return x*pio2_hi+x*pio2_lo;
t = pio2_hi-(2.0*(s+s*w)-pio2_lo);
return (expsigny<0)? -pio2_hi-tiny: pio2_hi+tiny;
case 0: return pio2_hi*0.5+tiny;/* atan(+INF,+INF) */
case 1: return -pio2_hi*0.5-tiny;/* atan(-INF,+INF) */
case 2: return 1.5*pio2_hi+tiny;/*atan(+INF,-INF)*/
case 3: return -1.5*pio2_hi-tiny;/*atan(-INF,-INF)*/
return (expsigny<0)? -pio2_hi-tiny: pio2_hi+tiny;
z=pio2_hi+pio2_lo;