OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

cope with partial overlap

Browse Source 
From-SVN: r26741
This commit is contained in:
Craig Burley 1999-05-03 08:36:27 +00:00 committed by Craig Burley
parent a152cad74a
commit 336725627d
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libf2c/ChangeLog
View File

@ -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:

6
libf2c/libF77/c_log.c
View File

@ -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 ) );
}