function critPressure output SI.Pressure[nX] pcrit "component dynamic viscosities"; end critPressure;