diff liboctave/DASRT.cc @ 4050:6481f41a79f3

[project @ 2002-08-17 02:18:18 by jwe]
author jwe
date Sat, 17 Aug 2002 02:18:18 +0000
parents a35a3c5d4740
children b79da8779a0e
line wrap: on
line diff
--- a/liboctave/DASRT.cc	Fri Aug 16 08:54:31 2002 +0000
+++ b/liboctave/DASRT.cc	Sat Aug 17 02:18:18 2002 +0000
@@ -242,17 +242,19 @@
 
       // DASRT_options
 
-      if (maximum_step_size () >= 0.0)
+      double mss = maximum_step_size ();
+      if (mss >= 0.0)
 	{
-	  rwork(1) = maximum_step_size ();
+	  rwork(1) = mss;
 	  info(6) = 1;
 	}
       else
 	info(6) = 0;
 
-      if (initial_step_size () >= 0.0)
+      double iss = initial_step_size ();
+      if (iss >= 0.0)
 	{
-	  rwork(2) = initial_step_size ();
+	  rwork(2) = iss;
 	  info(7) = 1;
 	}
       else