source:
EcnlProtoTool/trunk/musl-1.1.18/src/complex/cabsl.c
Last change on this file was 444, checked in by , 4 years ago | |
---|---|
|
|
File size: 225 bytes |
Line | |
---|---|
1 | #include "libm.h" |
2 | |
3 | #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024 |
4 | long double cabsl(long double complex z) |
5 | { |
6 | return cabs(z); |
7 | } |
8 | #else |
9 | long double cabsl(long double complex z) |
10 | { |
11 | return hypotl(creall(z), cimagl(z)); |
12 | } |
13 | #endif |
Note:
See TracBrowser
for help on using the repository browser.