add ncond to debug output

Author: ldeniau

src/madl_lsopt.mad

@@ -265,13 +265,13 @@ local function ld_lmdif (env)
   local jstra, jiter, jtau, bisec, rcond, ncond in obj
 
   -- default setup
-  jstra, jiter, jtau, bisec, rcond = jstra or 1, max(1, jiter or 10),
-             max(eps, jtau or 1e-3), bisec or obj.exec and 0 or 3,
-                                     rcond or 1e-12
+  jstra, jiter, jtau, bisec, rcond, ncond = jstra or 1, max(1, jiter or 10),
+                       max(eps, jtau or 1e-3), bisec or obj.exec and 0 or 3,
+                                            rcond or 1e-12, ncond or 0
 
   if env.info >= 3 then
-    printf("nlopt: jstra=%d, jiter=%d, jtau=%g, bisec=%d, rcond=%g\n",
-                   jstra,    jiter,    jtau,    bisec,    rcond)
+    printf("nlopt: jstra=%d, jiter=%d, jtau=%g, bisec=%d, rcond=%g, ncond=%d\n",
+                   jstra,    jiter,    jtau,    bisec,    rcond,    ncond)
   end
 
   -- adjust variables (i.e. adjust x to fit bbox if any)
@@ -420,13 +420,13 @@ local function ld_jacobian (env)
   local jstra, jiter, bisec, rcond, ncond in obj
 
   -- default setup
-  jstra, jiter, bisec, rcond = jstra or 1, max(1, jiter or 10),
-                               bisec or obj.exec and 0 or 3,
-                               rcond or 1e-12
+  jstra, jiter, bisec, rcond, ncond = jstra or 1, max(1, jiter or 10),
+                                      bisec or obj.exec and 0 or 3,
+                                      rcond or 1e-12, ncond or 0
 
   if env.info >= 3 then
-    printf("nlopt: jstra=%d, jiter=%d, bisec=%d, rcond=%g\n",
-                   jstra,    jiter,    bisec,    rcond)
+    printf("nlopt: jstra=%d, jiter=%d, bisec=%d, rcond=%g, ncond=%d\n",
+                   jstra,    jiter,    bisec,    rcond,    ncond)
   end
 
   -- adjust variables (i.e. adjust x to fit bbox if any)