diff options
Diffstat (limited to 'gcc/f/runtime/libF77/pow_di.c')
-rw-r--r-- | gcc/f/runtime/libF77/pow_di.c | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/gcc/f/runtime/libF77/pow_di.c b/gcc/f/runtime/libF77/pow_di.c deleted file mode 100644 index affed625a91..00000000000 --- a/gcc/f/runtime/libF77/pow_di.c +++ /dev/null @@ -1,35 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -double pow_di(ap, bp) doublereal *ap; integer *bp; -#else -double pow_di(doublereal *ap, integer *bp) -#endif -{ -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); -} |