1#include "complex_impl.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}