newlib-cygwin/winsup/mingw/mingwex/complex/catanhf.c

24 lines
399 B
C
Executable File

/* catanhf.c */
/*
Contributed by Danny Smith
2004-12-24
*/
#include <math.h>
#include <complex.h>
/* catanh (z) = -I * catan (I * z) */
float complex catanhf (float complex Z)
{
float complex Tmp;
float complex Res;
__real__ Tmp = - __imag__ Z;
__imag__ Tmp = __real__ Z;
Tmp = catanf (Tmp);
__real__ Res = __imag__ Tmp;
__imag__ Res = - __real__ Tmp;
return Res;
}