AR Subroutine

public subroutine AR(model, n, v, t, arval)

Type Bound

PCSAFT

Arguments

Type IntentOptional Attributes Name
class(PCSAFT), intent(in) :: model
real(kind=pr), intent(in) :: n(:)
real(kind=pr), intent(in) :: v
real(kind=pr), intent(in) :: t
real(kind=pr), intent(out) :: arval

Variables

Type Visibility Attributes Name Initial
real(kind=pr), public :: a1_term_disp
real(kind=pr), public :: a2_term_disp
real(kind=pr), public :: a_k
real(kind=pr), public :: ar_chain
real(kind=pr), public :: ar_dispersion
real(kind=pr), public :: ar_hs
real(kind=pr), public :: arg1
real(kind=pr), public, DIMENSION(SIZE(n)) :: arg10
real(kind=pr), public :: b_k
real(kind=pr), public :: c1
real(kind=pr), public :: d(SIZE(n))
real(kind=pr), public :: di_2
real(kind=pr), public :: eps_ij
real(kind=pr), public :: epsilon_k(SIZE(n))
real(kind=pr), public :: eta
real(kind=pr), public :: g_ii
integer, public :: i
real(kind=pr), public :: i1
real(kind=pr), public :: i2
integer, public :: j
integer, public :: k
real(kind=pr), public :: kij(SIZE(n),SIZE(n))
real(kind=pr), public :: kij_val
real(kind=pr), public :: m(SIZE(n))
real(kind=pr), public :: m2_e2s3
real(kind=pr), public :: m2_es3
real(kind=pr), public :: m_ave
real(kind=pr), public :: n_tot
integer, public :: nc
real(kind=pr), public :: result1
real(kind=pr), public :: rho
real(kind=pr), public :: rho_disp
real(kind=pr), public :: sig_ij
real(kind=pr), public :: sigma(SIZE(n))
real(kind=pr), public :: term1_hs
real(kind=pr), public :: term2_hs
real(kind=pr), public :: term3_hs
real(kind=pr), public :: term_disp
real(kind=pr), public :: x(SIZE(n))
real(kind=pr), public :: zetas(0:3)