Mercurial > hg > octave-lojdl

diff src/OPERATORS/op-cm-scm.cc @ 5322:22994a5730f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-04-29 13:04:24 by dbateman]
author dbateman
date Fri, 29 Apr 2005 13:04:25 +0000
parents 4c8a2e4e0717
children 2042301733ce
line wrap: on
line diff
--- a/src/OPERATORS/op-cm-scm.cc
+++ b/src/OPERATORS/op-cm-scm.cc
@@ -55,11 +55,15 @@
 
 DEFBINOP (div, complex_matrix, sparse_complex_matrix)
 {
-  CAST_BINOP_ARGS (const octave_complex_matrix&, 
-		   const octave_sparse_complex_matrix&);
+  CAST_BINOP_ARGS (const octave_complex_matrix&, octave_sparse_complex_matrix&);
   
-  return xdiv (v1.complex_matrix_value (), 
-	       v2.sparse_complex_matrix_value ());
+  SparseType typ = v2.sparse_type ();
+
+  ComplexMatrix ret = xdiv (v1.complex_matrix_value (), 
+			    v2.sparse_complex_matrix_value (), typ);
+
+  v2.sparse_type (typ);
+  return ret;
 }
 
 DEFBINOPX (pow, complex_matrix, sparse_complex_matrix)