Mercurial > octave

changeset 1657:67678f04b8ba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-12-20 11:37:22 by jwe]
author jwe
date Wed, 20 Dec 1995 11:38:16 +0000
parents 5a8ad3d12304
children 0e9cd25503d9
files liboctave/CMatrix.cc liboctave/dMatrix.cc
diffstat 2 files changed, 10 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/CMatrix.cc	Wed Dec 20 11:02:49 1995 +0000
+++ b/liboctave/CMatrix.cc	Wed Dec 20 11:38:16 1995 +0000
@@ -794,9 +794,12 @@
   F77_FCN (zgeco, ZGECO) (tmp_data, nr, nc, ipvt, rcond, z);
 
   volatile double rcond_plus_one = rcond + 1.0;
-  if (rcond_plus_one == 1.0 && ! force)
+
+  if (rcond_plus_one == 1.0)
+    info = -1;
+
+  if (info == -1 && ! force)
     {
-      info = -1;
       copy (tmp_data, data (), len);  // Restore contents.
     }
   else
--- a/liboctave/dMatrix.cc	Wed Dec 20 11:02:49 1995 +0000
+++ b/liboctave/dMatrix.cc	Wed Dec 20 11:38:16 1995 +0000
@@ -523,9 +523,12 @@
   F77_FCN (dgeco, DGECO) (tmp_data, nr, nc, ipvt, rcond, z);
 
   volatile double rcond_plus_one = rcond + 1.0;
-  if (rcond_plus_one == 1.0 && ! force)
+
+  if (rcond_plus_one == 1.0)
+    info = -1;
+
+  if (info == -1 && ! force)
     {
-      info = -1;
       copy (tmp_data, data (), len);  // Restore matrix contents.
     }
   else