ar_pure Subroutine

public subroutine ar_pure(pure, delta, tau, ar)

Arguments

Type IntentOptional Attributes Name
type(Gerg2008Pure), intent(in) :: pure
type(hyperdual), intent(in) :: delta
type(hyperdual), intent(in) :: tau
type(hyperdual), intent(out) :: ar

Variables

Type Visibility Attributes Name Initial
integer, public :: Kexp
integer, public :: Kpol
real(kind=8), public :: c_exp(pure%Kexp)
real(kind=8), public :: d_exp(pure%Kexp)
real(kind=8), public :: d_pol(pure%Kpol)
integer, public :: i
real(kind=8), public :: n_exp(pure%Kexp)
real(kind=8), public :: n_pol(pure%Kpol)
real(kind=8), public :: t_exp(pure%Kexp)
real(kind=8), public :: t_pol(pure%Kpol)