source: trunk/src/gcc/libf2c/libF77/r_cnjg.c@ 2

Last change on this file since 2 was 2, checked in by bird, 23 years ago

Initial revision
  • Property cvs2svn:cvs-rev set to 1.1
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 168 bytes
Line 
1#include "f2c.h"
2
3#ifdef KR_headers
4VOID r_cnjg(r, z) complex *r, *z;
5#else
6VOID r_cnjg(complex *r, complex *z)
7#endif
8{
9 real zi = z->i;
10 r->r = z->r;
11 r->i = -zi;
12 }
Note: See TracBrowser for help on using the repository browser.