diff liboctave/DASSL.cc @ 3178:09a3064a3a17

[project @ 1998-06-23 03:46:42 by jwe]
author jwe
date Tue, 23 Jun 1998 03:47:31 +0000
parents 8b262e771614
children 2396decd33de
line wrap: on
line diff
--- a/liboctave/DASSL.cc	Thu May 28 15:23:51 1998 +0000
+++ b/liboctave/DASSL.cc	Tue Jun 23 03:47:31 1998 +0000
@@ -276,7 +276,10 @@
 			     piwork, liw, dummy, idummy, ddassl_j));
 
   if (f77_exception_encountered)
-    (*current_liboctave_error_handler) ("unrecoverable error in dassl");
+    {
+      integration_error = 1;
+      (*current_liboctave_error_handler) ("unrecoverable error in dassl");
+    }
   else
     {
       switch (idid)