Mercurial > octave

comparison liboctave/LSODE.cc @ 4552:6f3382e08a52

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-10-27 20:38:02 by jwe]
author jwe
date Mon, 27 Oct 2003 20:38:03 +0000
parents 1032fb9ec0d1
children 70da2b8c91dd
comparison
equal deleted inserted replaced
4551:2c619e5138fd 4552:6f3382e08a52
43 typedef int (*lsode_jac_ptr) (const int&, const double&, double*, 43 typedef int (*lsode_jac_ptr) (const int&, const double&, double*,
44 const int&, const int&, double*, const 44 const int&, const int&, double*, const
45 int&); 45 int&);
46 46
47 extern "C" 47 extern "C"
48 int F77_FUNC (lsode, LSODE) (lsode_fcn_ptr, int&, double*, double&, 48 {
49 double&, int&, double&, const double*, int&, 49 F77_RET_T
50 int&, int&, double*, int&, int*, int&, 50 F77_FUNC (lsode, LSODE) (lsode_fcn_ptr, int&, double*, double&,
51 lsode_jac_ptr, int&); 51 double&, int&, double&, const double*, int&,
52 int&, int&, double*, int&, int*, int&,
53 lsode_jac_ptr, int&);
54 }
52 55
53 static ODEFunc::ODERHSFunc user_fun; 56 static ODEFunc::ODERHSFunc user_fun;
54 static ODEFunc::ODEJacFunc user_jac; 57 static ODEFunc::ODEJacFunc user_jac;
55 static ColumnVector *tmp_x; 58 static ColumnVector *tmp_x;
56 59