freebsd-dev/lib/libF77/pow_ii.c
L Jonas Olsson 09c656ca68 Library for f2c (part 2 of 2)
Obtained from: netlib.att.com
1994-10-26 18:17:41 +00:00

32 lines
395 B
C

#include "f2c.h"
#ifdef KR_headers
integer pow_ii(ap, bp) integer *ap, *bp;
#else
integer pow_ii(integer *ap, integer *bp)
#endif
{
integer pow, x, n;
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;
}
for(pow = 1; ; )
{
if(n & 01)
pow *= x;
if(n >>= 1)
x *= x;
else
break;
}
return(pow);
}