Mercurial > octave-nkf

comparison src/DLD-FUNCTIONS/eig.cc @ 7578:91f8446ce4ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
handle possible error from EIG
author John W. Eaton <jwe@octave.org>
date Tue, 11 Mar 2008 10:49:33 -0400
parents a1dbe9d80eee
children 82be108cc558 72830070a17b
comparison
equal deleted inserted replaced
7577:ba8fcc115fee 7578:91f8446ce4ae
99 { 99 {
100 gripe_wrong_type_arg ("eig", tmp); 100 gripe_wrong_type_arg ("eig", tmp);
101 return retval; 101 return retval;
102 } 102 }
103 103
104 if (nargout == 0 || nargout == 1) 104 if (! error_state)
105 { 105 {
106 retval(0) = result.eigenvalues (); 106 if (nargout == 0 || nargout == 1)
107 } 107 {
108 else 108 retval(0) = result.eigenvalues ();
109 { 109 }
110 // Blame it on Matlab. 110 else
111 {
112 // Blame it on Matlab.
111 113
112 ComplexDiagMatrix d (result.eigenvalues ()); 114 ComplexDiagMatrix d (result.eigenvalues ());
113 115
114 retval(1) = d; 116 retval(1) = d;
115 retval(0) = result.eigenvectors (); 117 retval(0) = result.eigenvectors ();
118 }
116 } 119 }
117 120
118 return retval; 121 return retval;
119 } 122 }
120 123