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

   1 #include "libm.h"
   2
   3 // FIXME
   4
   5 /* log(z) = log(|z|) + i arg(z) */
   6
   7 double complex clog(double complex z)
   8 {
   9         double r, phi;
  10
  11         r = cabs(z);
  12         phi = carg(z);
  13         return cpack(log(r), phi);
  14 }