diff options
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.18/libf2c/d_mod.c')
-rw-r--r-- | Build/source/utils/pmx/pmx-2.6.18/libf2c/d_mod.c | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.18/libf2c/d_mod.c b/Build/source/utils/pmx/pmx-2.6.18/libf2c/d_mod.c deleted file mode 100644 index 3766d9fa828..00000000000 --- a/Build/source/utils/pmx/pmx-2.6.18/libf2c/d_mod.c +++ /dev/null @@ -1,46 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -#ifdef IEEE_drem -double drem(); -#else -double floor(); -#endif -double d_mod(x,y) doublereal *x, *y; -#else -#ifdef IEEE_drem -double drem(double, double); -#else -#undef abs -#include "math.h" -#ifdef __cplusplus -extern "C" { -#endif -#endif -double d_mod(doublereal *x, doublereal *y) -#endif -{ -#ifdef IEEE_drem - double xa, ya, z; - if ((ya = *y) < 0.) - ya = -ya; - z = drem(xa = *x, ya); - if (xa > 0) { - if (z < 0) - z += ya; - } - else if (z > 0) - z -= ya; - return z; -#else - double quotient; - if( (quotient = *x / *y) >= 0) - quotient = floor(quotient); - else - quotient = -floor(-quotient); - return(*x - (*y) * quotient ); -#endif -} -#ifdef __cplusplus -} -#endif |