Mercurial > octave
diff src/DLD-FUNCTIONS/lsode.cc @ 2968:e330cb788508
[project @ 1997-05-15 17:40:29 by jwe]
| author | jwe |
|---|---|
| date | Thu, 15 May 1997 17:54:17 +0000 |
| parents | 295f037b4b3e |
| children | 38de16594cb4 |
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/lsode.cc Thu May 15 16:47:12 1997 +0000 +++ b/src/DLD-FUNCTIONS/lsode.cc Thu May 15 17:54:17 1997 +0000 @@ -36,16 +36,16 @@ #include "gripes.h" #include "help.h" #include "oct-obj.h" -#include "oct-sym.h" +#include "ov-fcn.h" #include "pager.h" #include "utils.h" #include "variables.h" // Global pointer for user defined function required by lsode. -static octave_symbol *lsode_fcn; +static octave_function *lsode_fcn; // Global pointer for optional user defined jacobian function used by lsode. -static octave_symbol *lsode_jac; +static octave_function *lsode_jac; static LSODE_options lsode_opts; @@ -67,7 +67,7 @@ if (lsode_fcn) { - octave_value_list tmp = lsode_fcn->eval (1, args); + octave_value_list tmp = lsode_fcn->do_index_op (1, args); if (error_state) { @@ -107,7 +107,7 @@ if (lsode_jac) { - octave_value_list tmp = lsode_jac->eval (1, args); + octave_value_list tmp = lsode_jac->do_index_op (1, args); if (error_state) {