function ok = verifica_elemento_hier2(malha,elemj,e_h,tol)
%verifica se o elemento elemj da base precisa ser substituido
%devolve true se nao precisa. Supoe que malha tem todas as celulas
%relevantes para esse elemento.

posj = elemj.pos;
icelj = encontra_celula_pela_posicao(posj,malha);
celj = malha.celulas(icelj); 
assert(norm(celj.pos - posj,2) == 0);
for ip = celj.ixgpontos
    if (abs(e_h(ip,1)) > tol)
        ok = false;
    end
end
ok = true;
