Gitiles
Code Review
Sign In
gerrit-public.fairphone.software
/
platform
/
external
/
musl
/
2d72b58070bc43a727b580a46746e87215a60a33
/
.
/
src
/
complex
/
catanh.c
blob: c324c7f2bca8017d6e27474a21576c157cf78ad9 [
file
] [
log
] [
blame
]
#include
"complex_impl.h"
/* atanh = -i atan(i z) */
double
complex catanh
(
double
complex z
)
{
z
=
catan
(
CMPLX
(-
cimag
(
z
),
creal
(
z
)));
return
CMPLX
(
cimag
(
z
),
-
creal
(
z
));
}