eigen/blas/f2c/d_cnjg.c
2024-02-12 19:36:07 +00:00

7 lines
109 B
C

#include "datatypes.h"
void d_cnjg(doublecomplex *r, doublecomplex *z) {
r->r = z->r;
r->i = -(z->i);
}