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

回复此楼

» 猜你喜欢

【复旦大学】二维材料方向招收2026年博士研究生1名已经有0人回复
北京纳米能源与系统研究所王中林院士/曹南颖研究员课题组2026级硕/博/博后招生已经有10人回复
物理学I论文润色/翻译怎么收费? 已经有102人回复
荷兰Utrecht University超快太赫兹光谱王海教授课题招收2026 CSC博士生已经有23人回复
反铁磁体中的磁性切换：两种不同的机制已成功可视化已经有0人回复
求标准粉末衍射卡号 ICDD 01-076-1802 已经有0人回复
新西兰Robinson研究所招收全奖PhD 已经有0人回复
石墨烯转移--二氧化硅衬底石墨烯已经有0人回复

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

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

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

返回列表