Imported gcc-4.4.3

[msp430-gcc.git] / libf2c / libF77 / d_mod.c

diff --git a/libf2c/libF77/d_mod.c b/libf2c/libF77/d_mod.c
deleted file mode 100644 (file)
index 23f1929..0000000
--- a/libf2c/libF77/d_mod.c
+++ /dev/null
@@ -1,40 +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>
-#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
-}