diff options
Diffstat (limited to 'libf2c/libF77/c_log.c')
| -rw-r--r-- | libf2c/libF77/c_log.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libf2c/libF77/c_log.c b/libf2c/libF77/c_log.c index 6ac990ca267..24d1a3c957b 100644 --- a/libf2c/libF77/c_log.c +++ b/libf2c/libF77/c_log.c @@ -11,7 +11,7 @@ extern double f__cabs(double, double); void c_log(complex *r, complex *z) #endif { - double zi; - r->i = atan2(zi = z->i, z->r); - r->r = log( f__cabs(z->r, zi) ); + double zi, zr; + r->i = atan2(zi = z->i, zr = z->r); + r->r = log( f__cabs(zr, zi) ); } |