Mercurial > octave

diff liboctave/DASSL.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/DASSL.cc	Tue Apr 11 16:04:14 1995 +0000
+++ b/liboctave/DASSL.cc	Tue Apr 11 16:35:23 1995 +0000
@@ -31,14 +31,17 @@
 
 extern "C"
 {
-  int F77_FCN (ddassl) (int (*)(const double&, double*, double*,
-				double*, int&, double*, int*),
-			const int&, double&, double*, double*,
-			double&, const int*, const double&,
-			const double&, int&, double*, const int&, 
-			int*, const int&, const double*, const int*,
-			int (*)(const double&, double*, double*,
-				double*, const double&, double*, int*));
+  int F77_FCN (ddassl, DDASSL) (int (*)(const double&, double*,
+					double*, double*, int&,
+					double*, int*),
+				const int&, double&, double*, double*,
+				double&, const int*, const double&,
+				const double&, int&, double*,
+				const int&, int*, const int&,
+				const double*, const int*, 
+				int (*)(const double&, double*,
+					double*, double*, const
+					double&, double*, int*));
 }
 
 static DAEFunc::DAERHSFunc user_fun;
@@ -300,9 +303,9 @@
 
 // again:
 
-  F77_FCN (ddassl) (ddassl_f, n, t, px, pxdot, tout, info,
-		    rel_tol, abs_tol, idid, rwork, lrw, iwork,
-		    liw, dummy, idummy, ddassl_j);
+  F77_FCN (ddassl, DDASSL) (ddassl_f, n, t, px, pxdot, tout, info,
+			    rel_tol, abs_tol, idid, rwork, lrw, iwork,
+			    liw, dummy, idummy, ddassl_j);
 
   switch (idid)
     {