Параллельность с петлями

Question

это я снова. Итак, у меня проблема с параллелизмом в Ada. В основном часть моей программы выглядит так:

for i in 1..it loop 

    for x in 1..A loop 
     for y in 1..B 
      --tab(x,y):=... 
     end loop; 
    end loop; 

    for x in 1..A loop 
     for y in 1..B 
      --tab(x,y):=... 
     end loop; 
    end loop; 

end loop; 

Внутри этих циклов есть некоторые расчеты. То, что я намереваюсь сделать, состоит в том, чтобы заставить эти две «внутренние» петли работать одновременно. Либо один элемент из цикла 1, то один элемент из цикла 2 или немного меньше «симметричный». Но обычно я хочу, чтобы это выглядело так: первая итерация, две «внутри» петли работают одновременно, все операции завершаются, завершается итерация. Вторая итерация такая же и т. Д. Мои вопросы: могу ли я сделать это с заявлениями «ВХОД» и «ПРИНИМАЕТ»? Или это потребует чего-то большего? Если бы вы могли просто указать мне правильное решение, потому что я видел много примеров, но никто не устраивал мою проблему.

Answer 1

Если две внутренние петли действительно не разделяют каких-либо данных, вы можете сделать это Лок это:

task First; 
task Second; 

task body First is 
    ... 
begin 
    for i in 1 .. it loop 
     for x in 1 .. A loop 
     for y in 1 .. B loop 
      ... 
     end loop; 
     end loop; 
    end loop; 
end First; 

task body Second is 
    ... 
begin 
    for i in 1 .. it loop 
     for x in 1 .. A loop 
     for y in 1 .. B loop 
      ... 
     end loop; 
     end loop; 
    end loop; 
end Second; 

Answer 2

Вы можете ограничить количество задач на сумму ядер, поддерживаемых системой. См. Этот пример при расчете pi: https://github.com/AdaDoom3/OldStuff/blob/master/time_pi.adb