calculate_chain Function

private function calculate_chain(x, n_tot, m, d, zeta) result(val)

Arguments

Type IntentOptional Attributes Name
type(hyperdual), intent(in) :: x(:)
type(hyperdual), intent(in) :: n_tot
real(kind=pr), intent(in) :: m(:)
type(hyperdual), intent(in) :: d(:)
type(hyperdual), intent(in) :: zeta(0:3)

Return Value type(hyperdual)


Called by

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

Variables

Type Visibility Attributes Name Initial
type(hyperdual), private :: di_2
type(hyperdual), private :: g_ii
integer, private :: i
type(hyperdual), private :: one_m_z3
type(hyperdual), private :: z2_term
type(hyperdual), private :: z2_term2