Mercurial > hg > octave-lyh

diff 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
line wrap: on
line diff
--- a/liboctave/LSODE.cc
+++ b/liboctave/LSODE.cc
@@ -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;