freebsd-dev/contrib/libf2c/libF77/pow_ci.c
2003-07-11 03:42:19 +00:00

17 lines
267 B
C

#include "f2c.h"
extern void pow_zi (doublecomplex *, doublecomplex *, integer *);
void
pow_ci (complex * p, complex * a, integer * b) /* p = a**b */
{
doublecomplex p1, a1;
a1.r = a->r;
a1.i = a->i;
pow_zi (&p1, &a1, b);
p->r = p1.r;
p->i = p1.i;
}