get_mat_element_Excite_1_t Function

private function get_mat_element_Excite_1_t(nI, exc) result(res)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nI(nEl)
type(Excite_1_t), intent(in) :: exc

Return Value real(kind=dp)


Contents

Source Code

get_mat_element_Excite_1_t

Source Code

    function get_mat_element_Excite_1_t(nI, exc) result(res)
        integer, intent(in) :: nI(nEl)
        type(Excite_1_t), intent(in) :: exc
        real(dp) :: res

        if (all(nI /= exc%val(2, 1))) then
            res = abs(sltcnd_excit(nI, canonicalize(exc), .false.))
        else
            res = 0.0_dp
        end if
    end function get_mat_element_Excite_1_t