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