creal
double creal(double complex) __pure2;
#define creal(x) __tg_simple(x, creal)
x = creal(z);
return (CMPLX(copysign(creal(w), x), copysign(cimag(w), y)));
double complex w = casinh(CMPLX(cimag(z), creal(z)));
return (CMPLX(cimag(w), creal(w)));
x = creal(z);
ry = creal(w) + m_ln2;
rx = creal(w);
x = creal(z);
x = creal(z);
double complex w = catanh(CMPLX(cimag(z), creal(z)));
return (CMPLX(cimag(w), creal(w)));
x = creal(z);
return (atan2(cimag(z), creal(z)));
return (ccosh(CMPLX(-cimag(z), creal(z))));
x = creal(z);
return (CMPLX(creal(z), cimag(z) * copysign(1, x)));
x = creal(z);
x = creal(z);
return (CMPLX(creal(z), -cimag(z)));
x = creal (z);
if (!isinf(creal(z)) && !isinf(cimag(z)))
z = csinh(CMPLX(cimag(z), creal(z)));
return (CMPLX(cimag(z), creal(z)));
x = creal(z);
return (CMPLX(creal(z) * copysign(1, x), cimag(z)));
a = creal(z);
a = creal(z);
z = ctanh(CMPLX(cimag(z), creal(z)));
return (CMPLX(cimag(z), creal(z)));
x = creal(z);
return hypot(creal(z), cimag(z));
"conj(%#.2g + %#.2gI): wrong value", creal(in), cimag(in));
"conj(%#.2g + %#.2gI): threw an exception: %#x", creal(in),
"conjl(%#.2g + %#.2gI): wrong value", creal(in), cimag(in));
"conjl(%#.2g + %#.2gI): threw an exception: %#x", creal(in),
static double (*libcreal)(double complex) = creal;
"conjf(%#.2g + %#.2gI): wrong value", creal(in), cimag(in)
"conj(%#.2g + %#.2gI): threw an exception: %#x", creal(in),
debug("%a %a\n", creal(z), cimag(z));
debug("%a %a\n", creal(ctanhf(z)), cimag(ctanhf(z)));
fpequal_cs(creal(_x), creal(_y), (checksign & CS_REAL) != 0) && \
bool equal_tol = (fpequal_tol(creal(_x), creal(_y), tol, flags) && \
TGMACRO_COMPLEX_REAL_RET(creal)
PASS_REAL_ARG_REAL_RET_(creal, _complex) &&
PASS_COMPLEX_ARG_REAL_RET(creal));