Mercurial > hg > octave-avbm
changeset 1657:67678f04b8ba
[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 +++ b/liboctave/CMatrix.cc @@ -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 +++ b/liboctave/dMatrix.cc @@ -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