Mercurial > hg > octave-nkf

diff liboctave/Quad.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 af7ec9d3a5e6
children d92134062783
line wrap: on
line diff
--- a/liboctave/Quad.cc
+++ b/liboctave/Quad.cc
@@ -41,21 +41,20 @@
 // function, and the user wants us to quit.
 int quad_integration_error = 0;
 
+typedef int (*quad_fcn_ptr) (double*, int&, double*);
+			      
 extern "C"
-{
-  int F77_FCN (dqagp, DQAGP) (int (*)(double*, int&, double*),
-			      const double&, const double&,
-			      const int&, const double*,
-			      const double&, const double&, double&,
-			      double&, int&, int&, const int&,
-			      const int&, int&, int*, double*);
+int F77_FCN (dqagp, DQAGP) (quad_fcn_ptr, const double&, const double&,
+			    const int&, const double*, const double&,
+			    const double&, double&, double&, int&,
+			    int&, const int&, const int&, int&, int*,
+			    double*);
 
-  int F77_FCN (dqagi, DQAGI) (int (*)(double*, int&, double*),
-			      const double&, const int&,
-			      const double&, const double&, double&,
-			      double&, int&, int&, const int&,
-			      const int&, int&, int*, double*); 
-}
+extern "C"
+int F77_FCN (dqagi, DQAGI) (quad_fcn_ptr, const double&, const int&,
+			    const double&, const double&, double&,
+			    double&, int&, int&, const int&,
+			    const int&, int&, int*, double*); 
 
 static int
 user_function (double *x, int& ierr, double *result)