ccosh
extern double complex ccosh(double complex);
__MATHCALL (ccosh, (_Mdouble_complex_ __z));
return ccosh(CMPLX(-cimag(z), creal(z)));