Mercurial > hg > octave-nkf

diff liboctave/DASSL.cc @ 3312:2396decd33de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-10-21 18:55:36 by jwe]
author jwe
date Thu, 21 Oct 1999 18:55:40 +0000
parents 09a3064a3a17
children 8a72d9e400da
line wrap: on
line diff
--- a/liboctave/DASSL.cc
+++ b/liboctave/DASSL.cc
@@ -208,9 +208,9 @@
   integration_error = 0;
 
   if (DAEFunc::jacobian_function ())
-    iwork.elem (4) = 1;
+    info.elem (4) = 1;
   else
-    iwork.elem (4) = 0;
+    info.elem (4) = 0;
 
   double *px    = x.fortran_vec ();
   double *pxdot = xdot.fortran_vec ();
@@ -237,8 +237,8 @@
   
   if (stop_time_set)
     {
+      rwork.elem (0) = stop_time;
       info.elem (3) = 1;
-      rwork.elem (0) = stop_time;
     }
   else
     info.elem (3) = 0;
@@ -256,7 +256,7 @@
 
   if (maximum_step_size () >= 0.0)
     {
-      rwork.elem (2) = maximum_step_size ();
+      rwork.elem (1) = maximum_step_size ();
       info.elem (6) = 1;
     }
   else