| 查看: 670 | 回复: 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人回复
-
有时候真觉得大城市人没有县城人甚至个体户幸福
已经有5人回复
-
酰胺脱乙酰基
已经有9人回复
-
CSC & MSCA 博洛尼亚大学能源材料课题组博士/博士后招生｜MSCA经费充足、排名优
已经有5人回复
-
有70后还继续奋斗在职场上的吗？
已经有6人回复
-
博士延得我，科研能力直往上蹿
已经有7人回复
-
退学或坚持读
已经有27人回复
-
面上基金申报没有其他的参与者成吗
已经有5人回复
-
遇见不省心的家人很难过
已经有22人回复
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