Cv_residual_vt Subroutine

private subroutine Cv_residual_vt(eos, n, V, T, Cv)

Calculate residual heat capacity volume constant given V and T.

Examples

eos = PengRobinson76(Tc, Pc, w)

n = [1.0_pr, 1.0_pr]
T = 300.0_pr
V = 1.0_pr

call eos%Cv_residual_vt(n, V, T, Cv=Cv)

Type Bound

ArModel

Arguments

Type IntentOptional Attributes Name
class(ArModel), intent(in) :: eos

Model
real(kind=pr), intent(in) :: n(:)

Moles number vector
real(kind=pr), intent(in) :: V

Volume [L]
real(kind=pr), intent(in) :: T

Temperature [K]
real(kind=pr), intent(out) :: Cv

heat capacity V constant [bar L / K]

Variables

Type Visibility Attributes Name Initial
real(kind=pr), private :: ArT2