contrib/libf2c/libF77/pow_ci.c

   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 }