Mercurial > hg > octave-nkf

diff liboctave/LSODE.cc @ 4583:70da2b8c91dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-10-31 15:18:31 by jwe]
author jwe
date Fri, 31 Oct 2003 15:20:51 +0000
parents 6f3382e08a52
children e35b034d3523
line wrap: on
line diff
--- a/liboctave/LSODE.cc
+++ b/liboctave/LSODE.cc
@@ -47,10 +47,10 @@
 extern "C"
 {
   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&);
+  F77_FUNC (dlsode, DLSODE) (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;
@@ -273,9 +273,9 @@
       LSODE_options::reset = false;
     }
 
-  F77_XFCN (lsode, LSODE, (lsode_f, nn, px, t, tout, itol, rel_tol,
-			   pabs_tol, itask, istate, iopt, prwork, lrw,
-			   piwork, liw, lsode_j, method_flag));
+  F77_XFCN (dlsode, DLSODE, (lsode_f, nn, px, t, tout, itol, rel_tol,
+			     pabs_tol, itask, istate, iopt, prwork, lrw,
+			     piwork, liw, lsode_j, method_flag));
 
   if (f77_exception_encountered)
     {