| 查看: 653 | 回复: 5 | ||
abcd702848金虫 (正式写手)
|
[求助]
以下这段代码出现了问题，自己百思不得其解
|
|
这段代码是自己采用mpich2结合IVF所编译的程序 program main implicit none include 'mpif.h' real a,b integer rc,ierr integer n, myid, numprocs integer status(MPI_STATUS_SIZE) call MPI_INIT( ierr ) call MPI_COMM_RANK( MPI_COMM_WORLD, myid, ierr ) call MPI_COMM_SIZE( MPI_COMM_WORLD, numprocs, ierr ) a=10.0 b=5.0 if(myid.eq.0)then write(*,*)a,myid call mpi_send(a,1,mpi_real,1,2,MPI_COMM_WORLD,ierr) write(*,*)a open(unit=10,file="cch.txt"  elseif(myid.eq.1)then write(*,*)b,myid call mpi_recv(b,1,mpi_real,0,2,MPI_COMM_WORLD,status,ierr) write(*,*)b endif call MPI_Finalize( ierr ) end 但是结果是Fatal error in MPI_Send: Other MPI error, error stack:自己猜测是不是send出了问题，但是想不通到底是哪里的问题。 |
回复此楼» 猜你喜欢
参与限项
已经有3人回复
-
假如你的研究生提出不合理要求
已经有7人回复
-
实验室接单子
已经有4人回复
-
全日制（定向）博士
已经有4人回复
-
对氯苯硼酸纯化
已经有3人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有12人回复
-
不自信的我
已经有12人回复
-
所感
已经有4人回复
-
要不要辞职读博？
已经有7人回复
-
北核录用
已经有3人回复
pippi6
铁杆木虫 (著名写手)
工程和科学数值计算咨询
- 应助: 413 (硕士)
- 贵宾: 0.002
- 金币: 7116.5
- 散金: 15
- 红花: 63
- 帖子: 1639
- 在线: 798.9小时
- 虫号: 2469437
- 注册: 2013-05-14
- 专业: 计算数学与科学工程计算
2楼2013-06-24 09:35:27
abcd702848
金虫 (正式写手)
- 应助: 3 (幼儿园)
- 金币: 1142.8
- 红花: 7
- 帖子: 545
- 在线: 144.9小时
- 虫号: 1844670
- 注册: 2012-06-02
- 性别: GG
- 专业: 应用地球物理学
3楼2013-06-24 09:45:03
abcd702848
金虫 (正式写手)
- 应助: 3 (幼儿园)
- 金币: 1142.8
- 红花: 7
- 帖子: 545
- 在线: 144.9小时
- 虫号: 1844670
- 注册: 2012-06-02
- 性别: GG
- 专业: 应用地球物理学
4楼2013-06-24 09:50:59
pippi6
铁杆木虫 (著名写手)
工程和科学数值计算咨询
- 应助: 413 (硕士)
- 贵宾: 0.002
- 金币: 7116.5
- 散金: 15
- 红花: 63
- 帖子: 1639
- 在线: 798.9小时
- 虫号: 2469437
- 注册: 2013-05-14
- 专业: 计算数学与科学工程计算
5楼2013-06-24 10:13:16
abcd702848
金虫 (正式写手)
- 应助: 3 (幼儿园)
- 金币: 1142.8
- 红花: 7
- 帖子: 545
- 在线: 144.9小时
- 虫号: 1844670
- 注册: 2012-06-02
- 性别: GG
- 专业: 应用地球物理学
6楼2013-06-24 10:16:26