| 查看: 674 | 回复: 0 | ||
| 【悬赏金币】回答本帖问题，作者fo3mt2将赠送您 20 个金币 | ||
fo3mt2金虫 (小有名气)
|
[求助]
三层嵌套循环的并行问题
|
|
|
大家好， 我想向大家请教一个问题。对于三层嵌套循环的fortran程序要如何用mpi技术并行呢？比如下面这段代码，变量arr是一个三维数组，我想对它的每一维度都分别各自并行，并将该数组里的每个元素，通过计算后加和，最后收集到collect变量里。 能否请大家帮我修改下这段代码，把它变成mpi并行的程序呢？谢谢啦。 !example code program example implicit none integer :: i, j, k double precision :: arr(100,1000,700), collect do i = 1, 100, 1 do j = 1, 1000, 1 do k = 1, 700, 1 arr(i,j,k) = dble(i + j + k) end do end do end do collect = 0.0d0 !this is the part that i want to parallelize do i = 1, 100, 1 do j = 1, 1000, 1 do k = 1, 700, 1 collect = collect + arr(i,j,k) * dble(i+j-k) end do end do end do write (unit=*, fmt=*) collect ! stop end program example |
回复此楼» 猜你喜欢
浙大物院表面物理课题组长期招收普博及直博学生
已经有259人回复
-
【征稿】Springer Nature热电专题 Discover Materials / Discover Chemistry
已经有47人回复
-
物理学I论文润色/翻译怎么收费?
已经有173人回复
-
25届硕士申请，材料计算方向
已经有2人回复
-
课题组招1-2名硕士
已经有1人回复
-
机时越来越贵之后，我把一部分 DFT 流程搬到了 AI 计算平台上
已经有0人回复
-
斯坦福大学与Elsevier世界前2%学者新排名查询
已经有1人回复
-
27申博推荐：南京航空航天大学国际前沿院光学方向招收博士生！
已经有19人回复
-
华南师范大学+双一流学科物理学+广东省杰青团队2027年博士招生+机器学习驱动材料设计
已经有1人回复
-
apl投稿状态
已经有2人回复
-
华南师范大学+双一流学科物理学+广东省杰青团队2027年博士招生+机器学习驱动材料设计
已经有0人回复
20