contrib/gcc-3.4/libf2c/libF77/d_cnjg.c

   1 #include "f2c.h"
   2
   3 void
   4 d_cnjg (doublecomplex * r, doublecomplex * z)
   5 {
   6   doublereal zi = z->i;
   7   r->r = z->r;
   8   r->i = -zi;
   9 }