| 查看: 719 | 回复: 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出了问题，但是想不通到底是哪里的问题。 |
回复此楼» 猜你喜欢
08生物与医药专硕初试346找调剂
已经有7人回复
-
理学07化学 303求调剂
已经有14人回复
-
309求调剂
已经有4人回复
-
一志愿安徽大学计算机科学与技术学硕，331分求调剂
已经有5人回复
-
085600，材料与化工321分调剂
已经有8人回复
-
270调剂
已经有3人回复
-
一志愿211，335分，0856，求调剂院校和导师
已经有13人回复
-
085601一志愿中山大学深圳材料工程330求调剂
已经有7人回复
-
调剂推荐
已经有12人回复
-
求调剂，一志愿南京师范大学计算机专硕，初试373，六级通过，
已经有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
