TOL1,
          and spend more time with cheaper iterations.

</PRE>
<B>Workspace</B>
<PRE>
  IWORK   INTEGER array, dimension (MAX( 3, LIW1, LIW2 )), where
          LIW1 = LIW2 = 0,  if INIT = 'S' or 'N'; otherwise,
          LIW1 = M+L;
          LIW2 = MAX(M*NOBR+N,M*(N+L)).
          On output, if INFO = 0, IWORK(1) and IWORK(2) return the
          (total) number of function and Jacobian evaluations,
          respectively (including the initialization step, if it was
          performed), and if INIT