Sign in
third-party-mirror
/
eigen
/
cefe4a0684b2d4165e775e1a4e8f0eaee8311cfe
/
.
/
blas
/
f2c
/
d_cnjg.c
blob: 623090c6b0ecf9eae7f76a8fa16ca8cde9e98171 [
file
] [
log
] [
blame
]
#include
"datatypes.h"
void
d_cnjg
(
doublecomplex
*
r
,
doublecomplex
*
z
)
{
r
->
r
=
z
->
r
;
r
->
i
=
-(
z
->
i
);
}