internal_energy_residual_vt Subroutine

private subroutine internal_energy_residual_vt(eos, n, V, T, Ur, UrV, UrT, Urn)

Calculate residual internal energy given volume and temperature.

Examples

eos = PengRobinson76(Tc, Pc, w)

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

call eos%internal_energy_residual_vt(&
   n, V, T, Ur=Ur, UrV=UrV, UrT=UrT, Urn=Urn &
   )

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), optional :: Ur

Internal energy [bar L]
real(kind=pr), intent(out), optional :: UrV

real(kind=pr), intent(out), optional :: UrT

real(kind=pr), intent(out), optional :: Urn(size(n))


Variables

Type Visibility Attributes Name Initial
real(kind=pr), private :: Ar
real(kind=pr), private :: ArT
real(kind=pr), private :: ArT2
real(kind=pr), private :: ArTV
real(kind=pr), private :: ArTn(size(n))
real(kind=pr), private :: ArV
real(kind=pr), private :: Arn(size(n))