Mercurial > hg > octave-nkf

diff liboctave/LSODE.cc @ 227:1a48a1b91489

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-11-15 10:10:35 by jwe]
author jwe
date Mon, 15 Nov 1993 10:11:59 +0000
parents 9a4c07481e61
children 780cbbc57b7c
line wrap: on
line diff
--- a/liboctave/LSODE.cc
+++ b/liboctave/LSODE.cc
@@ -28,6 +28,7 @@
 #include <iostream.h>
 #include "ODE.h"
 #include "f77-uscore.h"
+#include "lo-error.h"
 
 extern "C"
 {
@@ -252,8 +253,10 @@
       working_too_hard++;
       if (working_too_hard > 20)
 	{
-	  cerr << "Shut 'er down Slim!  She's a suckin' mud!\n";
-	  exit (1);
+	  (*current_liboctave_error_handler)
+	    ("giving up after more than %d steps attempted in lsode",
+	     iwork[5] * 20);
+	  return ColumnVector ();
 	}
       else
 	{