Mercurial > hg > octave-lyh

diff liboctave/ODESSA.cc @ 4583:70da2b8c91dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-10-31 15:18:31 by jwe]
author jwe
date Fri, 31 Oct 2003 15:20:51 +0000
parents 6f3382e08a52
children 7b957b442818
line wrap: on
line diff
--- a/liboctave/ODESSA.cc
+++ b/liboctave/ODESSA.cc
@@ -55,11 +55,11 @@
 extern "C"
 {
   F77_RET_T
-  F77_FUNC (odessa, ODESSA) (odessa_fcn_ptr, odessa_dfdp_ptr, int*,
-			     double*, double*, double&, double&,
-			     int&, double&, const double*, int&, 
-			     int&, int*, double*, int&, int*, int&,
-			     odessa_jac_ptr, int&);
+  F77_FUNC (dodessa, DODESSA) (odessa_fcn_ptr, odessa_dfdp_ptr, int*,
+			       double*, double*, double&, double&,
+			       int&, double&, const double*, int&, 
+			       int&, int*, double*, int&, int*, int&,
+			       odessa_jac_ptr, int&);
 }
 
 template class Array<Matrix>;
@@ -457,10 +457,10 @@
 
   const double *pabs_tol = abs_tol.fortran_vec ();
 
-   F77_XFCN (odessa, ODESSA, (odessa_f, odessa_b, pneq, py, ppar, t,
-			      tout, itol, rel_tol, pabs_tol, itask,
-			      istate, piopt, prwork, lrw, piwork, liw,
-			      odessa_j, method_flag));
+   F77_XFCN (dodessa, DODESSA, (odessa_f, odessa_b, pneq, py, ppar, t,
+				tout, itol, rel_tol, pabs_tol, itask,
+				istate, piopt, prwork, lrw, piwork, liw,
+				odessa_j, method_flag));
 
   if (f77_exception_encountered)
     {