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