blob: e3878ec48668cf82db21dacfe7a5a80f5a0e2e18 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#include <complex.h> // for cabsl, cimagl, creall, complex
#include <math.h> // for hypotl
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
long double cabsl(long double complex z)
{
return cabs(z);
}
#else
long double cabsl(long double complex z)
{
return hypotl(creall(z), cimagl(z));
}
#endif
|
