Mercurial > hg > octave-nkf

diff liboctave/CMatrix.cc @ 5387:5b00a8beb504

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-06-14 17:13:45 by jwe]
author jwe
date Tue, 14 Jun 2005 17:13:45 +0000
parents f64ec7b38586
children 25c8956d2204
line wrap: on
line diff
--- a/liboctave/CMatrix.cc
+++ b/liboctave/CMatrix.cc
@@ -2607,12 +2607,10 @@
 	double r_val = std::real (val);
 	double i_val = std::imag (val);
 
-	if ((! octave_is_NaN_or_NA (r_val)
-	     && ! xisinf (r_val)
-	     && (r_val > FLT_MAX || r_val < FLT_MIN))
-	    || (! octave_is_NaN_or_NA (i_val)
-		&& ! xisinf (i_val)
-		&& (i_val > FLT_MAX || i_val < FLT_MIN)))
+	if ((! (octave_is_NaN_or_NA (r_val) || xisinf (r_val))
+	     && fabs (r_val) > FLT_MAX)
+	    || (! (octave_is_NaN_or_NA (i_val) || xisinf (i_val))
+		&& fabs (i_val) > FLT_MAX))
 	  return true;
       }