24小时热门版块排行榜

返回列表

mhyuan

金虫 (小有名气)

应助: 2 (幼儿园)
金币: 660.3
散金: 10
红花: 1
帖子: 128
在线: 47.5小时
虫号: 1249327
注册: 2011-03-29
性别: GG
专业: 理论和计算化学

[求助] 有关MPI的一个小问题，请求高手指点迷津

在一个串行程序中，需要把某一模块写成MPI并行的，并且在串行中要循环调用这一模块，请问怎么实现？比如下面这个例子（是错误的）
program array

implicit none
integer :: a(8)
call prog111(a)
print*, a
end

subroutine prog111(a)
implicit none
integer :: a(8)
integer :: i

do i=1,5
call prog(a)
enddo
do i=1,8
a(i)=a(i)*a(i)*a(i)
enddo
end

subroutine prog(a)
implicit none
include 'mpif.h'
integer :: ierr,myid,np
integer :: a(8)
call mpi_init(ierr)
call mpi_comm_size(mpi_comm_world,np,ierr)
call mpi_comm_rank(mpi_comm_world,myid,ierr)

a(1)=myid

call mpi_gather(a,1,mpi_integer,a,1,mpi_integer,0,mpi_comm_world,ierr)

call mpi_finalize(ierr)

end

回复此楼

» 猜你喜欢

1楼 2011-08-10 10:37:08

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

智能机器人

Robot (super robot)

我们都爱小木虫

找到一些相关的精华帖子，希望有用哦~

请ZEMAX高手为小硕指点迷津已经有3人回复
想合成一种物质，用了好多方法都不行，请高手指点迷津。已经有27人回复
有没有朋友做过β-环糊精包结小分子，培养单晶的啊？拜求高手指点迷津啊~~ 已经有7人回复
关于MS的问题，请高手指点迷津已经有6人回复
求助引物设计方法，请高手帮忙指点迷津。。。万分感谢已经有4人回复
关于摩尔收率的问题请教各位指点迷津谢谢！！！已经有11人回复
拍了一个碳纤维板0°拉伸断面图，可是不知道如何分析，求高人指点迷津已经有8人回复
纳米材料方面投稿杂志选择，请求各位前辈指点迷津已经有9人回复
求如何提高黑曲霉纤维素酶活力发酵工艺，请各位微生物高手指点迷津！！！！！！！已经有9人回复
博士找工作遇到问题！请大家指点迷津！急啊！已经有28人回复
【转帖】小试压片没有问题，中试压片硬度上不去，求指点迷津！已经有7人回复
【求助】常压蒸馏出现了点问题，请指点迷津已经有27人回复

点击这里搜索更多相关资源

科研从小木虫开始，人人为我，我为人人

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

返回列表