Mercurial > octave

diff liboctave/LSODE.cc @ 3954:8194e0b10a9a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-05-23 18:40:13 by jwe]
author jwe
date Thu, 23 May 2002 18:40:13 +0000
parents 3a8de88328af
children dc970f5941ee
line wrap: on
line diff
--- a/liboctave/LSODE.cc	Thu May 23 17:30:35 2002 +0000
+++ b/liboctave/LSODE.cc	Thu May 23 18:40:13 2002 +0000
@@ -66,7 +66,6 @@
 
   istate = 1;
   itask = 1;
-  iopt = 0;
 
   liw = 20 + n;
   lrw = 22 + n * (9 + n);
@@ -87,7 +86,6 @@
 
   istate = 1;
   itask = 1;
-  iopt = 0;
 
   liw = 20 + n;
   lrw = 22 + n * (9 + n);
@@ -183,10 +181,8 @@
 	rwork.elem (i) = 0;
     }
 
-  if (jac)
-    method_flag = 21;
-  else
-    method_flag = 22;
+  int method_flag = jac ? 21 : 22;
+  int iopt = 0;
 
   integration_error = 0;