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