--- a/liboctave/dMatrix.cc	Tue Nov 16 16:13:51 1999 +0000
+++ b/liboctave/dMatrix.cc	Wed Nov 17 19:06:15 1999 +0000
@@ -167,6 +167,22 @@
   return !(*this == a);
 }
 
+bool
+Matrix::is_symmetric (void) const
+{
+  if (is_square () && rows () > 0)
+    {
+      for (int i = 0; i < rows (); i++)
+	for (int j = i+1; j < cols (); j++)
+	  if (elem (i, j) != elem (j, i))
+	    return false;
+
+      return true;
+    }
+
+  return false;
+}
+
 Matrix&
 Matrix::insert (const Matrix& a, int r, int c)
 {