| 查看: 638 | 回复: 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出了问题，但是想不通到底是哪里的问题。 |
回复此楼» 猜你喜欢
谈谈两天一夜的“延安行”
已经有6人回复
-
博士申请都是内定的吗？
已经有12人回复
-
氨基封端PDMS和HDI反应快速固化
已经有11人回复
-
之前让一硕士生水了7个发明专利，现在这7个获批发明专利的维护费可从哪儿支出哈？
已经有11人回复
-
论文投稿求助
已经有4人回复
-
Applied Surface Science 这个期刊。有哪位虫友投过的能把word模板发给我参考一下嘛
已经有3人回复
-
投稿精细化工
已经有6人回复
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