ctanh
extern double complex ctanh(double complex);
__MATHCALL (ctanh, (_Mdouble_complex_ __z));
z = ctanh(CMPLX(-cimag(z), creal(z)));