Mercurial > hg > octave-lyh

changeset 931:0494ae4d384c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-11-16 15:26:09 by jwe]
author jwe
date Wed, 16 Nov 1994 15:26:09 +0000
parents b02124748d40
children 1c9812d0cf59
files src/xdiv.cc
diffstat 1 files changed, 10 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/xdiv.cc
+++ b/src/xdiv.cc
@@ -41,8 +41,16 @@
 
   if (info == -2)
     {
-      error ("matrix singular to machine precision, rcond = %g", rcond);
-      return 0;
+      if (warn)
+	{
+	  warning ("matrix singular to machine precision, rcond = %g", rcond);
+	  return 1;
+	}
+      else
+	{
+	  error ("matrix singular to machine precision, rcond = %g", rcond);
+	  return 0;
+	}
     }
   else
     return 1;