Mercurial > hg > octave-nkf
changeset 3957:5490981096f1
[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))