Computes the specific entropy of saturated vapor from the quality (0 or 1) and the pressure.
Eg: (compute-saturated-vapor-entropy (stream-pressure (stream-involved ?self))
(quality (stream-involved ?self)))
We don't know how to compute this yet. It will be a call to an outside routine or a table lookup.