Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | nI(nel) | |||
integer, | intent(out) | :: | n_excits | |||
integer(kind=n_int), | intent(out), | allocatable | :: | det_list(:,:) |
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