diff options
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.17/libf2c/pow_qq.c')
-rw-r--r-- | Build/source/utils/pmx/pmx-2.6.17/libf2c/pow_qq.c | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.17/libf2c/pow_qq.c b/Build/source/utils/pmx/pmx-2.6.17/libf2c/pow_qq.c deleted file mode 100644 index 09fe18ec8e7..00000000000 --- a/Build/source/utils/pmx/pmx-2.6.17/libf2c/pow_qq.c +++ /dev/null @@ -1,39 +0,0 @@ -#include "f2c.h" -#ifdef __cplusplus -extern "C" { -#endif - -#ifdef KR_headers -longint pow_qq(ap, bp) longint *ap, *bp; -#else -longint pow_qq(longint *ap, longint *bp) -#endif -{ - longint pow, x, n; - unsigned long long u; /* system-dependent */ - - x = *ap; - n = *bp; - - if (n <= 0) { - if (n == 0 || x == 1) - return 1; - if (x != -1) - return x == 0 ? 1/x : 0; - n = -n; - } - u = n; - for(pow = 1; ; ) - { - if(u & 01) - pow *= x; - if(u >>= 1) - x *= x; - else - break; - } - return(pow); - } -#ifdef __cplusplus -} -#endif |