1 #include "v3p_f2c.h"
2 #ifdef __cplusplus
3 extern "C" {
4 #endif
5 
6  VOID
7 #ifdef KR_headers
d_cnjg(r,z)8 d_cnjg(r, z) doublecomplex *r, *z;
9 #else
10 d_cnjg(doublecomplex *r, doublecomplex *z)
11 #endif
12 {
13         doublereal zi = z->i;
14         r->r = z->r;
15         r->i = -zi;
16         }
17 #ifdef __cplusplus
18 }
19 #endif
20