cimag
double cimag(double complex);
#define cimag(a) __TG_CFN1(cimag, (a))
w = (M_PI_2 - creal(w)) - cimag(w) * I;
zz = 1.0 - creal(zz) - cimag(zz) * I;
y = cimag(z);
y = cimag(z);
y = cimag(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)));
y = cimag(z);
rx = fabs(cimag(w));
ry = cimag(w);
return (CMPLX(fabs(ry), copysign(rx, cimag(z))));
y = cimag(z);
y = cimag(z);
double complex w = catanh(CMPLX(cimag(z), creal(z)));
return (CMPLX(cimag(w), creal(w)));
_cchsh(cimag(z), &ch, &sh);
y = cimag(z);
y = fabs(2.0 * cimag(z));
y = cimag(z);
rr = atan2(cimag(z), creal(z));
y = cimag(z);
if (isinf(creal(z)) || isinf(cimag(z))) {
IMAG_PART(w) = copysign(0.0, cimag(z));
_cchsh(cimag(z), &ch, &sh);
y = cimag(z);
y = cimag (z);
d = cos(2.0 * creal(z)) + cosh(2.0 * cimag(z));
w = sin(2.0 * creal(z)) / d + (sinh(2.0 * cimag(z)) / d) * I;
y = cimag(z);
crude_equality(cimag(ci), cimag(b)), \
creal(a), cimag(a), creal(ci), cimag(ci), creal(b), cimag(b)); \