libf2c/libF77/pow_ci.c

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