zTVTERMO Subroutine

public subroutine zTVTERMO(nc, indic, t, rn, v, p, dpv, PHILOG, DLPHIP, DLPHIT, FUGN)

Calculation of lnphiP and derivatives rn mixture mole numbers (input) t temperature (k) (input) v volume (L) (input) p pressure (bar) (output) PHILOG vector of ln(phi(i)P) (output) 0 < INDIC < 5 DLPHIT t-derivative of ln(phi(i)) (const P, n) (output) 0 < INDIC = 2 or 4 DLPHIP P-derivative of ln(phi(i)) (const T, n) (output) 0 < INDIC < 5 FUGN comp-derivative of ln(phi(i)) (const t & P)(output) 2 < INDIC


Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nc
integer, intent(in) :: indic
real(kind=pr), intent(in) :: t
real(kind=pr), intent(in) :: rn(nc)
real(kind=pr), intent(in) :: v
real(kind=pr), intent(out) :: p
real(kind=pr), intent(out) :: dpv
real(kind=pr), intent(out) :: PHILOG(nc)
real(kind=pr), intent(out) :: DLPHIP(nc)
real(kind=pr), intent(out) :: DLPHIT(nc)
real(kind=pr), intent(out) :: FUGN(nc,nc)

Variables

Type Visibility Attributes Name Initial
real(kind=pr), public :: ArTn(nc)
real(kind=pr), public :: ArVn(nc)
real(kind=pr), public :: Arn(nc)
real(kind=pr), public :: Arn2(nc,nc)
real(kind=pr), public :: DPDN(nc)
real(kind=pr), public :: RT
real(kind=pr), public :: Z
real(kind=pr), public :: ar
real(kind=pr), public :: artv
real(kind=pr), public :: arv
real(kind=pr), public :: arv2
real(kind=pr), public :: dpdt
integer, public :: i
integer, public :: igz
integer, public :: k
integer, public :: nder
integer, public :: ntemp
real(kind=pr), public :: totn