Ar_impl Function

private function Ar_impl(self, n, V, T) result(ar_total)

Type Bound

PcSaft

Arguments

Type IntentOptional Attributes Name
class(PcSaft) :: self
type(hyperdual), intent(in) :: n(:)
type(hyperdual), intent(in) :: V
type(hyperdual), intent(in) :: T

Return Value type(hyperdual)


Calls

proc~~ar_impl~~CallsGraph proc~ar_impl PcSaft%Ar_impl proc~calculate_association calculate_association proc~ar_impl->proc~calculate_association proc~calculate_chain calculate_chain proc~ar_impl->proc~calculate_chain proc~calculate_dispersion calculate_dispersion proc~ar_impl->proc~calculate_dispersion proc~calculate_hard_sphere calculate_hard_sphere proc~ar_impl->proc~calculate_hard_sphere proc~calculate_zetas calculate_zetas proc~ar_impl->proc~calculate_zetas

Variables

Type Visibility Attributes Name Initial
type(hyperdual), private :: a_assoc
type(hyperdual), private :: a_chain
type(hyperdual), private :: a_disp
type(hyperdual), private :: a_hs
type(hyperdual), private :: d(size(n))
type(hyperdual), private :: eta
integer, private :: i
type(hyperdual), private :: m_ave
type(hyperdual), private :: n_tot
integer, private :: nc
type(hyperdual), private :: rho
type(hyperdual), private :: x(size(n))
type(hyperdual), private :: zeta(0:3)