| 查看: 329 | 回复: 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 |
回复此楼» 猜你喜欢
环境285分，过六级，求调剂
已经有4人回复
-
学硕化学工程与技术，一志愿中国海洋大学320+求调剂
已经有3人回复
-
能源动力 调剂
已经有3人回复
-
348求调剂
已经有4人回复
-
材料化工340求调剂
已经有5人回复
-
08工科求调剂290分
已经有6人回复
-
材料调剂
已经有3人回复
-
372分材料与化工（085600）一志愿湖南大学求调剂
已经有4人回复
-
283分材料与化工求调剂
已经有4人回复
-
一志愿华东理工大学，080500学硕，317分，求调剂
已经有12人回复
2楼2015-10-16 13:42:58
120