Upgrade to the 1997/02/26 version.

1 files changed, 4 insertions, 3 deletions

diff --git a/lib/libF77/z_cos.c b/lib/libF77/z_cos.c
index bc9e23e..fdd1510 100644
--- a/lib/libF77/z_cos.c
+++ b/lib/libF77/z_cos.c
@@ -9,6 +9,7 @@ VOID z_cos(r, z) doublecomplex *r, *z;
 void z_cos(doublecomplex *r, doublecomplex *z)
 #endif
 {
-r->r = cos(z->r) * cosh(z->i);
-r->i = - sin(z->r) * sinh(z->i);
-}
+	double zr = z->r;
+	r->r =   cos(zr) * cosh(z->i);
+	r->i = - sin(zr) * sinh(z->i);
+	}