diff options
Diffstat (limited to 'winsup/mingw/mingwex/complex/cprojl.c')
-rwxr-xr-x | winsup/mingw/mingwex/complex/cprojl.c | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/winsup/mingw/mingwex/complex/cprojl.c b/winsup/mingw/mingwex/complex/cprojl.c new file mode 100755 index 000000000..224d26fd6 --- /dev/null +++ b/winsup/mingw/mingwex/complex/cprojl.c @@ -0,0 +1,22 @@ +/* + cprojl.c + Contributed by Danny Smith + 2005-01-04 +*/ + +#include <math.h> +#include <complex.h> + +/* Return the value of the projection onto the Riemann sphere.*/ + +long double complex cprojl (long double complex Z) +{ + complex long double Res = Z; + if (isinf (__real__ Z) || isinf (__imag__ Z)) + { + __real__ Res = HUGE_VALL; + __imag__ Res = copysignl (0.0L, __imag__ Z); + } + return Res; +} + |