diff options
author | Craig Burley <craig@jcb-sc.com> | 1999-05-03 08:33:21 +0000 |
---|---|---|
committer | Craig Burley <burley@gcc.gnu.org> | 1999-05-03 04:33:21 -0400 |
commit | 9cfd948e77910a87d473a70f6c6b5c6f7863915f (patch) | |
tree | 45ef91b9ac4f48ed52f259bf5ef40196e9479ead /libf2c/libF77/d_cnjg.c | |
parent | d0369a2f4eea235f17c00a738552122c0ba6c681 (diff) | |
download | gcc-9cfd948e77910a87d473a70f6c6b5c6f7863915f.zip gcc-9cfd948e77910a87d473a70f6c6b5c6f7863915f.tar.gz gcc-9cfd948e77910a87d473a70f6c6b5c6f7863915f.tar.bz2 |
revert back to netlib versions as of f2c-19990501
From-SVN: r26739
Diffstat (limited to 'libf2c/libF77/d_cnjg.c')
-rw-r--r-- | libf2c/libF77/d_cnjg.c | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/libf2c/libF77/d_cnjg.c b/libf2c/libF77/d_cnjg.c index 1afa3bc..c778c38 100644 --- a/libf2c/libF77/d_cnjg.c +++ b/libf2c/libF77/d_cnjg.c @@ -2,16 +2,11 @@ VOID #ifdef KR_headers -d_cnjg(resx, z) doublecomplex *resx, *z; +d_cnjg(r, z) doublecomplex *r, *z; #else -d_cnjg(doublecomplex *resx, doublecomplex *z) +d_cnjg(doublecomplex *r, doublecomplex *z) #endif { -doublecomplex res; - -res.r = z->r; -res.i = - z->i; - -resx->r = res.r; -resx->i = res.i; +r->r = z->r; +r->i = - z->i; } |