calculate_dispersion Function

private function calculate_dispersion(n, V, T, zeta, m, eps_k, sig, kij) result(val)

Arguments

Type IntentOptional Attributes Name
type(hyperdual), intent(in) :: n(:)
type(hyperdual), intent(in) :: V
type(hyperdual), intent(in) :: T
type(hyperdual), intent(in) :: zeta(0:3)
real(kind=pr), intent(in) :: m(:)
real(kind=pr), intent(in) :: eps_k(:)
real(kind=pr), intent(in) :: sig(:)
real(kind=pr), intent(in), optional :: kij(:,:)

Return Value type(hyperdual)


Called by

proc~~calculate_dispersion~~CalledByGraph proc~calculate_dispersion calculate_dispersion proc~ar_impl PcSaft%Ar_impl proc~ar_impl->proc~calculate_dispersion

Variables

Type Visibility Attributes Name Initial
type(hyperdual), private :: C1
type(hyperdual), private :: I1
type(hyperdual), private :: I2
type(hyperdual), private :: a1_term
type(hyperdual), private :: a2_term
type(hyperdual), private :: a_k
type(hyperdual), private :: b_k
real(kind=pr), private :: eps_ij
type(hyperdual), private :: eta
integer, private :: i
integer, private :: j
integer, private :: k
real(kind=pr), private :: kij_val
type(hyperdual), private :: m2_e2s3
type(hyperdual), private :: m2_es3
type(hyperdual), private :: m_ave
type(hyperdual), private :: n_tot
integer, private :: nc
type(hyperdual), private :: one_m_eta
type(hyperdual), private :: rho
real(kind=pr), private :: sig_ij
type(hyperdual), private :: term
type(hyperdual), private :: x(size(n))