r_cnjg.c
[
plain text
]
#
include
"f2c.h"
void
r_cnjg
(complex * r, complex * z) { real zi = z->i; r->r = z->r; r->i = -zi; }