get_highest_pop Subroutine

    subroutine get_highest_pop(n_states, largest_dets)
        ! routine to give the n_states most populated states largest_dets
        ! globally
        integer, intent(in) :: n_states
        integer(n_int), intent(out) :: largest_dets(0:niftot, n_states)

        character(*), parameter :: this_routine = "get_highest_pop"
        integer(n_int) :: largest_dets_node(0:niftot, n_states)
        real(dp) :: norm_node

        call get_highest_pop_node(n_states, largest_dets_node, norm_node)

        call find_highest_sign_per_node(n_states, largest_dets_node, largest_dets)

    end subroutine get_highest_pop