Mercurial > hg > octave-lyh

diff liboctave/Quad.cc @ 3887:7da18459c08b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-04-04 00:44:21 by jwe]
author jwe
date Thu, 04 Apr 2002 00:46:37 +0000
parents d92134062783
children 6e86256e9c54
line wrap: on
line diff
--- a/liboctave/Quad.cc
+++ b/liboctave/Quad.cc
@@ -44,14 +44,14 @@
 typedef int (*quad_fcn_ptr) (double*, int&, double*);
 			      
 extern "C"
-int F77_FCN (dqagp, DQAGP) (quad_fcn_ptr, const double&, const double&,
+int F77_FUNC (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*);
 
 extern "C"
-int F77_FCN (dqagi, DQAGI) (quad_fcn_ptr, const double&, const int&,
+int F77_FUNC (dqagi, DQAGI) (quad_fcn_ptr, const double&, const int&,
 			    const double&, const double&, double&,
 			    double&, int&, int&, const int&,
 			    const int&, int&, int*, double*);