diff options
Diffstat (limited to 'lib/libF77/z_log.c')
| -rw-r--r-- | lib/libF77/z_log.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/libF77/z_log.c b/lib/libF77/z_log.c index fa1ac80..2d52b94 100644 --- a/lib/libF77/z_log.c +++ b/lib/libF77/z_log.c @@ -10,7 +10,7 @@ extern double f__cabs(double, double); void z_log(doublecomplex *r, doublecomplex *z) #endif { - -r->i = atan2(z->i, z->r); -r->r = log( f__cabs( z->r, z->i ) ); -} + double zi = z->i; + r->i = atan2(zi, z->r); + r->r = log( f__cabs( z->r, zi ) ); + } |
