diff options
Diffstat (limited to 'libf2c/libF77/z_cos.c')
| -rw-r--r-- | libf2c/libF77/z_cos.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libf2c/libF77/z_cos.c b/libf2c/libF77/z_cos.c index fdd1510..2d4a24d 100644 --- a/libf2c/libF77/z_cos.c +++ b/libf2c/libF77/z_cos.c @@ -9,7 +9,7 @@ VOID z_cos(r, z) doublecomplex *r, *z; void z_cos(doublecomplex *r, doublecomplex *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); } |