[unix-history] / usr / src / libF77 / pow_ii.c

long int pow_ii(ap, bp)
long int *ap, *bp;
{
long int 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);
}
Commit	Line	Data
0c9e74ab TL	1	long int pow_ii(ap, bp)
	2	long int ap, bp;
	3	{
	4	long int pow, x, n;
	5
	6	pow = 1;
	7	x = *ap;
	8	n = *bp;
	9
	10	if(n < 0)
	11	{ }
	12	else if(n > 0)
	13	for( ; ; )
	14	{
	15	if(n & 01)
	16	pow *= x;
	17	if(n >>= 1)
	18	x *= x;
	19	else
	20	break;
	21	}
	22	return(pow);
	23	}