$//<![CDATA[ \begin{array}{l}\displaystyle B_o(p, T) = 1.0 + 10^A, \quad A = -6.58511 + 2.91329 \, \ln B^*_{ob} - 0.27683 \, \left( \ln B^*_{ob} \right)^2\end{array} //]]>$

$//<![CDATA[ \begin{array}{l}B^*_{ob} = R_s \, \left( \frac{\gamma_g}{\gamma_o} \right)^{0.526} + 0.968 \, T\end{array} //]]>$

$//<![CDATA[ \begin{array}{l}\displaystyle R_s(p, T) = \left[ a^{-1} p_b \, \gamma_g^{-c} \, \gamma_o^{-d} \, T^{-e} \right]^{1/b}\end{array} //]]>$
$//<![CDATA[ \begin{array}{l}a = 5.38088 \cdot 10^{-3}, \ b = 0.715082, \ c = -1.877840 , \ d = 3.1437, \ e = 1.32657\end{array} //]]>$

$//<![CDATA[ \begin{array}{l}\displaystyle p_b = a \, R_s^b \,\gamma_g^c \, \gamma_o^d \, T^e\end{array} //]]>$

$//<![CDATA[ \begin{array}{l}a = 5.38088 \cdot 10^{-3}, \ b = 0.715082, \ c = -1.877840 , \ d = 3.1437, \ e = 1.32657\end{array} //]]>$