Mercurial > hg > octave-jordi

diff src/ov-re-diag.cc @ 8398:d95282fa0579

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
allow element assignment to diagonal matrices
author Jaroslav Hajek <highegg@gmail.com>
date Thu, 11 Dec 2008 11:04:00 +0100 (2008-12-11)
parents ad896677a2e2
children a1ae2aae903e
line wrap: on
line diff
--- a/src/ov-re-diag.cc
+++ b/src/ov-re-diag.cc
@@ -189,3 +189,12 @@
   return true;
 }
 
+bool 
+octave_diag_matrix::chk_valid_scalar (const octave_value& val, 
+                                      double& x) const
+{
+  bool retval = val.is_real_scalar ();
+  if (retval)
+    x = val.double_value ();
+  return retval;
+}