| 查看: 336 | 回复: 0 | ||
[求助]
有关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 |
回复此楼» 猜你喜欢
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有5人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有6人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有5人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有3人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有5人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有4人回复
找到一些相关的精华帖子，希望有用哦~
请ZEMAX高手为小硕指点迷津
已经有3人回复
- 想合成一种物质，用了好多方法都不行，请高手指点迷津。
已经有27人回复
- 有没有朋友做过β-环糊精包结小分子，培养单晶的啊？拜求高手指点迷津啊~~
已经有7人回复
- 关于MS的问题，请高手指点迷津
已经有6人回复
- 求助引物设计方法，请高手帮忙指点迷津。。。万分感谢
已经有4人回复
- 关于摩尔收率的问题 请教各位指点迷津 谢谢！！！
已经有11人回复
- 拍了一个碳纤维板0°拉伸断面图，可是不知道如何分析，求高人指点迷津
已经有8人回复
- 纳米材料方面投稿杂志选择，请求各位前辈指点迷津
已经有9人回复
- 求如何提高黑曲霉纤维素酶活力发酵工艺，请各位微生物高手指点迷津！！！！！！！
已经有9人回复
- 博士找工作遇到问题！请大家指点迷津！急啊！
已经有28人回复
- 【转帖】小试压片没有问题，中试压片硬度上不去，求指点迷津！
已经有7人回复
- 【求助】常压蒸馏出现了点问题，请指点迷津
已经有27人回复
点击这里搜索更多相关资源科研从小木虫开始，人人为我，我为人人
10