diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-05-03 08:35:22 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-05-03 04:35:22 -0400 |
| commit | a152cad74a458145a270781a312a0c2285dfdc4f (patch) | |
| tree | ea41d96ced81202582163d875e6b33b81b65d173 /libf2c/libF77/c_cos.c | |
| parent | 9cfd948e77910a87d473a70f6c6b5c6f7863915f (diff) | |
| download | gcc-a152cad74a458145a270781a312a0c2285dfdc4f.zip gcc-a152cad74a458145a270781a312a0c2285dfdc4f.tar.gz gcc-a152cad74a458145a270781a312a0c2285dfdc4f.tar.bz2 | |
Update to Netlib version of 1999-05-03
From-SVN: r26740
Diffstat (limited to 'libf2c/libF77/c_cos.c')
| -rw-r--r-- | libf2c/libF77/c_cos.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libf2c/libF77/c_cos.c b/libf2c/libF77/c_cos.c index 4aea0c3..549953d 100644 --- a/libf2c/libF77/c_cos.c +++ b/libf2c/libF77/c_cos.c @@ -11,7 +11,7 @@ VOID c_cos(r, z) complex *r, *z; void c_cos(complex *r, complex *z) #endif { - double zr = z->r; - r->r = cos(zr) * cosh(z->i); - r->i = - sin(zr) * sinh(z->i); + double zi = z->i, zr = z->r; + r->r = cos(zr) * cosh(zi); + r->i = - sin(zr) * sinh(zi); } |