diff options
Diffstat (limited to 'lib/libF77/c_cos.c')
| -rw-r--r-- | lib/libF77/c_cos.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/libF77/c_cos.c b/lib/libF77/c_cos.c index d5fadd4..4aea0c3 100644 --- a/lib/libF77/c_cos.c +++ b/lib/libF77/c_cos.c @@ -11,6 +11,7 @@ VOID c_cos(r, z) complex *r, *z; void c_cos(complex *r, complex *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); + } |
