ar_ij Subroutine

public subroutine ar_ij(delta, tau, binary, aij)

Arguments

Type IntentOptional Attributes Name
type(hyperdual), intent(in) :: delta
type(hyperdual), intent(in) :: tau
type(Gerg2008Binary), intent(in) :: binary
type(hyperdual), intent(out) :: aij

Variables

Type Visibility Attributes Name Initial
real(kind=pr), public :: beta(binary%Kexpij)
real(kind=pr), public :: d_exp(binary%Kexpij)
real(kind=pr), public :: d_pol(binary%Kpolij)
real(kind=pr), public :: eps(binary%Kexpij)
real(kind=pr), public :: etha(binary%Kexpij)
real(kind=pr), public :: gama(binary%Kexpij)
integer, public :: idx_exp
integer, public :: idx_poly
real(kind=pr), public :: n_exp(binary%Kexpij)
real(kind=pr), public :: n_pol(binary%Kpolij)
real(kind=pr), public :: t_exp(binary%Kexpij)
real(kind=pr), public :: t_pol(binary%Kpolij)