Mercurial > octave-nkf
diff liboctave/DASPK.cc @ 4180:84fe3ca3a246
[project @ 2002-11-15 04:47:01 by jwe]
author | jwe |
---|---|
date | Fri, 15 Nov 2002 04:47:02 +0000 |
parents | 61fba034b13b |
children | 5719210fff4c |
line wrap: on
line diff
--- a/liboctave/DASPK.cc Thu Nov 14 04:31:19 2002 +0000 +++ b/liboctave/DASPK.cc Fri Nov 15 04:47:02 2002 +0000 @@ -68,6 +68,8 @@ ddaspk_f (const double& time, const double *state, const double *deriv, const double&, double *delta, int& ires, double *, int *) { + BEGIN_INTERRUPT_WITH_EXCEPTIONS; + ColumnVector tmp_deriv (nn); ColumnVector tmp_state (nn); ColumnVector tmp_delta (nn); @@ -91,6 +93,8 @@ } } + END_INTERRUPT_WITH_EXCEPTIONS; + return 0; } @@ -104,7 +108,12 @@ int *iwp, double *b, const double& eplin, int& ier, double *, int*) { + BEGIN_INTERRUPT_WITH_EXCEPTIONS; + abort (); + + END_INTERRUPT_WITH_EXCEPTIONS; + return 0; } @@ -113,6 +122,8 @@ ddaspk_j (const double& time, const double *state, const double *deriv, double *pd, const double& cj, double *, int *) { + BEGIN_INTERRUPT_WITH_EXCEPTIONS; + // XXX FIXME XXX -- would be nice to avoid copying the data. ColumnVector tmp_state (nn); @@ -130,6 +141,8 @@ for (int i = 0; i < nn; i++) pd [nn * j + i] = tmp_pd.elem (i, j); + END_INTERRUPT_WITH_EXCEPTIONS; + return 0; }