Mercurial > octave

comparison src/lsode.cc @ 272:7ec58832918f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-01-06 18:54:08 by jwe]
author jwe
date Thu, 06 Jan 1994 18:54:08 +0000
parents 1c9a678906fb
children c23f50e61c58
comparison
equal deleted inserted replaced
271:64b486b19ce4 272:7ec58832918f
40 #ifdef WITH_DLD 40 #ifdef WITH_DLD
41 tree_constant * 41 tree_constant *
42 builtin_lsode_2 (const tree_constant *args, int nargin, int nargout) 42 builtin_lsode_2 (const tree_constant *args, int nargin, int nargout)
43 { 43 {
44 return lsode (args, nargin, nargout); 44 return lsode (args, nargin, nargout);
45 }
46
47 tree_constant *
48 builtin_lsode_options_2 (const tree_constant *args, int nargin, int nargout)
49 {
50 return lsode_options (args, nargin, nargout);
45 } 51 }
46 #endif 52 #endif
47 53
48 ColumnVector 54 ColumnVector
49 lsode_user_function (const ColumnVector& x, double t) 55 lsode_user_function (const ColumnVector& x, double t)
142 retval = new tree_constant [2]; 148 retval = new tree_constant [2];
143 retval[0] = tree_constant (output); 149 retval[0] = tree_constant (output);
144 return retval; 150 return retval;
145 } 151 }
146 152
153 tree_constant *
154 lsode_options (const tree_constant *args, int nargin, int nargout)
155 {
156 // Assumes that we have been given the correct number of arguments.
157
158 tree_constant *retval = NULL_TREE_CONST;
159 error ("lsode_options: not implemented yet");
160 return retval;
161 }
162
147 /* 163 /*
148 ;;; Local Variables: *** 164 ;;; Local Variables: ***
149 ;;; mode: C++ *** 165 ;;; mode: C++ ***
150 ;;; page-delimiter: "^/\\*" *** 166 ;;; page-delimiter: "^/\\*" ***
151 ;;; End: *** 167 ;;; End: ***