function [fa,ifaila,icounta]=pidobj(xa)
% PIDOBJ calls PIDLSQ to build an objective function that does not
%        use the least squares structure.
%
%
[nr,nc]=size(xa);
fa=zeros(1,nc);
ifaila=zeros(nc,1);
fcounta=zeros(nc,1);
%for i=1:nc
%    [fa(i),ifaila(i),icounta(i)]=pidobj(xa(:,i));
%     [fap,ifaila(i),icounta(i)]=pidlsq(xa(:,i));
%     fa(i)=fap'*fap/2;
%end
[fl,ifaila,icounta]=pidlsq(xa);
for i=1:nc
    fa(i)=fl(:,i)'*fl(:,i)/2;
end