Mercurial > hg > octave-nkf

diff liboctave/CmplxSVD.cc @ 1544:f1931fc63ce9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-10-06 05:57:56 by jwe]
author jwe
date Fri, 06 Oct 1995 06:01:19 +0000
parents d6e96e0bc681
children 8bdfa6fe5d69
line wrap: on
line diff
--- a/liboctave/CmplxSVD.cc
+++ b/liboctave/CmplxSVD.cc
@@ -47,7 +47,7 @@
 ComplexMatrix
 ComplexSVD::left_singular_matrix (void) const
 {
-  if (type == SVD::sigma_only)
+  if (type_computed == SVD::sigma_only)
     {
       (*current_liboctave_error_handler)
 	("ComplexSVD: U not computed because type == SVD::sigma_only");
@@ -60,7 +60,7 @@
 ComplexMatrix
 ComplexSVD::right_singular_matrix (void) const
 {
-  if (type == SVD::sigma_only)
+  if (type_computed == SVD::sigma_only)
     {
       (*current_liboctave_error_handler)
 	("ComplexSVD: V not computed because type == SVD::sigma_only");
@@ -107,6 +107,8 @@
       break;
     }
 
+  type_computed = svd_type;
+
   Complex *u = (ncol_u > 0 ? new Complex[m * ncol_u] : 0);
   double *s_vec  = new double[min_mn];
   Complex *vt = (nrow_vt > 0 ? new Complex[nrow_vt * n] : 0);