IAPWS95

IAPWS9> ## calculate pressure for given temperature, density
IAPWS9> IAPWS95("P", T=500, rho=838.0235)
         p
1 9.998689