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