Mercurial > hg > octave-lyh

comparison liboctave/LSODE.cc @ 3178:09a3064a3a17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1998-06-23 03:46:42 by jwe]
author jwe
date Tue, 23 Jun 1998 03:47:31 +0000
parents b7f43611d1e8
children bef7b73c0724
comparison
equal deleted inserted replaced
3177:d81db29f8b2b 3178:09a3064a3a17
250 F77_XFCN (lsode, LSODE, (lsode_f, n, xp, t, tout, itol, rel_tol, 250 F77_XFCN (lsode, LSODE, (lsode_f, n, xp, t, tout, itol, rel_tol,
251 abs_tol, itask, istate, iopt, prwork, lrw, 251 abs_tol, itask, istate, iopt, prwork, lrw,
252 piwork, liw, lsode_j, method_flag)); 252 piwork, liw, lsode_j, method_flag));
253 253
254 if (f77_exception_encountered) 254 if (f77_exception_encountered)
255 (*current_liboctave_error_handler) ("unrecoverable error in lsode"); 255 {
256 integration_error = 1;
257 (*current_liboctave_error_handler) ("unrecoverable error in lsode");
258 }
256 else 259 else
257 { 260 {
258 switch (istate) 261 switch (istate)
259 { 262 {
260 case -13: // Return requested in user-supplied function. 263 case -13: // Return requested in user-supplied function.