diff liboctave/DASRT.cc @ 3995:ee0304212be0

[project @ 2002-07-17 04:32:42 by jwe]
author jwe
date Wed, 17 Jul 2002 04:32:42 +0000
parents a41827ec5677
children 98107d72871c
line wrap: on
line diff
--- a/liboctave/DASRT.cc
+++ b/liboctave/DASRT.cc
@@ -147,10 +147,6 @@
   : DAERT ()
 {
   initialized = false;
-  restart = false;
-
-  stop_time_set = false;
-  stop_time = 0.0;
 
   sanity_checked = false;
 
@@ -168,10 +164,6 @@
   n = size ();
 
   initialized = false;
-  restart = false;
-
-  stop_time_set = false;
-  stop_time = 0.0;
 
   liw = 20 + n;
   lrw = 50 + 9*n + n*n;
@@ -200,10 +192,6 @@
   n = size ();
 
   initialized = false;
-  restart = false;
-
-  stop_time_set = false;
-  stop_time = 0.0;
 
   sanity_checked = false;
 
@@ -226,26 +214,6 @@
 }
 
 void
-DASRT::force_restart (void)
-{
-  restart = true;
-  integration_error = false;
-}
-
-void
-DASRT::set_stop_time (double t)
-{
-  stop_time_set = true;
-  stop_time = t;
-}
-
-void
-DASRT::clear_stop_time (void)
-{
-  stop_time_set = false;
-}
-
-void
 DASRT::integrate (double tout)
 {
   DASRT_result retval;
@@ -418,8 +386,6 @@
   Matrix xdot_out;
   ColumnVector t_out = tout;
 
-  int oldj = 0;
-
   int n_out = tout.capacity ();
 
   if (n_out > 0 && n > 0)
@@ -587,6 +553,21 @@
   return retval;
 }
 
+std::string
+DASRT::error_message (void) const
+{
+  std::string retval;
+
+  switch (idid)
+    {
+    default:
+      retval = "unknown error state";
+      break;
+    }
+
+  return retval;
+}
+
 /*
 ;;; Local Variables: ***
 ;;; mode: C++ ***