Pristine Ack-5.5
[Ack-5.5.git] / lang / fortran / lib / libF77 / d_cnjg.c
1 #include "f2c.h"
2
3 d_cnjg(r, z)
4 doublecomplex *r, *z;
5 {
6 r->r = z->r;
7 r->i = - z->i;
8 }