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