cabsl.c 233 B

12345678910111213
  1. #include "complex_impl.h"
  2. #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
  3. long double cabsl(long double complex z)
  4. {
  5. return cabs(z);
  6. }
  7. #else
  8. long double cabsl(long double complex z)
  9. {
  10. return hypotl(creall(z), cimagl(z));
  11. }
  12. #endif