Gitiles
Code Review Sign In
realtimeroboticsgroup.org / RealtimeRoboticsGroup / test / 189376f1eb10ecaca8a0b1ea00eba0e6f995da27 / . / 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}