| 查看: 309 | 回复: 1 | ||
[求助]
intel fortran +mpih2并行老出错已有1人参与
|
|
源程序如下： program mpihello include "mpif.h " character*(MPI_MAX_PROCESSOR_NAME) processor_name integer myid,numprocs,namelen,rc,ierr !------------------------------------------------------------ integer i,j real a(10),b(10) call MPI_INIT(ierr) call MPI_COMM_RANK(MPI_COMM_WORLD,myid,ierr) call MPI_COMM_SIZE(MPI_COMM_WORLD,numprocs,ierr) call MPI_GET_PROCESSOR_NAME(processor_name,namelen,ierr) if(myid==0)then do i=1,10 a(i)=i**2 end do call MPI_Send(a(1),10,MPI_real ,1,99,MPI_COMM_WORLD) else call MPI_Recv(b(1),10,MPI_real,0,99,MPI_COMM_WORLD,status,ierr) print*,'recevied from process 0:',(b(i),i=1,10) end if call MPI_Finalize(ierr) stop end 错误提示：  捕获.PNG |
回复此楼» 猜你喜欢
Bioresource Technology期刊，第一次返修的时候被退回好几次了
已经有7人回复
-
2025冷门绝学什么时候出结果
已经有4人回复
-
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有8人回复
-
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有5人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
2楼2015-10-16 13:42:58