Mercurial > hg > octave-lyh

diff src/svd.cc @ 622:6636e6198f01
[project @ 1994-08-16 15:08:03 by jwe]
author: jwe
date: Tue, 16 Aug 1994 15:08:03 +0000
parents: 8e4e7e5f307e
children: aecbe369233b
--- a/src/svd.cc
+++ b/src/svd.cc
@@ -80,6 +80,9 @@
     {
       Matrix tmp = arg.matrix_value ();
 
+      if (error_state)
+	return retval;
+
       SVD result (tmp, type);
 
       DiagMatrix sigma = result.singular_values ();
@@ -99,6 +102,9 @@
     {
       ComplexMatrix ctmp = arg.complex_matrix_value ();
 
+      if (error_state)
+	return retval;
+
       ComplexSVD result (ctmp, type);
 
       DiagMatrix sigma = result.singular_values ();