cacoshf.c raw

   1  #include "complex_impl.h"
   2  
   3  float complex cacoshf(float complex z)
   4  {
   5  	int zineg = signbit(cimagf(z));
   6  
   7  	z = cacosf(z);
   8  	if (zineg) return CMPLXF(cimagf(z), -crealf(z));
   9  	else       return CMPLXF(-cimagf(z), crealf(z));
  10  }
  11