1 #include "libm.h"
2 
3 // FIXME: Hull et al. "Implementing the complex arcsine and arccosine functions using exception
4 // handling" 1997
5 
6 /* acos(z) = pi/2 - asin(z) */
7 
cacos(double complex z)8 double complex cacos(double complex z) {
9     z = casin(z);
10     return CMPLX(M_PI_2 - creal(z), -cimag(z));
11 }
12