diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-05-03 08:36:27 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-05-03 04:36:27 -0400 |
| commit | 336725627d41f7311c297eeb3071df024b0fa265 (patch) | |
| tree | 3fcffe2c457eb840e26e303271cfb41d1478d037 /libf2c | |
| parent | a152cad74a458145a270781a312a0c2285dfdc4f (diff) | |
cope with partial overlap
From-SVN: r26741
Diffstat (limited to 'libf2c')
| -rw-r--r-- | libf2c/ChangeLog | 5 | ||||
| -rw-r--r-- | libf2c/libF77/c_log.c | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index c74ab760ee4..7ed7ca57ee6 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,8 @@ +Mon May 3 11:21:35 1999 Craig Burley <craig@jcb-sc.com> + + * libF77/c_log.c: Cope with partial overlap a la z_log.c. + (Change likely to be made to netlib version shortly.) + Mon May 3 11:12:38 1999 Craig Burley <craig@jcb-sc.com> Update to Netlib version of 1999-05-03: diff --git a/libf2c/libF77/c_log.c b/libf2c/libF77/c_log.c index 6ac990ca267..6e3df66653b 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 = z->i, zr = z->r; + r->i = atan2(zi, zr); + r->r = log( f__cabs( zr, zi ) ); } |