Return to d_cnjg.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / libF77

Annotation of cci/usr/src/usr.lib/libF77/d_cnjg.c, revision 1.1.1.1

1.1       root        1: #include "complex"
                      2: #include <FP.h>
                      3: 
                      4: d_cnjg(r, z)
                      5: dcomplex *r, *z;
                      6: {
                      7: r->dreal = z->dreal;
                      8: r->dimag = z->dimag;
                      9: if (z->dimag == 0.0)
                     10:    return;
                     11: else
                     12:   *(unsigned long *)&(z->dimag) ^= SIGN_BIT;
                     13: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.