Mercurial > octave-nkf

comparison liboctave/LSODE.cc @ 4583:70da2b8c91dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-10-31 15:18:31 by jwe]
author jwe
date Fri, 31 Oct 2003 15:20:51 +0000
parents 6f3382e08a52
children e35b034d3523
comparison
equal deleted inserted replaced
4582:db5a24d54915 4583:70da2b8c91dd
45 int&); 45 int&);
46 46
47 extern "C" 47 extern "C"
48 { 48 {
49 F77_RET_T 49 F77_RET_T
50 F77_FUNC (lsode, LSODE) (lsode_fcn_ptr, int&, double*, double&, 50 F77_FUNC (dlsode, DLSODE) (lsode_fcn_ptr, int&, double*, double&,
51 double&, int&, double&, const double*, int&, 51 double&, int&, double&, const double*, int&,
52 int&, int&, double*, int&, int*, int&, 52 int&, int&, double*, int&, int*, int&,
53 lsode_jac_ptr, int&); 53 lsode_jac_ptr, int&);
54 } 54 }
55 55
56 static ODEFunc::ODERHSFunc user_fun; 56 static ODEFunc::ODERHSFunc user_fun;
57 static ODEFunc::ODEJacFunc user_jac; 57 static ODEFunc::ODEJacFunc user_jac;
58 static ColumnVector *tmp_x; 58 static ColumnVector *tmp_x;
271 pabs_tol = abs_tol.fortran_vec (); 271 pabs_tol = abs_tol.fortran_vec ();
272 272
273 LSODE_options::reset = false; 273 LSODE_options::reset = false;
274 } 274 }
275 275
276 F77_XFCN (lsode, LSODE, (lsode_f, nn, px, t, tout, itol, rel_tol, 276 F77_XFCN (dlsode, DLSODE, (lsode_f, nn, px, t, tout, itol, rel_tol,
277 pabs_tol, itask, istate, iopt, prwork, lrw, 277 pabs_tol, itask, istate, iopt, prwork, lrw,
278 piwork, liw, lsode_j, method_flag)); 278 piwork, liw, lsode_j, method_flag));
279 279
280 if (f77_exception_encountered) 280 if (f77_exception_encountered)
281 { 281 {
282 integration_error = true; 282 integration_error = true;
283 (*current_liboctave_error_handler) ("unrecoverable error in lsode"); 283 (*current_liboctave_error_handler) ("unrecoverable error in lsode");