Sign in
gnu
/
gcc
/
refs/tags/misc/start
/
.
/
gcc
/
f
/
runtime
/
libF77
/
r_cnjg.c
blob: b6175eedfd76ee155f8ff58eb8b50f4a81b7d0aa [
file
] [
log
] [
blame
]
#include
"f2c.h"
#ifdef
KR_headers
VOID r_cnjg
(
resx
,
z
)
complex
*
resx
,
*
z
;
#else
VOID r_cnjg
(
complex
*
resx
,
complex
*
z
)
#endif
{
complex res
;
res
.
r
=
z
->
r
;
res
.
i
=
-
z
->
i
;
resx
->
r
=
res
.
r
;
resx
->
i
=
res
.
i
;
}