inverse iteration in region 1,2 and 5: p = g(d,T)
function pofdt125 import ThermoSysPro; extends Modelica.Icons.Function; input Units.SI.Density d "density"; input Units.SI.Temperature T "temperature (K)"; input Units.SI.Pressure reldd "relative iteration accuracy of density"; input Integer region "region in IAPWS/IF97 in which inverse should be calculated"; output Units.SI.Pressure p "pressure"; output Integer error "error flag: iteration failed if different from 0"; end pofdt125;