1 2 3 4 5 6 7 8 9 10 11 12
#include "__complex.h" float complex clogf(float complex z) { float p, rr; rr = cabsf(z); p = logf(rr); rr = atan2f(cimagf(z), crealf(z)); return p + rr * I; }