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