function [i,j,x,n,A] = vec2sparse(i,j,x,n,A)

    [ii jj xx] = find(A);
    i = [ii; i(1:n)];
    j = [jj; j(1:n)];
    x = [xx; x(1:n)];
    A = sparse(i,j,x,size(A,1), size(A,2));
    i = 0;
    j = 0;
    x = 0;
    n = 0;