Mercurial > hg > octave-nkf

diff liboctave/DASRT.cc @ 4552:6f3382e08a52

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-10-27 20:38:02 by jwe]
author jwe
date Mon, 27 Oct 2003 20:38:03 +0000
parents 820323598f4f
children c7ba572047df
line wrap: on
line diff
--- a/liboctave/DASRT.cc
+++ b/liboctave/DASRT.cc
@@ -47,12 +47,15 @@
 				 const int&, double*, double*, int*);
 
 extern "C"
-int F77_FUNC (ddasrt, DASRT) (dasrt_fcn_ptr, const int&, double&,
-			      double*, double*, const double&, int*,
-			      const double*, const double*, int&, double*,
-			      const int&, int*, const int&, double*,
-			      int*, dasrt_jac_ptr, dasrt_constr_ptr,
-			      const int&, int*);
+{
+  F77_RET_T
+  F77_FUNC (ddasrt, DASRT) (dasrt_fcn_ptr, const int&, double&,
+			    double*, double*, const double&, int*,
+			    const double*, const double*, int&, double*,
+			    const int&, int*, const int&, double*,
+			    int*, dasrt_jac_ptr, dasrt_constr_ptr,
+			    const int&, int*);
+}
 
 static DAEFunc::DAERHSFunc user_fsub;
 static DAEFunc::DAEJacFunc user_jsub;