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