Mercurial > hg > octave-lyh

comparison liboctave/DASRT.cc @ 4575:c7ba572047df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-10-31 06:05:37 by jwe]
author jwe
date Fri, 31 Oct 2003 06:05:37 +0000
parents 6f3382e08a52
children f60762fa234f
comparison
equal deleted inserted replaced
4574:6cb22b9e3942 4575:c7ba572047df
320 } 320 }
321 321
322 static double *dummy = 0; 322 static double *dummy = 0;
323 static int *idummy = 0; 323 static int *idummy = 0;
324 324
325 F77_XFCN (ddasrt, DASRT, (ddasrt_f, nn, t, px, pxdot, tout, pinfo, 325 F77_XFCN (ddasrt, DDASRT, (ddasrt_f, nn, t, px, pxdot, tout, pinfo,
326 prel_tol, pabs_tol, istate, prwork, lrw, 326 prel_tol, pabs_tol, istate, prwork, lrw,
327 piwork, liw, dummy, idummy, ddasrt_j, 327 piwork, liw, dummy, idummy, ddasrt_j,
328 ddasrt_g, ng, pjroot)); 328 ddasrt_g, ng, pjroot));
329 329
330 if (f77_exception_encountered) 330 if (f77_exception_encountered)
331 { 331 {
332 integration_error = true; 332 integration_error = true;
333 (*current_liboctave_error_handler) ("unrecoverable error in dasrt"); 333 (*current_liboctave_error_handler) ("unrecoverable error in dasrt");