Mercurial > hg > octave-lyh
diff liboctave/EIG.cc @ 7482:29980c6b8604
don't check f77_exception_encountered
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Thu, 14 Feb 2008 21:57:50 -0500 |
| parents | a1dbe9d80eee |
| children | 18c4ded8612a |
line wrap: on
line diff
--- a/liboctave/EIG.cc +++ b/liboctave/EIG.cc @@ -116,7 +116,7 @@ F77_CHAR_ARG_LEN (1) F77_CHAR_ARG_LEN (1))); - if (! f77_exception_encountered && info == 0) + if (info == 0) { lwork = static_cast<octave_idx_type> (dummy_work); Array<double> work (lwork); @@ -129,7 +129,7 @@ F77_CHAR_ARG_LEN (1) F77_CHAR_ARG_LEN (1))); - if (f77_exception_encountered || info < 0) + if (info < 0) { (*current_liboctave_error_handler) ("unrecoverable error in dgeev"); return info; @@ -208,7 +208,7 @@ F77_CHAR_ARG_LEN (1) F77_CHAR_ARG_LEN (1))); - if (! f77_exception_encountered && info == 0) + if (info == 0) { lwork = static_cast<octave_idx_type> (dummy_work); Array<double> work (lwork); @@ -220,7 +220,7 @@ F77_CHAR_ARG_LEN (1) F77_CHAR_ARG_LEN (1))); - if (f77_exception_encountered || info < 0) + if (info < 0) { (*current_liboctave_error_handler) ("unrecoverable error in dsyev"); return info; @@ -291,7 +291,7 @@ F77_CHAR_ARG_LEN (1) F77_CHAR_ARG_LEN (1))); - if (! f77_exception_encountered && info == 0) + if (info == 0) { lwork = static_cast<octave_idx_type> (dummy_work.real ()); Array<Complex> work (lwork); @@ -304,7 +304,7 @@ F77_CHAR_ARG_LEN (1) F77_CHAR_ARG_LEN (1))); - if (f77_exception_encountered || info < 0) + if (info < 0) { (*current_liboctave_error_handler) ("unrecoverable error in zgeev"); return info; @@ -358,7 +358,7 @@ F77_CHAR_ARG_LEN (1) F77_CHAR_ARG_LEN (1))); - if (! f77_exception_encountered && info == 0) + if (info == 0) { lwork = static_cast<octave_idx_type> (dummy_work.real ()); Array<Complex> work (lwork); @@ -370,7 +370,7 @@ F77_CHAR_ARG_LEN (1) F77_CHAR_ARG_LEN (1))); - if (f77_exception_encountered || info < 0) + if (info < 0) { (*current_liboctave_error_handler) ("unrecoverable error in zheev"); return info;