| 查看: 290 | 回复: 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 |
回复此楼» 猜你喜欢
315分 085602 求调剂
已经有3人回复
-
求调剂，一志愿郑州大学材料与化工专硕，英二数二342分，求老师收留
已经有4人回复
-
285求调剂
已经有8人回复
-
324求调剂
已经有8人回复
-
一志愿华南师范大学-22408计算机-292分-求华南师范大学调剂
已经有4人回复
-
材料调剂
已经有9人回复
-
321求调剂
已经有12人回复
-
调剂求助
已经有4人回复
-
22408 266求调剂
已经有3人回复
-
266分，一志愿电气工程，本科材料，求材料专业调剂
已经有4人回复
找到一些相关的精华帖子，希望有用哦~
请ZEMAX高手为小硕指点迷津
已经有3人回复
- 想合成一种物质，用了好多方法都不行，请高手指点迷津。
已经有27人回复
- 有没有朋友做过β-环糊精包结小分子，培养单晶的啊？拜求高手指点迷津啊~~
已经有7人回复
- 关于MS的问题，请高手指点迷津
已经有6人回复
- 求助引物设计方法，请高手帮忙指点迷津。。。万分感谢
已经有4人回复
- 关于摩尔收率的问题 请教各位指点迷津 谢谢！！！
已经有11人回复
- 拍了一个碳纤维板0°拉伸断面图，可是不知道如何分析，求高人指点迷津
已经有8人回复
- 纳米材料方面投稿杂志选择，请求各位前辈指点迷津
已经有9人回复
- 求如何提高黑曲霉纤维素酶活力发酵工艺，请各位微生物高手指点迷津！！！！！！！
已经有9人回复
- 博士找工作遇到问题！请大家指点迷津！急啊！
已经有28人回复
- 【转帖】小试压片没有问题，中试压片硬度上不去，求指点迷津！
已经有7人回复
- 【求助】常压蒸馏出现了点问题，请指点迷津
已经有27人回复
点击这里搜索更多相关资源科研从小木虫开始，人人为我，我为人人
