Mercurial > octave
diff liboctave/LSODE.cc @ 3507:00fdd363c098
[project @ 2000-02-01 21:31:44 by jwe]
| author | jwe |
|---|---|
| date | Tue, 01 Feb 2000 21:31:45 +0000 |
| parents | 5eef8a2294bd |
| children | d92134062783 |
line wrap: on
line diff
--- a/liboctave/LSODE.cc Tue Feb 01 11:19:27 2000 +0000 +++ b/liboctave/LSODE.cc Tue Feb 01 21:31:45 2000 +0000 @@ -37,18 +37,18 @@ #include "f77-fcn.h" #include "lo-error.h" +typedef int (*lsode_fcn_ptr) (const int&, const double&, double*, + double*, int&); + +typedef int (*lsode_jac_ptr) (const int&, const double&, double*, + const int&, const int&, double*, const + int&); + extern "C" -{ - int F77_FCN (lsode, LSODE) (int (*)(const int&, const double&, - double*, double*, int&), - int&, double*, double&, double&, int&, - double&, double&, int&, int&, int&, - double*, int&, int*, int&, - int (*)(const int&, const double&, - double*, const int&, const int&, - double*, const int&), - int&); -} +int F77_FCN (lsode, LSODE) (lsode_fcn_ptr, int&, double*, double&, + double&, int&, double&, double&, int&, + int&, int&, double*, int&, int*, int&, + lsode_jac_ptr, int&); static ODEFunc::ODERHSFunc user_fun; static ODEFunc::ODEJacFunc user_jac;