source: parpcx/trunk/src/pcx/F2C/d_cnjg.c @ 2701

Revision 2701, 280 bytes checked in by lafisk, 8 years ago (diff)

adding #include <acro_config.h>
parpcx isn't building yet because we haven't written a Makefile for it

( Links to Acro-related mail archives at  http://software.sandia.gov/Acro/ )

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1#include <acro_config.h>
2#include "f2c.h"
3#ifdef __cplusplus
4extern "C" {
5#endif
6
7 VOID
8#ifdef KR_headers
9d_cnjg(r, z) doublecomplex *r, *z;
10#else
11d_cnjg(doublecomplex *r, doublecomplex *z)
12#endif
13{
14        doublereal zi = z->i;
15        r->r = z->r;
16        r->i = -zi;
17        }
18#ifdef __cplusplus
19}
20#endif
Note: See TracBrowser for help on using the repository browser.