关于利用OPENMP并行的一个问题

li913 · 发表于 2020-4-22 10:30:59

随机数子程序不能用于并行域，可能会出问题，三个部分得到相同的值。

[Fortran] 纯文本查看 复制代码

logical b
b=.false.
do i=1,10000
if(mod(i,50)==0) then
b=.not.b
if(b) then
交换t1,t2
else
交换t2,t3
end if
end if
end do

li913 · 发表于 2020-4-22 14:35:58

先生成随机数，再并行。

li913 · 发表于 2020-4-22 21:55:50

integer n
n=0
do i=1,10000
if(mod(i,50)==0) then
n=mod(n+1,3)
if(n==0) then
交换t1,t2
elseif(n==...)
交换...
end if
end if
end do

[并行] 关于利用OPENMP并行的一个问题