# HG changeset patch
# User jwe
# Date 1022219871 0
# Node ID 5490981096f1495f2f5d04dc566a996090ae2b9e
# Parent  8a5596d6f7c40913cdeff1e4dd0aad9015ffe574
[project @ 2002-05-24 05:57:51 by jwe]

diff -r 8a5596d6f7c4 -r 5490981096f1 src/DLD-FUNCTIONS/lsode.cc
--- a/src/DLD-FUNCTIONS/lsode.cc	Fri May 24 05:29:58 2002 +0000
+++ b/src/DLD-FUNCTIONS/lsode.cc	Fri May 24 05:57:51 2002 +0000
@@ -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))