CMPLX
return (CMPLX(x, y + y));
return (CMPLX(y, x + x));
return (CMPLX(x + x, y));
return (CMPLX(nan_mix(x, y), nan_mix(x, y)));
return (CMPLX(copysign(creal(w), x), copysign(cimag(w), y)));
return (CMPLX(copysign(rx, x), copysign(ry, y)));
double complex w = casinh(CMPLX(cimag(z), creal(z)));
return (CMPLX(cimag(w), creal(w)));
return (CMPLX(y + y, -INFINITY));
return (CMPLX(x + x, -y));
return (CMPLX(pio2_hi + pio2_lo, y + y));
return (CMPLX(nan_mix(x, y), nan_mix(x, y)));
return (CMPLX(rx, ry));
return (CMPLX(0, -y));
return (CMPLX(pio2_hi - (x - pio2_lo), -y));
return (CMPLX(rx, ry));
return (CMPLX(ry, rx));
return (CMPLX(fabs(ry), rx));
return (CMPLX(ry, ry));
return (CMPLX(fabs(ry), copysign(rx, cimag(z))));
return (CMPLX(log(hypot(x / m_e, y / m_e)) + 1, atan2(y, x)));
return (CMPLX(log(hypot(x, y)), atan2(y, x)));
return (CMPLX(log(ax * ax + ay * ay) / 2, atan2(y, x)));
return (CMPLX(atanh(x), y));
return (CMPLX(x, atan(y)));
return (CMPLX(copysign(0, x), y + y));
return (CMPLX(copysign(0, x),
return (CMPLX(nan_mix(x, y), nan_mix(x, y)));
return (CMPLX(real_part_reciprocal(x, y),
return (CMPLX(copysign(rx, x), copysign(ry, y)));
double complex w = catanh(CMPLX(cimag(z), creal(z)));
return (CMPLX(cimag(w), creal(w)));
return (CMPLX(c * exp_x * scale1 * scale2,
#ifndef CMPLX
return (CMPLX(x * x, copysign(0, x) * y));
return (CMPLX(y - y, x * (y - y)));
return (CMPLX(INFINITY, x * (y - y)));
return (CMPLX(INFINITY * c, x * s));
return (CMPLX(((long double)x * x) * (y - y),
return (ccosh(CMPLX(-cimag(z), creal(z))));
return (CMPLX(cosh(x), x * y));
return (CMPLX(cosh(x) * c, sinh(x) * s));
return (CMPLX(h * c, copysign(h, x) * s));
z = __ldexp_cexp(CMPLX(fabs(x), y), -1);
return (CMPLX(creal(z), cimag(z) * copysign(1, x)));
return (CMPLX(h * h * c, h * s));
return (CMPLX(y - y, x * copysign(0, y)));
return (CMPLX(exp(x), y));
return (CMPLX(c, s));
return (CMPLX(y - y, y - y));
return (CMPLX(0.0, 0.0));
return (CMPLX(x, y - y));
return (CMPLX(exp_x * c, exp_x * s));
return (CMPLX(log(ay2l + ax2l + sl + sh) / 2, v));
return (CMPLX(log1p(ay2l + t + sh) / 2, v));
return (CMPLX(log(hypot(x, y)), v));
return (CMPLX((ay / 2) * ay, v));
return (CMPLX(log1p(ay * ay) / 2, v));
return (CMPLX(log(ax), v));
return (CMPLX(log(hypot(x * 0x1p-1022, y * 0x1p-1022)) +
return (CMPLX(log(hypot(x, y)), v));
return (CMPLX(log(hypot(x * 0x1p1023, y * 0x1p1023)) +
return (CMPLX(log(hypot(x, y)), v));
return (CMPLX(creal(z), -cimag(z)));
return (CMPLX(1., 0.));
return (CMPLX(0., 0.));
w = CMPLX(r * cos (theta), r * sin (theta));
return (CMPLX(INFINITY, copysign(0.0, cimag(z))));
return (CMPLX(x + x, y));
return (CMPLX(y - y, y - y));
return (CMPLX(x, y - y));
return (CMPLX(x * c, INFINITY * s));
return (CMPLX(((long double)x + x) * (y - y),
z = csinh(CMPLX(cimag(z), creal(z)));
return (CMPLX(cimag(z), creal(z)));
return (CMPLX(sinh(x), y));
return (CMPLX(sinh(x) * c, cosh(x) * s));
return (CMPLX(copysign(h, x) * c, h * s));
z = __ldexp_cexp(CMPLX(fabs(x), y), -1);
return (CMPLX(creal(z) * copysign(1, x), cimag(z)));
return (CMPLX(h * c, h * h * s));
return (CMPLX(x, y - y));
return (CMPLX(rx, ry));
return (CMPLX(0, b));
return (CMPLX(INFINITY, b));
return (CMPLX(a + 0.0L + t, a + 0.0L + t)); /* NaN + NaN i */
return (CMPLX(fabs(b - b), copysign(a, b)));
return (CMPLX(a, copysign(b - b, b)));
return (CMPLX(b + 0.0L + t, b + 0.0L + t)); /* NaN + NaN i */
return (CMPLX(nan_mix(x, y),
return (CMPLX(x, copysign(0, isinf(y) ? y : sin(y) * cos(y))));
return (CMPLX(x ? y - y : x, y - y));
return (CMPLX(copysign(1, x),
return (CMPLX((beta * rho * s) / denom, t / denom));
z = ctanh(CMPLX(cimag(z), creal(z)));
return (CMPLX(cimag(z), creal(z)));