Home | History | Annotate | Download | only in f2c 
      1 #include "datatypes.h"
      2 
      3 void d_cnjg(doublecomplex *r, doublecomplex *z) {
      4     r->r = z->r;
      5     r->i = -(z->i);
      6 }
      7