Mercurial > hg > octave-lyh

diff 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
line wrap: on
line diff
--- a/liboctave/LSODE.cc
+++ b/liboctave/LSODE.cc
@@ -45,10 +45,13 @@
 			      int&);
 
 extern "C"
-int F77_FUNC (lsode, LSODE) (lsode_fcn_ptr, int&, double*, double&,
-			     double&, int&, double&, const double*, int&,
-			     int&, int&, double*, int&, int*, int&,
-			     lsode_jac_ptr, int&);
+{
+  F77_RET_T
+  F77_FUNC (lsode, LSODE) (lsode_fcn_ptr, int&, double*, double&,
+			   double&, int&, double&, const double*, int&,
+			   int&, int&, double*, int&, int*, int&,
+			   lsode_jac_ptr, int&);
+}
 
 static ODEFunc::ODERHSFunc user_fun;
 static ODEFunc::ODEJacFunc user_jac;