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