cproj.c « complex « src - grovel - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/src/complex/cproj.c

blob: 15f358a14f045c0dd600a3c654b058c4c212326c (about) (plain) (blame)

#include "libm.h"

double complex cproj(double complex z)
{
	if (isinf(creal(z)) || isinf(cimag(z)))
		return CMPLX(INFINITY, copysign(0.0, creal(z)));
	return z;
}