Mercurial > hg > octave-jordi

diff src/DLD-FUNCTIONS/schur.cc @ 5008:c2bb27ada496

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-09-17 14:45:39 by jwe]
author jwe
date Fri, 17 Sep 2004 14:45:39 +0000
parents c11d138d654a
children 23b37da9fd5b
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/schur.cc
+++ b/src/DLD-FUNCTIONS/schur.cc
@@ -300,14 +300,14 @@
 
       if (! error_state)
 	{
-	  SCHUR result (tmp, ord);
-
 	  if (nargout == 0 || nargout == 1)
 	    {
+	      SCHUR result (tmp, ord, false);
 	      retval(0) = result.schur_matrix ();
 	    }
 	  else
 	    {
+	      SCHUR result (tmp, ord, true);
 	      retval(1) = result.schur_matrix ();
 	      retval(0) = result.unitary_matrix ();
 	    }
@@ -319,14 +319,15 @@
 
       if (! error_state)
 	{
-	  ComplexSCHUR result (ctmp, ord);
  
 	  if (nargout == 0 || nargout == 1)
 	    {
+	      ComplexSCHUR result (ctmp, ord, false);
 	      retval(0) = result.schur_matrix ();
 	    }
 	  else
 	    {
+	      ComplexSCHUR result (ctmp, ord, true);
 	      retval(1) = result.schur_matrix ();
 	      retval(0) = result.unitary_matrix ();
 	    }