24小时热门版块排行榜

返回列表

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

fo3mt2

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 1332.6
散金: 54
红花: 4
帖子: 129
在线: 158.9小时
虫号: 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

回复此楼

» 猜你喜欢

什么时候开奖？已经有13人回复
散金币祈福已经有94人回复
物理学I论文润色/翻译怎么收费? 已经有213人回复
青基已中已经有1人回复
散金币祈福已经有186人回复
求助，如何提取ELK的rt-TDDFT在某一时刻的自旋密度分布和电子密度分布已经有1人回复
澳门大学IAPME李海峰教授常年招收博士研究生已经有0人回复
澳门大学IAPME李海峰教授常年招收博士研究生已经有0人回复
澳门大学IAPME李海峰教授常年招收博士研究生已经有0人回复
求助中医院临床中医中标的青年标书学习，谢谢已经有2人回复

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

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

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

返回列表

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

普通表情龙兔虎猫