projects
/
unix-history
/ blame
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blob
|
blame
(incremental) |
history
|
HEAD
Fixed imagined bug in subject pattern match about
[unix-history]
/
.ref-BSD-3
/
usr
/
src
/
libF77
/
pow_ci.c
Commit
Line
Data
0ee0e326
BJ
1
#include "complex"
2
3
pow_ci(p, a, b) /* p = a**b */
4
complex *p, *a;
5
long int *b;
6
{
7
dcomplex p1, a1;
8
9
a1.dreal = a->real;
10
a1.dimag = a->imag;
11
12
pow_zi(&p1, &a1, b);
13
14
p->real = p1.dreal;
15
p->imag = p1.dimag;
16
}