function S = le_matriz(pasta,nome,m,n)
arq = fopen(sprintf('%s/%s.txt',pasta,nome));
S = sparse(m,n);
if arq > 0
    fprintf(2,'arquivo aberto com sucesso\n');
    for k = 1:n*m
        [i,c] = fscanf(arq,'%d',1);
        if (c == 0)
            return
        end
        [j,c] = fscanf(arq,'%d ',1);
        assert(c == 1)
        [Sij,c] = fscanf(arq,'%g',1);
        assert(c == 1)
        assert((i >= 1) && (i <= m))
        assert((j >= 1) && (j <= n))
        assert(Sij ~= 0)
        assert(S(i,j) == 0)
        S(i,j) = Sij;
    end
    fprintf(2,'fechando o arquivo\n');
    fclose(arq);
end

