sltcnd_3_tc_ua Function

    function sltcnd_3_tc_ua(nI, ex, tSign, assert_occupation) result(hel)
        integer, intent(in) :: nI(nEl)
        type(Excite_3_t), intent(in) :: ex
        logical, intent(in) :: tSign
        logical, intent(in), optional :: assert_occupation
        debug_function_name("sltcnd_3_tc_ua")
        HElement_t(dp) :: hel
#ifdef DEBUG_
    block
        use constants, only: stderr
        use util_mod, only: stop_all
        logical :: test_occupation

        if (present(assert_occupation)) then
            test_occupation = assert_occupation
        else
            test_occupation = .true.
        end if

        if (test_occupation) then
            if (.not. occupation_allowed(nI, ex)) then
                write(stderr, *) 'src', ex%val(1, :)
                write(stderr, *) 'tgt', ex%val(2, :)
                write(stderr, *) 'nI', nI
                call stop_all(this_routine, "Not allowed by occupation.")
            end if
        end if
    end block
#endif

        ! this is directly the fully symmetrized entry of the L-matrix
        associate(ex => ex%val)
            hel = get_lmat_el_ua(ex(1, 1), ex(1, 2), ex(1, 3), &
                                 ex(2, 1), ex(2, 2), ex(2, 3))
        end associate
        ! take fermi sign into account
        if (tSign) hel = -hel
    end function sltcnd_3_tc_ua