subprograma de cálculo