Mercurial > hg > octave-nkf

diff liboctave/dSparse.cc @ 6989:2d326000e09b
[project @ 2007-10-09 20:32:42 by jwe]
author: jwe
date: Tue, 09 Oct 2007 20:32:43 +0000
parents: be176b7e110a
children: 93c65f2a5668
--- a/liboctave/dSparse.cc
+++ b/liboctave/dSparse.cc
@@ -7651,6 +7651,18 @@
 }
 
 bool
+SparseMatrix::all_elements_are_zero (void) const
+{
+  octave_idx_type nel = nnz ();
+
+  for (octave_idx_type i = 0; i < nel; i++)
+    if (data (i) != 0)
+      return false;
+
+  return true;
+}
+
+bool
 SparseMatrix::all_elements_are_int_or_inf_or_nan (void) const
 {
   octave_idx_type nel = nnz ();