function ds1satp_P input Units.SI.Pressure p "pressure"; output Real dsp(unit = "m3/(kg.K)") "derivative of entropy"; end ds1satp_P;