nsz Git - libm/blob - src/cmath/clog.c

   1 #include "libm.h"
   2
   3 double complex clog(double complex z)
   4 {
   5         double r, phi;
   6
   7         r = cabs(z);
   8         phi = carg(z);
   9         return cpack(log(r), phi);
  10 }