Mercurial > hg > octave-avbm

diff src/OPERATORS/op-cm-s.cc @ 5785:6b9cec830d72

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-05-03 19:32:46 by dbateman]
author dbateman
date Wed, 03 May 2006 19:32:48 +0000
parents 4c8a2e4e0717
children 93c65f2a5668
line wrap: on
line diff
--- a/src/OPERATORS/op-cm-s.cc
+++ b/src/OPERATORS/op-cm-s.cc
@@ -65,8 +65,12 @@
 
   ComplexMatrix m1 = v1.complex_matrix_value ();
   Matrix m2 = v2.matrix_value ();
+  MatrixType typ = v1.matrix_type ();
 
-  return octave_value (xleftdiv (m1, m2));
+  ComplexMatrix ret = xleftdiv (m1, m2, typ);
+
+  v1.matrix_type (typ);
+  return ret;
 }
 
 DEFNDBINOP_FN (lt, complex_matrix, scalar, complex_array, scalar, mx_el_lt)