gen_all_singles_rs_hub Subroutine

public subroutine gen_all_singles_rs_hub(nI, n_excits, det_list)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nI(nel)
integer, intent(out) :: n_excits
integer(kind=n_int), intent(out), allocatable :: det_list(:,:)

Contents


Source Code

    subroutine gen_all_singles_rs_hub(nI, n_excits, det_list)
        ! create all single excitations in the real-space hubbard
        ! without hopping transcorrelation this is quite easy..
        integer, intent(in) :: nI(nel)
        integer, intent(out) :: n_excits
        integer(n_int), intent(out), allocatable :: det_list(:, :)

        if (t_trans_corr_hop) then
            call gen_all_singles_rs_hub_hop_transcorr(nI, n_excits, det_list)
        else
            call gen_all_singles_rs_hub_default(nI, n_excits, det_list)
        end if

    end subroutine gen_all_singles_rs_hub