Mercurial > hg > octave-nkf

diff liboctave/CMatrix.cc @ 4349:a6c22c2c9b09

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-02-21 18:59:07 by jwe]
author jwe
date Fri, 21 Feb 2003 18:59:07 +0000
parents 9f86c2055b58
children f1fcc371e5ef
line wrap: on
line diff
--- a/liboctave/CMatrix.cc
+++ b/liboctave/CMatrix.cc
@@ -2487,9 +2487,15 @@
   int nc = cols ();
 
   for (int j = 0; j < nc; j++)
-    for (int i = 0; i < nr; i++)
-      if (imag (elem (i, j)) != 0.0)
-	return false;
+    {
+      for (int i = 0; i < nr; i++)
+	{
+	  double ip = imag (elem (i, j));
+
+	  if (ip != 0.0 || lo_ieee_signbit (ip))
+	    return false;
+	}
+    }
 
   return true;
 }