Mercurial > hg > octave-nkf

diff liboctave/LSODE.cc @ 1253:bb67a902760b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-04-11 16:35:23 by jwe]
author jwe
date Tue, 11 Apr 1995 16:35:23 +0000
parents 97eac19837dc
children f93b7fa5e113
line wrap: on
line diff
--- a/liboctave/LSODE.cc
+++ b/liboctave/LSODE.cc
@@ -35,14 +35,15 @@
 
 extern "C"
 {
-  int F77_FCN (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) (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&);
 }
 
 static ODEFunc::ODERHSFunc user_fun;
@@ -243,7 +244,7 @@
 
  again:
 
-  (void) F77_FCN (lsode) (lsode_f, n, xp, t, tout, itol, rel_tol,
+  F77_FCN (lsode, LSODE) (lsode_f, n, xp, t, tout, itol, rel_tol,
 			  abs_tol, itask, istate, iopt, rwork, lrw,
 			  iwork, liw, lsode_j, method_flag);