Gravar-mail: Algoritmo para cálculo de sistemas de aterramento de subestações