Sign in
cobalt
/
cobalt
/
f9bc0139df6e6eb149345ab9b6ffcc40603fc09f
/
.
/
third_party
/
musl
/
src
/
complex
/
cacoshf.c
blob: 8bd80581ae0d7d2ad42ceed52332570078f50943 [
file
] [
log
] [
blame
]
#include
"complex_impl.h"
float
complex cacoshf
(
float
complex z
)
{
int
zineg
=
signbit
(
cimagf
(
z
));
z
=
cacosf
(
z
);
if
(
zineg
)
return
CMPLXF
(
cimagf
(
z
),
-
crealf
(
z
));
else
return
CMPLXF
(-
cimagf
(
z
),
crealf
(
z
));
}