function Ksave = PrintInfo(Isave,k,Aset,Abounds,X,fTf,bTb,Teq,Tineq,m,n,p,betak,betakm1,Wk,alpha)
%Call: Isave = PrintInfo(Isave,k,Aset,Abounds,X,fTf,bTb,Teq,Tineq,m,n,p,betak,betakm1,Wk,alpha)
%Save data for every iteration
%
vek=[k fTf bTb Wk betak betak/betakm1 dot(p,p) alpha];
if isempty(Isave)
    Ksave = vek;
    %[mm nn]=size(Ksave);
else
    Ksave = [Isave; vek];
    %[mm nn]=size(Ksave);
end
if Wk == -1
    vek(1:end-1)
end