Mercurial > hg > octave-nkf

diff src/OPERATORS/op-scm-m.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 8d7162924bd3
children 8e0f1eda266b
line wrap: on
line diff
--- a/src/OPERATORS/op-scm-m.cc
+++ b/src/OPERATORS/op-scm-m.cc
@@ -50,8 +50,13 @@
 {
   CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, 
                    const octave_matrix&);
+  MatrixType typ = v2.matrix_type ();
   
-  return xdiv (v1.complex_matrix_value (), v2.matrix_value ());
+  ComplexMatrix ret = xdiv (v1.complex_matrix_value (), 
+			    v2.matrix_value (), typ);
+
+  v2.matrix_type (typ);
+  return ret;
 }
 
 DEFBINOPX (pow, sparse_complex_matrix, matrix)
@@ -64,12 +69,12 @@
 {
   CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, const octave_matrix&);
   
-  SparseType typ = v1.sparse_type ();
+  MatrixType typ = v1.matrix_type ();
 
   ComplexMatrix ret = xleftdiv (v1.sparse_complex_matrix_value (), 
 				v2.matrix_value (), typ);
 
-  v1.sparse_type (typ);
+  v1.matrix_type (typ);
   return ret;
 }