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

%   Copyright 1990-2000 The MathWorks, Inc.
%   $Revision: 1.12 $  $Date: 2000/06/16 22:25:20 $
%   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
