sltcnd_compat Function

public function sltcnd_compat(nI, nJ, IC) result(hel)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nI(nel)
integer, intent(in) :: nJ(nel)
integer, intent(in) :: IC

Return Value real(kind=dp)


Contents

Source Code

sltcnd_compat

Source Code

    function sltcnd_compat(nI, nJ, IC) result(hel)
        integer, intent(in) :: nI(nel), nJ(nel), IC
        HElement_t(dp) :: hel

        class(Excitation_t), allocatable :: exc
        logical :: tParity

        call get_excitation(nI, nJ, IC, exc, tParity)
        hel = dyn_sltcnd_excit(nI, exc, tParity)
    end function sltcnd_compat