]> CyberLeo.Net >> Repos - FreeBSD/FreeBSD.git/blob - contrib/libf2c/libF77/r_cnjg.c
This commit was generated by cvs2svn to compensate for changes in r159248,
[FreeBSD/FreeBSD.git] / contrib / libf2c / libF77 / r_cnjg.c
1 #include "f2c.h"
2
3 void
4 r_cnjg (complex * r, complex * z)
5 {
6   real zi = z->i;
7   r->r = z->r;
8   r->i = -zi;
9 }