function [xold,fold,invhess,para]=optint(xnew,fnew,para)
%OPTINT Function to initialize FMINU routine.

%   Copyright (c) 1990-98 by The MathWorks, Inc.
%   $Revision: 1.11 $  $Date: 1998/05/19 15:57:15 $
%   Andy Grace 7-9-90.
lenx=length(xnew);
invhess=eye(lenx);  
xold=xnew;
fold=fnew;
para=foptions(para);
if para(14)==0, para(14)=lenx*100;end 
if para(1)>0, para, end
if para(1)>0,
    disp('')
    if isinf(para(1))
      disp('f-COUNT   FUNCTION    STEP-SIZE      GRAD/SD  LINE-SEARCH')
    else
      disp('f-COUNT   FUNCTION    STEP-SIZE      GRAD/SD')
    end
end
