reduction

Вопрос или проблема У меня следующая проблема: я пытаюсь параллелить свой код. Упрощенная версия кода выглядит так: !$omp parallel do private(e, b0_vek) reduction(+:b_vek) schedule(static, chunk_elem) do e = 1, n_elem call AddSource(elem(e), b0_vek) slice=elem(e)%node(1:6) !