Gitiles
Code Review Sign In
realtimeroboticsgroup.org / RealtimeRoboticsGroup / test / c55b0172b26fcf0a0b8d5ef0b98c87128e0f6bdb / . / blas / f2c / d_cnjg.c
blob: 623090c6b0ecf9eae7f76a8fa16ca8cde9e98171 [file] [log] [blame]
Austin Schuh189376f2018-12-20 22:11:15 +1100[diff] [blame]1#include "datatypes.h"
2
3void d_cnjg(doublecomplex *r, doublecomplex *z) {
4 r->r = z->r;
5 r->i = -(z->i);
6}