Mercurial > hg > octave-max

changeset 3957:5490981096f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-05-24 05:57:51 by jwe]
author jwe
date Fri, 24 May 2002 05:57:51 +0000
parents 8a5596d6f7c4
children b88e01ad515e
files src/DLD-FUNCTIONS/lsode.cc
diffstat 1 files changed, 9 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/lsode.cc
+++ b/src/DLD-FUNCTIONS/lsode.cc
@@ -454,8 +454,15 @@
       if (keyword_almost_match (list->kw_tok, list->min_len, keyword,
 				list->min_toks_to_match, MAX_TOKENS))
 	{
-	  if (list->d_set_fcn)
-	    (lsode_opts.*list->d_set_fcn) (val);
+	  if (list->da_set_fcn)
+	    {
+	      Array<double> tmp (1, val);
+	      (lsode_opts.*list->da_set_fcn) (tmp);
+	    }
+	  else if (list->d_set_fcn)
+	    {
+	      (lsode_opts.*list->d_set_fcn) (val);
+	    }
 	  else
 	    {
 	      if (xisnan (val))