set_initiator_flags_array Subroutine

    subroutine set_initiator_flags_array(list, listSize)
        integer(n_int), intent(inout) :: list(0:, 1:)
        integer, intent(in) :: listSize
        integer :: i, run

        do i = 1, listSize
            do run = 1, inum_runs
                call set_flag(list(:, i), get_initiator_flag_by_run(run))
            end do
        end do
    end subroutine set_initiator_flags_array