[unix-history] / lib / libF77 / pow_ci.c

#include "f2c.h"

#ifdef KR_headers
VOID pow_ci(p, a, b) 	/* p = a**b  */
 complex *p, *a; integer *b;
#else
extern void pow_zi(doublecomplex*, doublecomplex*, integer*);
void pow_ci(complex *p, complex *a, integer *b) 	/* p = a**b  */
#endif
{
doublecomplex p1, a1;

a1.r = a->r;
a1.i = a->i;

pow_zi(&p1, &a1, b);

p->r = p1.r;
p->i = p1.i;
}
Commit	Line	Data
547779a8 WH	1	#include "f2c.h"
	2
	3	#ifdef KR_headers
	4	VOID pow_ci(p, a, b) /* p = a*b /
	5	complex p, a; integer *b;
	6	#else
	7	extern void pow_zi(doublecomplex, doublecomplex, integer*);
	8	void pow_ci(complex p, complex a, integer b) / p = a*b /
	9	#endif
	10	{
	11	doublecomplex p1, a1;
	12
	13	a1.r = a->r;
	14	a1.i = a->i;
	15
	16	pow_zi(&p1, &a1, b);
	17
	18	p->r = p1.r;
	19	p->i = p1.i;
	20	}