pio2_hi
return (CMPLX(pio2_hi + pio2_lo, y + y));
return (CMPLX(pio2_hi - (x - pio2_lo), -y));
copysign(pio2_hi + pio2_lo, y)));
copysign(pio2_hi + pio2_lo, y)));
pio2_hi = 1.5707963267948966e0, /* 0x1921fb54442d18.0p-52 */
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 */
pio2_hi = 1.5707963267948966192313216916397514L, /* pi/2 */
if (x == 0) return (CMPLXL(pio2_hi + pio2_lo, y+y));
return (CMPLXL(pio2_hi - (x - pio2_lo), -y));
return (CMPLXL(copysignl(0, x), copysignl(pio2_hi + pio2_lo, y)));
return (CMPLXL(real_part_reciprocal(x, 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<=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));
t = pio2_hi-(2.0*(s+s*w)-pio2_lo);
pio2_hi = 1.57079632679489655800e+00, /* 0x3FF921FB, 0x54442D18 */
return x*pio2_hi+x*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;