repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
* config/m32r/m32r.h (BIG_ENDIAN_BIT): Deleted to fix endian bug.
[official-gcc.git]
/
libf2c
/
libF77
/
pow_ci.c
blob
1df3eb34b00ff803c7b4a0a0565e6be61afe8dfa
1
#include
"f2c.h"
2
3
extern
void
pow_zi
(
doublecomplex
*,
doublecomplex
*,
integer
*);
4
void
5
pow_ci
(
complex
*
p
,
complex
*
a
,
integer
*
b
)
/* p = a**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
}