get_mat_element_Excite_2_t Function

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

Arguments

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

Return Value real(kind=dp)


Contents

Source Code

get_mat_element_Excite_2_t

Source Code

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

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

    end function get_mat_element_Excite_2_t