function [nnz,ind, val] = pennlp_congrad(i,x)
try
f = datasaver(5,x,i+1);
[ind,dummy,val] = find(f(:));
nnz = length(ind);
catch
end
%[nnz,ind, val] = dg(i,x);