function propsat1_P_der input Units.SI.AbsolutePressure p "Pressure"; input Real p_der "Derivative of Pressure"; output ThermoSysPro.Properties.WaterSteamSimple.PropThermoSat der_pro; end propsat1_P_der;