Mercurial > hg > octave-nkf

diff liboctave/dbleSCHUR.cc @ 10822:23d2378512a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
implement rsf2csf
author Jaroslav Hajek <highegg@gmail.com>
date Tue, 27 Jul 2010 11:26:43 +0200
parents f7501986e42d
children 8a5e980da6aa
line wrap: on
line diff
--- a/liboctave/dbleSCHUR.cc
+++ b/liboctave/dbleSCHUR.cc
@@ -154,3 +154,13 @@
 
   return os;
 }
+
+SCHUR::SCHUR (const Matrix& s, const Matrix& u)
+: schur_mat (s), unitary_mat (u)
+{
+  octave_idx_type n = s.rows ();
+  if (s.columns () != n || u.rows () != n || u.columns () != n)
+    (*current_liboctave_error_handler)
+      ("schur: inconsistent matrix dimensions");
+}
+