gcc/f/runtime/libF77/d_cnjg.c

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