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/netbsd.h (CPP_SPEC): Remove.
[official-gcc.git]
/
libf2c
/
libF77
/
pow_ci.c
blob
37e2ce0f2eb9d90b0abe72ab0cc292da8b03160b
1
#include
"f2c.h"
2
3
#ifdef KR_headers
4
VOID
pow_ci
(
p
,
a
,
b
)
/* p = a**b */
5
complex
*
p
, *
a
;
integer
*
b
;
6
#else
7
extern
void
pow_zi
(
doublecomplex
*,
doublecomplex
*,
integer
*);
8
void
pow_ci
(
complex
*
p
,
complex
*
a
,
integer
*
b
)
/* p = a**b */
9
#endif
10
{
11
doublecomplex p1
,
a1
;
12
13
a1
.
r
=
a
->
r
;
14
a1
.
i
=
a
->
i
;
15
16
pow_zi
(&
p1
, &
a1
,
b
);
17
18
p
->
r
=
p1
.
r
;
19
p
->
i
=
p1
.
i
;
20
}