* Makefile.tpl: Fix stupid pasto.
[official-gcc.git] / libf2c / libF77 / r_cnjg.c
blob5f849291b2072c0db48cb5d9707981d00529de53
1 #include "f2c.h"
3 void
4 r_cnjg (complex * r, complex * z)
6 real zi = z->i;
7 r->r = z->r;
8 r->i = -zi;