diff options
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.18/libf2c/cabs.c')
-rw-r--r-- | Build/source/utils/pmx/pmx-2.6.18/libf2c/cabs.c | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.18/libf2c/cabs.c b/Build/source/utils/pmx/pmx-2.6.18/libf2c/cabs.c deleted file mode 100644 index 84750d505cf..00000000000 --- a/Build/source/utils/pmx/pmx-2.6.18/libf2c/cabs.c +++ /dev/null @@ -1,33 +0,0 @@ -#ifdef KR_headers -extern double sqrt(); -double f__cabs(real, imag) double real, imag; -#else -#undef abs -#include "math.h" -#ifdef __cplusplus -extern "C" { -#endif -double f__cabs(double real, double imag) -#endif -{ -double temp; - -if(real < 0) - real = -real; -if(imag < 0) - imag = -imag; -if(imag > real){ - temp = real; - real = imag; - imag = temp; -} -if((real+imag) == real) - return(real); - -temp = imag/real; -temp = real*sqrt(1.0 + temp*temp); /*overflow!!*/ -return(temp); -} -#ifdef __cplusplus -} -#endif |