2.9BSD - /usr/src/lib/libF77/pow_ci.c

   1: /*
   2:  *	"@(#)pow_ci.c	1.1"
   3:  */
   4: 
   5: #include "complex"
   6: 
   7: pow_ci(p, a, b)     /* p = a**b  */
   8: complex *p, *a;
   9: long int *b;
  10: {
  11: dcomplex p1, a1;
  12: 
  13: a1.dreal = a->real;
  14: a1.dimag = a->imag;
  15: 
  16: pow_zi(&p1, &a1, b);
  17: 
  18: p->real = p1.dreal;
  19: p->imag = p1.dimag;
  20: }

Defined functions