pickOrbs_real_hubbard_double Subroutine

    subroutine pickOrbs_real_hubbard_double(ilut, nI, csf_i, excitInfo, pgen)
        integer(n_int), intent(in) :: ilut(0:nifguga)
        integer, intent(in) :: nI(nel)
        type(CSF_Info_t), intent(in) :: csf_i
        type(ExcitationInformation_t), intent(out) :: excitInfo
        real(dp), intent(out) :: pgen
        character(*), parameter :: this_routine = "pickOrbs_real_hubbard_double"

        pgen = 0.0_dp
        unused_var(ilut); unused_var(nI); unused_var(csf_i); unused_var(excitInfo)
        call stop_all(this_routine, &
                      "should not be at double excitations in the real-space hubbard model!")
    end subroutine pickOrbs_real_hubbard_double