|
|
1.1 root 1: /*
2: * "@(#)d_cnjg.c 1.1"
3: */
4:
5: #include "complex"
6:
7: d_cnjg(r, z)
8: dcomplex *r, *z;
9: {
10: r->dreal = z->dreal;
11: r->dimag = - z->dimag;
12: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.