Mercurial > hg > octave-nkf
diff liboctave/DASSL.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/DASSL.cc +++ b/liboctave/DASSL.cc @@ -56,9 +56,6 @@ DASSL::DASSL (void) : DAE () { - stop_time_set = false; - stop_time = 0.0; - liw = 0; lrw = 0; @@ -75,9 +72,6 @@ { n = size (); - stop_time_set = false; - stop_time = 0.0; - liw = 20 + n; lrw = 40 + 9*n + n*n; @@ -92,9 +86,6 @@ { n = size (); - stop_time_set = false; - stop_time = 0.0; - DAEFunc::set_function (f.function ()); DAEFunc::set_jacobian_function (f.jacobian_function ()); @@ -109,26 +100,6 @@ info.elem (i) = 0; } -void -DASSL::force_restart (void) -{ - restart = 1; - integration_error = false; -} - -void -DASSL::set_stop_time (double tt) -{ - stop_time_set = true; - stop_time = tt; -} - -void -DASSL::clear_stop_time (void) -{ - stop_time_set = false; -} - int ddassl_f (const double& time, const double *state, const double *deriv, double *delta, int& ires, double *, int *) @@ -192,7 +163,7 @@ if (restart) { - restart = 0; + restart = false; info.elem (0) = 0; } @@ -477,6 +448,21 @@ return retval; } +std::string +DASSL::error_message (void) const +{ + std::string retval; + + switch (idid) + { + default: + retval = "unknown error state"; + break; + } + + return retval; +} + /* ;;; Local Variables: *** ;;; mode: C++ ***