2004-07-15 Toon Moene <toon@moene.indiv.nluug.nl>

[pf3gnuchains/gcc-fork.git] / libf2c / libF77 / pow_di.c

diff --git a/libf2c/libF77/pow_di.c b/libf2c/libF77/pow_di.c
deleted file mode 100644 (file)
index d2298a0..0000000
--- a/libf2c/libF77/pow_di.c
+++ /dev/null
@@ -1,32 +0,0 @@
-#include "f2c.h"
-
-double
-pow_di (doublereal * ap, integer * bp)
-{
-  double pow, x;
-  integer n;
-  unsigned long u;
-
-  pow = 1;
-  x = *ap;
-  n = *bp;
-
-  if (n != 0)
-    {
-      if (n < 0)
-       {
-         n = -n;
-         x = 1 / x;
-       }
-      for (u = n;;)
-       {
-         if (u & 01)
-           pow *= x;
-         if (u >>= 1)
-           x *= x;
-         else
-           break;
-       }
-    }
-  return (pow);
-}