Density in vapor region for given pressure and temperature
function d2_PT input Units.SI.AbsolutePressure p "Pressure"; input Units.SI.Temperature T "Temperature"; output Units.SI.Density d "Density"; end d2_PT;