diff options
Diffstat (limited to 'libf2c/libF77/pow_hh.c')
| -rw-r--r-- | libf2c/libF77/pow_hh.c | 50 |
1 files changed, 26 insertions, 24 deletions
diff --git a/libf2c/libF77/pow_hh.c b/libf2c/libF77/pow_hh.c index d734720ef51..3379d8a7f7c 100644 --- a/libf2c/libF77/pow_hh.c +++ b/libf2c/libF77/pow_hh.c @@ -1,29 +1,31 @@ #include "f2c.h" -shortint pow_hh(shortint *ap, shortint *bp) +shortint +pow_hh (shortint * ap, shortint * bp) { - shortint pow, x, n; - unsigned u; + shortint pow, x, n; + unsigned u; - x = *ap; - n = *bp; + 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); - } + 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); +} |