Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
pow_ci.c
Go to the documentation of this file.00001 #include "f2c.h"
00002
00003 #ifdef KR_headers
00004 VOID pow_ci(p, a, b)
00005 complex *p, *a; integer *b;
00006 #else
00007 extern void pow_zi(doublecomplex*, doublecomplex*, integer*);
00008 void pow_ci(complex *p, complex *a, integer *b)
00009 #endif
00010 {
00011 doublecomplex p1, a1;
00012
00013 a1.r = a->r;
00014 a1.i = a->i;
00015
00016 pow_zi(&p1, &a1, b);
00017
00018 p->r = p1.r;
00019 p->i = p1.i;
00020 }
