pio2_lo
return (CMPLX(pio2_hi + pio2_lo, y + y));
return (CMPLX(pio2_hi - (x - pio2_lo), -y));
pio2_lo = 6.1232339957367659e-17; /* 0x11a62633145c07.0p-106 */
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_lo = 7.5497899549e-8, /* 0xa22169.0p-47 */
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_lo = 6.12323399573676603587e-17; /* 0x3C91A626, 0x33145C07 */
else return pi+2.0*pio2_lo; /* acos(-1)= pi */
if(ix<=0x3c600000) return pio2_hi+pio2_lo;/*if|x|<2**-57*/
return pio2_hi - (x - (pio2_lo-x*r));
w = r*s-pio2_lo;
pio2_lo = 7.5497894159e-08; /* 0x33a22168 */
else return pi+(float)2.0*pio2_lo; /* acos(-1)= pi */
if(ix<=0x32800000) return pio2_hi+pio2_lo;/*if|x|<2**-26*/
return pio2_hi - (x - (pio2_lo-x*r));
w = r*s-pio2_lo;
else return pi+2.0*pio2_lo; /* acos(-1)= pi */
if(expt<ACOS_CONST) return pio2_hi+pio2_lo;/*x tiny: acosl=pi/2*/
return pio2_hi - (x - (pio2_lo-x*r));
w = r*s-pio2_lo;
p = 2.0*s*r-(pio2_lo-2.0*c);
pio2_lo = 6.12323399573676603587e-17, /* 0x3C91A626, 0x33145C07 */
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);
p = 2.0*s*r-(pio2_lo-2.0*c);
z=pio2_hi+pio2_lo;