pio2_hi
return (CMPLX(pio2_hi + pio2_lo, y + y));
return (CMPLX(pio2_hi - (x - pio2_lo), -y));
pio2_hi = 1.5707963267948966e0, /* 0x1921fb54442d18.0p-52 */
copysign(pio2_hi + pio2_lo, y)));
copysign(pio2_hi + pio2_lo, y)));
return (CMPLXF(pio2_hi + pio2_lo, y + y));
return (CMPLXF(pio2_hi - (x - pio2_lo), -y));
copysignf(pio2_hi + pio2_lo, y)));
copysignf(pio2_hi + pio2_lo, y)));
pio2_hi = 1.5707962513e0, /* 0xc90fda.0p-23 */
return (CMPLXL(pio2_hi + pio2_lo, y + y));
return (CMPLXL(pio2_hi - (x - pio2_lo), -y));
copysignl(pio2_hi + pio2_lo, y)));
copysignl(pio2_hi + pio2_lo, y)));
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<=0x32800000) return pio2_hi+pio2_lo;/*if|x|<2**-26*/
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);
return x*pio2_hi+x*pio2_lo;
t = pio2_hi-(2.0*(s+s*w)-pio2_lo);
z=pio2_hi+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;