get_einsta_only Module Subroutine

public module subroutine get_einsta_only(einsta, nlo, nup, elo, eup, eigveclo, eigvecup, use_CDMS, do_dipole, do_quadrupole, dipole_moments, quadrupole_moments)

Uses

Calculate only the Einstein A coefficeints for a transition

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(inout) :: einsta

The Einstein coefficient for the transition
integer, intent(in) :: nlo

the angular momentum quantum number

integer, intent(in) :: nup

the angular momentum quantum number

real(kind=dp), intent(in) :: elo

The energy (hartrees) of the initial state
real(kind=dp), intent(in) :: eup

The energy (hartrees) of the final state
complex(kind=dp), intent(in), allocatable :: eigveclo(:)

Eigenvector of the initial state in the basis of symmetric top wavefunctions; the coefficients (c^{N,\tau}_K)
complex(kind=dp), intent(in), allocatable :: eigvecup(:)

Eigenvector of the final state in the basis of symmetric top wavefunctions; the coefficients (c^{N',\tau'}_{K})
logical, intent(in) :: use_CDMS

Whether to calculate the Einstein A coefficients ourselves (.true.) or to use values obtained from the CDMS catalogue (.false.)
logical, intent(in) :: do_dipole
logical, intent(in) :: do_quadrupole
complex(kind=dp), intent(in), target :: dipole_moments(3)

The spherical dipole moments
complex(kind=dp), intent(in), target :: quadrupole_moments(5)

The spherical quadrupole moments