Meg's Mirrors

zig

1	#include "complex_impl.h"
2
3	/* pow(z, c) = exp(c log(z)), See C99 G.6.4.1 */
4
5	double complex cpow(double complex z, double complex c)
6	{
7	return cexp(c * clog(z));
8	}