Mercurial > hg > octave-nkf

changeset 4575:c7ba572047df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-10-31 06:05:37 by jwe]
author jwe
date Fri, 31 Oct 2003 06:05:37 +0000
parents 6cb22b9e3942
children f60762fa234f
files liboctave/ChangeLog liboctave/DASRT.cc
diffstat 2 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/ChangeLog
+++ b/liboctave/ChangeLog
@@ -1,3 +1,7 @@
+2003-10-31  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* DASRT.cc (DASRT::integrate): Fix typo in Fortran function name.
+
 2003-10-30  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* mach-info.h (oct_mach_info): Prefix enum elements with flt_fmt_.
--- a/liboctave/DASRT.cc
+++ b/liboctave/DASRT.cc
@@ -322,10 +322,10 @@
   static double *dummy = 0;
   static int *idummy = 0;
 
-  F77_XFCN (ddasrt, DASRT, (ddasrt_f, nn, t, px, pxdot, tout, pinfo,
-			    prel_tol, pabs_tol, istate, prwork, lrw,
-			    piwork, liw, dummy, idummy, ddasrt_j,
-			    ddasrt_g, ng, pjroot));
+  F77_XFCN (ddasrt, DDASRT, (ddasrt_f, nn, t, px, pxdot, tout, pinfo,
+			     prel_tol, pabs_tol, istate, prwork, lrw,
+			     piwork, liw, dummy, idummy, ddasrt_j,
+			     ddasrt_g, ng, pjroot));
 
   if (f77_exception_encountered)
     {