swiftnav: pow_ci.c Source File

Go to the documentation of this file.

00001 #include "f2c.h"
00002 #ifdef __cplusplus
00003 extern "C" {
00004 #endif
00005 
00006 #ifdef KR_headers
00007 VOID pow_ci(p, a, b)    /* p = a**b  */
00008  complex *p, *a; integer *b;
00009 #else
00010 extern void pow_zi(doublecomplex*, doublecomplex*, integer*);
00011 void pow_ci(complex *p, complex *a, integer *b)         /* p = a**b  */
00012 #endif
00013 {
00014 doublecomplex p1, a1;
00015 
00016 a1.r = a->r;
00017 a1.i = a->i;
00018 
00019 pow_zi(&p1, &a1, b);
00020 
00021 p->r = p1.r;
00022 p->i = p1.i;
00023 }
00024 #ifdef __cplusplus
00025 }
00026 #endif