Meg's Mirrors

zig

1	#include "complex_impl.h"
2
3	// FIXME
4
5	float complex clogf(float complex z)
6	{
7	float r, phi;
8
9	r = cabsf(z);
10	phi = cargf(z);
11	return CMPLXF(logf(r), phi);
12	}