creal
extern double creal(double complex);
__MATHDECL (_Mdouble_,creal, (_Mdouble_complex_ __z));
__MATH_PRECNAME(creal) (_Mdouble_complex_ __z) __THROW
x = creal(z);
return hypot(creal(z), cimag(z));
if (zineg) return CMPLX(cimag(z), -creal(z));
else return CMPLX(-cimag(z), creal(z));
return atan2(cimag(z), creal(z));
x = creal(z);
z = catan(CMPLX(-cimag(z), creal(z)));
return CMPLX(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);
return CMPLX(creal(z), -cimag(z));
if (isinf(creal(z)) || isinf(cimag(z)))
double (creal)(double complex z)
return creal(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);
z = ctanh(CMPLX(-cimag(z), creal(z)));
return CMPLX(cimag(z), -creal(z));
x = creal(z);