# HG changeset patch
# User jwe
# Date 823441230 0
# Node ID d06d35afa90dfb0274cced6e0eed501e7217b8f8
# Parent  7fc99ae7089192a8f1469758db267ca2aeb9ea2c
[project @ 1996-02-04 13:37:36 by jwe]

diff --git a/liboctave/NPSOL.cc b/liboctave/NPSOL.cc
--- a/liboctave/NPSOL.cc
+++ b/liboctave/NPSOL.cc
@@ -279,11 +279,14 @@
   while (attempt++ < 5)
     {
 
-      F77_FCN (npsol, NPSOL) (n, nclin, ncnln, nrowa, nrowj, nrowr,
-			      pclin, clow, cup, npsol_confun,
-			      npsol_objfun, inform, iter, istate, c,
-			      cjac, pclambda, objf, objgrd, r, px, iw,
-			      leniw, w, lenw);
+      F77_XFCN (npsol, NPSOL,
+		(n, nclin, ncnln, nrowa, nrowj, nrowr, pclin, clow,
+		 cup, npsol_confun, npsol_objfun, inform, iter,
+		 istate, c, cjac, pclambda, objf, objgrd, r, px, iw,
+		 leniw, w, lenw));
+
+      // XXX FIXME XXX -- need to know if an exception that resulted
+      // in a call to xstopx has occurred...
 
       if (inform == 6 || inform == 1)
 	continue;