contrib/libf2c/libF77/d_cnjg.c

   1 #include "f2c.h"
   2
   3  VOID
   4 #ifdef KR_headers
   5 d_cnjg(r, z) doublecomplex *r, *z;
   6 #else
   7 d_cnjg(doublecomplex *r, doublecomplex *z)
   8 #endif
   9 {
  10         doublereal zi = z->i;
  11         r->r = z->r;
  12         r->i = -zi;
  13         }