function [xold,fold,para,how]=lsint(xnew,fnew,para) %LSINT Function to initialize LEASTSQ routine. % Copyright (c) 1990 by the MathWorks, Inc. % 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 disp('f-COUNT RESID STEP-SIZE GRAD/SD LINE-SEARCH') else disp('f-COUNT RESID STEP-SIZE GRAD/SD LAMBDA LINE-SEARCH') end end