diff options
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.18/libf2c/pow_hh.c')
-rw-r--r-- | Build/source/utils/pmx/pmx-2.6.18/libf2c/pow_hh.c | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.18/libf2c/pow_hh.c b/Build/source/utils/pmx/pmx-2.6.18/libf2c/pow_hh.c deleted file mode 100644 index 882168501aa..00000000000 --- a/Build/source/utils/pmx/pmx-2.6.18/libf2c/pow_hh.c +++ /dev/null @@ -1,39 +0,0 @@ -#include "f2c.h" -#ifdef __cplusplus -extern "C" { -#endif - -#ifdef KR_headers -shortint pow_hh(ap, bp) shortint *ap, *bp; -#else -shortint pow_hh(shortint *ap, shortint *bp) -#endif -{ - shortint pow, x, n; - unsigned u; - - 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 |