[project @ 2002-02-23 03:04:25 by jwe]
author |
jwe |
date |
Sat, 23 Feb 2002 03:04:25 +0000 |
parents |
57d51184b669 |
children |
24bf1bcbba8a |
files |
liboctave/ChangeLog liboctave/lo-mappers.cc |
diffstat |
2 files changed, 5 insertions(+), 8 deletions(-)
[+]
|
line diff
--- a/liboctave/ChangeLog
+++ b/liboctave/ChangeLog
@@ -1,3 +1,7 @@
+2002-02-22 Paul Kienzle <pkienzle@jazz.ncnr.nist.gov>
+
+ * lo-mappers.cc (arg): Simply call atan2 (0.0, x).
+
2001-12-17 John W. Eaton <jwe@bevo.che.wisc.edu>
* data-conv.cc (LS_DO_READ): Don't do anything unless len > 0.
--- a/liboctave/lo-mappers.cc
+++ b/liboctave/lo-mappers.cc
@@ -62,14 +62,7 @@
double
arg (double x)
{
- if (x < 0.0)
- return M_PI;
- else
-#if defined (HAVE_ISNAN)
- return xisnan (x) ? octave_NaN : 0.0;
-#else
- return 0.0;
-#endif
+ return atan2 (0.0, x);
}
double