lang/fortran/lib/libF77/pow_ci.c

   1 #include "f2c.h"
   2
   3 VOID pow_ci(p, a, b)    /* p = a**b  */
   4 complex *p, *a;
   5 integer *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 }