[unix-history] / usr / src / usr.lib / libF77 / pow_hh.c

/*
 *	"@(#)pow_hh.c	1.1"
 */

short pow_hh(ap, bp)
short *ap, *bp;
{
short 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
4e52e045 DW	1	/*
	2	* "@(#)pow_hh.c 1.1"
	3	*/
	4
	5	short pow_hh(ap, bp)
	6	short ap, bp;
	7	{
	8	short pow, x, n;
	9
	10	pow = 1;
	11	x = *ap;
	12	n = *bp;
	13
	14	if(n < 0)
	15	{ }
	16	else if(n > 0)
	17	for( ; ; )
	18	{
	19	if(n & 01)
	20	pow *= x;
	21	if(n >>= 1)
	22	x *= x;
	23	else
	24	break;
	25	}
	26	return(pow);
	27	}