cproj.c raw

   1  #include "complex_impl.h"
   2  
   3  double complex cproj(double complex z)
   4  {
   5  	if (isinf(creal(z)) || isinf(cimag(z)))
   6  		return CMPLX(INFINITY, copysign(0.0, cimag(z)));
   7  	return z;
   8  }
   9