24小时热门版块排行榜

返回列表

【悬赏金币】回答本帖问题，作者fo3mt2将赠送您 20 个金币

fo3mt2

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 1329.1
散金: 54
红花: 4
帖子: 129
在线: 158.7小时
虫号: 809980
注册: 2009-07-16
专业: 凝聚态物性 II ：电子结构

[求助] 三层嵌套循环的并行问题

大家好，

我想向大家请教一个问题。对于三层嵌套循环的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

回复此楼

» 猜你喜欢

津理工大学晶体材料全国重点实验室刘红军教授课题组招收博士生一名已经有0人回复
【原创讨论】从电子约束到物质编辑：一套可迭代的环形磁场科技树已经有0人回复
物理学I论文润色/翻译怎么收费? 已经有176人回复
【方案分享】单环磁场+轴心控制+偏转导出电子束约束系统（可行性实验）已经有6人回复
【修正版】单环用磁约束低速电子实验方案（简化版）已经有0人回复
桂林理工大学物理学专业招收调剂，还有三个名额！！！已经有22人回复
考博自荐已经有4人回复
山东大学第二批博士研究生招生已经有0人回复
中国科学院东莞材料科学与技术研究所-2026年博士招生-吴昊研究员-磁学与自旋电子学已经有0人回复
《电磁学》教材推荐已经有1人回复
【急招】合肥工大核聚变材料计算方向2026级工程博士生已经有3人回复

1楼 2021-06-06 20:54:40

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 fo3mt2 的主题更新

返回列表

不应助 确定回帖应助 (注意：应助才可能被奖励，但不允许灌水，必须填写15个字符以上)

普通表情龙兔虎猫