Mercurial > hg > octave-nkf

diff liboctave/DASPK.cc @ 3997:d4091aff6468

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-07-17 18:00:06 by jwe]
author jwe
date Wed, 17 Jul 2002 18:00:07 +0000
parents 98107d72871c
children f6df65db67f9
line wrap: on
line diff
--- a/liboctave/DASPK.cc
+++ b/liboctave/DASPK.cc
@@ -269,7 +269,7 @@
 // again:
 
   F77_XFCN (ddaspk, DDASPK, (ddaspk_f, n, t, px, pxdot, tout, pinfo,
-			     rel_tol, abs_tol, idid, prwork, lrw,
+			     rel_tol, abs_tol, istate, prwork, lrw,
 			     piwork, liw, dummy, idummy, ddaspk_j,
 			     ddaspk_psol));
 
@@ -280,7 +280,7 @@
     }
   else
     {
-      switch (idid)
+      switch (istate)
 	{
 	case 1: // A step was successfully taken in intermediate-output
 	        // mode. The code has not yet reached TOUT.
@@ -330,7 +330,8 @@
 	default:
 	  integration_error = true;
 	  (*current_liboctave_error_handler)
-	    ("unrecognized value of idid (= %d) returned from ddaspk", idid);
+	    ("unrecognized value of istate (= %d) returned from ddaspk",
+	     istate);
 	  break;
 	}
     }
@@ -494,7 +495,7 @@
 {
   std::string retval;
 
-  switch (idid)
+  switch (istate)
     {
     case 1:
       retval = "a step was successfully taken in intermediate-output mode.";