calculate_zetas Subroutine

private subroutine calculate_zetas(n, V, m, d, zeta)

Arguments

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

Called by

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

Variables

Type Visibility Attributes Name Initial
integer, private :: i
integer, private :: k
type(hyperdual), private :: rho
type(hyperdual), private :: term
type(hyperdual), private :: x(size(n))