Pcorrect function

Pressure correction of equilibrium constants