path: root/blas/f2c/d_cnjg.c

#include "datatypes.h"    

void d_cnjg(doublecomplex *r, doublecomplex *z) {
    r->r = z->r;
    r->i = -(z->i);
}