Mercurial > octave

comparison liboctave/LSODE.cc @ 1482:5f5d117aac3e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-09-26 09:14:22 by jwe]
author jwe
date Tue, 26 Sep 1995 09:19:49 +0000
parents 9f9131a8d706
children 0574a1f3a273
comparison
equal deleted inserted replaced
1481:f8d8b6aa31aa 1482:5f5d117aac3e
154 delete [] rwork; 154 delete [] rwork;
155 delete [] iwork; 155 delete [] iwork;
156 } 156 }
157 157
158 int 158 int
159 lsode_f (const int& neq, const double& time, double *state, 159 lsode_f (const int& neq, const double& time, double *,
160 double *deriv, int& ierr) 160 double *deriv, int& ierr)
161 { 161 {
162 ColumnVector tmp_deriv (neq); 162 ColumnVector tmp_deriv (neq);
163 163
164 // NOTE: this won't work if LSODE passes copies of the state vector. 164 // NOTE: this won't work if LSODE passes copies of the state vector.
177 177
178 return 0; 178 return 0;
179 } 179 }
180 180
181 int 181 int
182 lsode_j (const int& neq, const double& time, double *state, 182 lsode_j (const int& neq, const double& time, double *,
183 const int& ml, const int& mu, double *pd, const int& nrowpd) 183 const int&, const int&, double *pd, const int& nrowpd)
184 { 184 {
185 Matrix tmp_jac (neq, neq); 185 Matrix tmp_jac (neq, neq);
186 186
187 // NOTE: this won't work if LSODE passes copies of the state vector. 187 // NOTE: this won't work if LSODE passes copies of the state vector.
188 // In that case we have to create a temporary vector object 188 // In that case we have to create a temporary vector object