Mercurial > hg > octave-nkf

comparison liboctave/CmplxSCHUR.cc @ 7482:29980c6b8604

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 eb63fbe60fab
comparison
equal deleted inserted replaced
7481:78f3811155f7 7482:29980c6b8604
130 pwork, lwork, prwork, pbwork, info 130 pwork, lwork, prwork, pbwork, info
131 F77_CHAR_ARG_LEN (1) 131 F77_CHAR_ARG_LEN (1)
132 F77_CHAR_ARG_LEN (1) 132 F77_CHAR_ARG_LEN (1)
133 F77_CHAR_ARG_LEN (1))); 133 F77_CHAR_ARG_LEN (1)));
134 134
135 if (f77_exception_encountered)
136 (*current_liboctave_error_handler) ("unrecoverable error in zgeesx");
137
138 return info; 135 return info;
139 } 136 }
140 137
141 /* 138 /*
142 ;;; Local Variables: *** 139 ;;; Local Variables: ***