d_cnjg.c
Go to the documentation of this file.
00001 #include "f2c.h"
00002 #ifdef __cplusplus
00003 extern "C" {
00004 #endif
00005 
00006  VOID
00007 #ifdef KR_headers
00008 d_cnjg(r, z) doublecomplex *r, *z;
00009 #else
00010 d_cnjg(doublecomplex *r, doublecomplex *z)
00011 #endif
00012 {
00013         doublereal zi = z->i;
00014         r->r = z->r;
00015         r->i = -zi;
00016         }
00017 #ifdef __cplusplus
00018 }
00019 #endif


swiftnav
Author(s):
autogenerated on Sat Jun 8 2019 18:55:35