Mercurial > hg > octave-lojdl
changeset 1875:d06d35afa90d
[project @ 1996-02-04 13:37:36 by jwe]
author | jwe |
---|---|
date | Sun, 04 Feb 1996 13:40:30 +0000 |
parents | 7fc99ae70891 |
children | 3eeb7826e298 |
files | liboctave/NPSOL.cc |
diffstat | 1 files changed, 8 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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;