make luksan routines re-entrant; thanks to Gert Wollny for the bug report (fixes...

[nlopt.git] / luksan / pnet.c

diff --git a/luksan/pnet.c b/luksan/pnet.c
index bf6192eda12aa10bbc4a83c89457f1c9c2629149..d57461c1d6224de35cd34b3ab8f257bab33bc5a2 100644 (file)
--- a/luksan/pnet.c
+++ b/luksan/pnet.c
@@ -172,6 +172,7 @@ static void pnet_(int *nf, int *nb, double *x, int *
     int iters, irest, inits, kters, maxst;
     double snorm;
     int mtesx, ntesx;
+    ps1l01_state state;
 
 /*     INITIATION */
 
@@ -517,7 +518,8 @@ L12560:
 L11060:
     luksan_ps1l01__(&r__, &rp, f, &fo, &fp, &p, &po, &pp, minf_est, &maxf, &rmin, 
            &rmax, &tols, &tolp, &par1, &par2, &kd, &ld, &stat_1->nit, &kit, &
-           nred, &mred, &maxst, iest, &inits, &iters, &kters, &mes, &isys);
+           nred, &mred, &maxst, iest, &inits, &iters, &kters, &mes,
+                   &isys, &state);
     if (isys == 0) {
        goto L11064;
     }