Sign in
gnu
/
gcc
/
14bc1c0e15633ea781d76d0ae4274b2e27d51db5
/
.
/
libf2c
/
libF77
/
r_cnjg.c
blob: 756c694ee7a8f97effea1ab15891689aca3943ab [
file
] [
log
] [
blame
]
#include
"f2c.h"
#ifdef
KR_headers
VOID r_cnjg
(
r
,
z
)
complex
*
r
,
*
z
;
#else
VOID r_cnjg
(
complex
*
r
,
complex
*
z
)
#endif
{
real zi
=
z
->
i
;
r
->
r
=
z
->
r
;
r
->
i
=
-
zi
;
}