Mercurial > octave

comparison liboctave/LSODE.cc @ 3507:00fdd363c098

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-02-01 21:31:44 by jwe]
author jwe
date Tue, 01 Feb 2000 21:31:45 +0000
parents 5eef8a2294bd
children d92134062783
comparison
equal deleted inserted replaced
3506:ed0e55953260 3507:00fdd363c098
35 35
36 #include "LSODE.h" 36 #include "LSODE.h"
37 #include "f77-fcn.h" 37 #include "f77-fcn.h"
38 #include "lo-error.h" 38 #include "lo-error.h"
39 39
40 typedef int (*lsode_fcn_ptr) (const int&, const double&, double*,
41 double*, int&);
42
43 typedef int (*lsode_jac_ptr) (const int&, const double&, double*,
44 const int&, const int&, double*, const
45 int&);
46
40 extern "C" 47 extern "C"
41 { 48 int F77_FCN (lsode, LSODE) (lsode_fcn_ptr, int&, double*, double&,
42 int F77_FCN (lsode, LSODE) (int (*)(const int&, const double&, 49 double&, int&, double&, double&, int&,
43 double*, double*, int&), 50 int&, int&, double*, int&, int*, int&,
44 int&, double*, double&, double&, int&, 51 lsode_jac_ptr, int&);
45 double&, double&, int&, int&, int&,
46 double*, int&, int*, int&,
47 int (*)(const int&, const double&,
48 double*, const int&, const int&,
49 double*, const int&),
50 int&);
51 }
52 52
53 static ODEFunc::ODERHSFunc user_fun; 53 static ODEFunc::ODERHSFunc user_fun;
54 static ODEFunc::ODEJacFunc user_jac; 54 static ODEFunc::ODEJacFunc user_jac;
55 static ColumnVector *tmp_x; 55 static ColumnVector *tmp_x;
56 56