generate_connected_space Subroutine

    subroutine generate_connected_space(original_space_size, original_space, &
                                        connected_space_size, connected_space, tSinglesOnlyOpt)

        ! A wrapper function to call the correct generation routine.

        integer, intent(in) :: original_space_size
        integer(n_int), intent(in) :: original_space(0:, :)
        integer, intent(inout) :: connected_space_size
        integer(n_int), optional, intent(out) :: connected_space(0:, :)
        logical, intent(in), optional :: tSinglesOnlyOpt
        character(*), parameter :: this_routine = "generate_connected_space"

        if (tKPntSym) then
            call generate_connected_space_kpnt(original_space_size, original_space, &
                                               connected_space_size, connected_space, tSinglesOnlyOpt)
        else
            call generate_connected_space_normal(original_space_size, original_space, &
                                                 connected_space_size, connected_space, tSinglesOnlyOpt)
        end if

    end subroutine generate_connected_space