| 查看: 330 | 回复: 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 |
回复此楼» 猜你喜欢
316求调剂
已经有14人回复
-
chinese chemical letters英文版投稿求助
已经有6人回复
-
264分，求任意工科调剂
已经有5人回复
-
求生物学调剂
已经有9人回复
-
求调剂 302分初试 0854
已经有3人回复
-
交通运输考试264分求工科调剂
已经有3人回复
-
材料与化工306分找调剂
已经有8人回复
-
一志愿北京科技材料科学与工程288分，求调剂
已经有13人回复
-
413求调剂
已经有3人回复
-
319求调剂
已经有14人回复
2楼2015-10-16 13:42:58
10