function [xold,fold,para,how]=lsint(xnew,fnew,para)
%LSINT  Function to initialize NLSQ routine.

%   Copyright (c) 1990-98 by The MathWorks, Inc.
%   $Revision: 1.14 $  $Date: 1998/05/19 15:57:16 $
%   Andy Grace 7-9-90.
xold=xnew;
fold=fnew;

para=foptions(para); 
if para(14)==0, para(14)=length(xnew)*100;end 
if para(1)>0,
    disp('')
    if para(5)>0
      if isinf(para(1))
        disp('f-COUNT      RESID    STEP-SIZE      GRAD/SD  LINE-SEARCH')
      else
        disp('f-COUNT      RESID    STEP-SIZE      GRAD/SD')
      end
else
      if isinf(para(1))
    disp('f-COUNT      RESID    STEP-SIZE      GRAD/SD        LAMBDA LINE-SEARCH')
      else
    disp('f-COUNT      RESID    STEP-SIZE      GRAD/SD        LAMBDA')
      end
    end
end
