CMPLX
return (CMPLX(x, y + y));
return (CMPLX(y, x + x));
return (CMPLX(x + x, y));
return (CMPLX(x + 0.0L + (y + 0), x + 0.0L + (y + 0)));
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(x + 0.0L + (y + 0), x + 0.0L + (y + 0)));
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(x + 0.0L + (y + 0), x + 0.0L + (y + 0)));
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)));
#ifndef CMPLX