clogl.c 296 B

123456789101112131415161718
  1. #include "libm.h"
  2. #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
  3. long double complex clogl(long double complex z)
  4. {
  5. return clog(z);
  6. }
  7. #else
  8. // FIXME
  9. long double complex clogl(long double complex z)
  10. {
  11. long double r, phi;
  12. r = cabsl(z);
  13. phi = cargl(z);
  14. return CMPLXL(logl(r), phi);
  15. }
  16. #endif