check_k_space_hubbard_input Subroutine

    subroutine check_k_space_hubbard_input()
        character(*), parameter :: this_routine = "check_k_space_hubbard_input"

        if (iProcIndex == root) then
            print *, "checking input for k-space hubbard:"
            if (any(t_anti_periodic)) &
                call stop_all(this_routine, "anti-periodic BCs not implemented for k-space Hubbard")
            !todo: find the incompatible input and abort here!
            print *, "input is fine!"
        end if

    end subroutine check_k_space_hubbard_input