1#include "libm.h"
2
3/* acosh(z) = i acos(z) */
4
5double complex cacosh(double complex z)
6{
7	z = cacos(z);
8	return CMPLX(-cimag(z), creal(z));
9}
10