Mercurial > hg > octave-nkf
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++ ***