summaryrefslogtreecommitdiff
path: root/Build/source/utils/pmx/pmx-2.6.17/libf2c/d_mod.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.17/libf2c/d_mod.c')
-rw-r--r--Build/source/utils/pmx/pmx-2.6.17/libf2c/d_mod.c46
1 files changed, 0 insertions, 46 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.17/libf2c/d_mod.c b/Build/source/utils/pmx/pmx-2.6.17/libf2c/d_mod.c
deleted file mode 100644
index 3766d9fa828..00000000000
--- a/Build/source/utils/pmx/pmx-2.6.17/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