25 lines
242 B
C
25 lines
242 B
C
#include "f2c.h"
|
|
|
|
integer pow_ii(ap, bp)
|
|
integer *ap, *bp;
|
|
{
|
|
integer pow, x, n;
|
|
|
|
pow = 1;
|
|
x = *ap;
|
|
n = *bp;
|
|
|
|
if(n < 0)
|
|
{ }
|
|
else if(n > 0)
|
|
for( ; ; )
|
|
{
|
|
if(n & 01)
|
|
pow *= x;
|
|
if(n >>= 1)
|
|
x *= x;
|
|
else
|
|
break;
|
|
}
|
|
return(pow);
|
|
}
|