Mercurial > hg > octave-lyh

diff liboctave/DASSL.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 8a72d9e400da
children 957d7d6ab0e0
line wrap: on
line diff
--- a/liboctave/DASSL.cc
+++ b/liboctave/DASSL.cc
@@ -35,20 +35,19 @@
 #include "f77-fcn.h"
 #include "lo-error.h"
 
+typedef int (*dassl_fcn_ptr) (const double&, double*, double*,
+			      double*, int&, double*, int*);
+
+typedef int (*dassl_jac_ptr) (const double&, double*, double*,
+			      double*, const double&, double*, int*);
+
 extern "C"
-{
-  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*));
-}
+int F77_FCN (ddassl, DDASSL) (dassl_fcn_ptr, const int&, double&,
+			      double*, double*, double&, const int*,
+			      const double&, const double&, int&,
+			      double*, const int&, int*, const int&,
+			      const double*, const int*,
+			      dassl_jac_ptr);
 
 static DAEFunc::DAERHSFunc user_fun;
 static DAEFunc::DAEJacFunc user_jac;