source:
EcnlProtoTool/trunk/musl-1.1.18/src/complex/cproj.c@
446
Last change on this file since 446 was 444, checked in by , 4 years ago | |
---|---|
|
|
File size: 165 bytes |
Line | |
---|---|
1 | #include "libm.h" |
2 | |
3 | double complex cproj(double complex z) |
4 | { |
5 | if (isinf(creal(z)) || isinf(cimag(z))) |
6 | return CMPLX(INFINITY, copysign(0.0, creal(z))); |
7 | return z; |
8 | } |
Note:
See TracBrowser
for help on using the repository browser.