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年秋博士招生-物理学-活性胶体方向-高永祥课题组已经有18人回复
论物质与能量的统一模型及物理现象解释已经有0人回复
物理学I论文润色/翻译怎么收费? 已经有267人回复
基于基元I统一理论的数学相关应用推导已经有0人回复
基元I统一理论：宇宙本质、层级演化与修炼文明的本源规律已经有1人回复
基元I理论下三大核心空间现象精准推导与细节解析已经有0人回复
基于基元 I 统一理论的反重力理论推导已经有0人回复
基于基元I统一理论的量子力学本源推导已经有1人回复
推荐一款可以AI辅助写作的Latex编辑器SmartLatexEditor，超级好用，AI润色，全免费已经有20人回复
【EI|Scopus 双检索】第六届智能机器人系统国际会议（ISoIRS 2026）已经有0人回复
2026年第四届电动车与车辆工程国际会议（CEVVE 2026）已经有0人回复

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

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

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

返回列表

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

普通表情龙兔虎猫