Mercurial > hg > octave-lyh
diff liboctave/CMatrix.cc @ 3838:7b4bdb12b77b
[project @ 2001-06-07 19:00:42 by jwe]
author | jwe |
---|---|
date | Thu, 07 Jun 2001 19:00:42 +0000 |
parents | ba548facf43b |
children | e78705239df5 |
line wrap: on
line diff
--- a/liboctave/CMatrix.cc +++ b/liboctave/CMatrix.cc @@ -895,7 +895,7 @@ { volatile double rcond_plus_one = rcond + 1.0; - if (rcond_plus_one == 1.0) + if (rcond_plus_one == 1.0 || xisnan (rcond)) info = -1; if (info == -1 && ! force) @@ -1307,7 +1307,7 @@ { volatile double rcond_plus_one = rcond + 1.0; - if (rcond_plus_one == 1.0) + if (rcond_plus_one == 1.0 || xisnan (rcond)) { info = -1; retval = ComplexDET (); @@ -1413,7 +1413,7 @@ { volatile double rcond_plus_one = rcond + 1.0; - if (rcond_plus_one == 1.0) + if (rcond_plus_one == 1.0 || xisnan (rcond)) { info = -2; @@ -1531,12 +1531,12 @@ if (f77_exception_encountered) (*current_liboctave_error_handler) - ("unrecoverable error in dgeco"); + ("unrecoverable error in zgeco"); else { volatile double rcond_plus_one = rcond + 1.0; - if (rcond_plus_one == 1.0) + if (rcond_plus_one == 1.0 || xisnan (rcond)) { info = -2;