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