| 查看: 774 | 回复: 5 | ||
q:1306140890木虫 (正式写手)
|
[求助]
关于并行分区中消息传递的问题？ 已有1人参与
|
|
subroutine read_b(ita) integer ny0,nz0,ii,ita if(myid==0)then allocate(du0(0:nz,1:3)) open(3,file='./inflow/du.dat',form='unformatted') read(3) read(3)((du0(k,l),k=0,nz),l=1,3) close(3) do ii=0,numprocs-1 do l=1,3 do k=0,mysizez(ii)-1 buffer(k+(l-1)*mysizez(ii))=real(du0(ibeginz(ii)+k,l)) buffer(k+(l+2)*mysizez(ii))=imag(du0(ibeginz(ii)+k,l)) enddo enddo call MPI_BSEND(buffer(0),3*mysizez(ii)*2,MPI_REAL8,ii,ii,MPI_COMM_WORLD,ierr) enddo deallocate(du0) endif call MPI_RECV(buffer(0),3*(kn+1)*2,MPI_REAL8,0,MPI_ANY_TAG,MPI_COMM_WORLD,status,ierr) do l=1,3 do k=0,kn du(k,l)=buffer(k+(l-1)*(kn+1))+ai*buffer(k+(l+2)*(kn+1)) enddo enddo endsubroutine 1）这个子程序哪儿有问题？ 2）各个进程在receive之后是如何把自己分区内的数据合成du的？接收的buffer长度和发送的不一样这不矛盾吗？（本程序是基于别的程序改的，原程序也是这么写的） 望不吝赐教，谢谢！ |
回复此楼» 猜你喜欢
关于filecode，很负责任的告诉大家
已经有7人回复
-
【2027博士申请】纳米药物递送方向
已经有5人回复
-
关于豆爷回答的JTJC与%2F数量
已经有7人回复
-
2026国自然放榜时间
已经有3人回复
-
国基金的申报应该改成非等额制，评价高的钱多评价低的钱少，但是增加资助率
已经有7人回复
-
好奇怪的filecode
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有4人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有5人回复
FMStation
至尊木虫 (知名作家)
- 应助: 591 (博士)
- 贵宾: 0.03
- 金币: 18701.7
- 红花: 97
- 帖子: 8891
- 在线: 1493.2小时
- 虫号: 2400059
- 注册: 2013-04-04
- 专业: 计算机应用技术
2楼2016-08-31 10:45:14
q:1306140890
木虫 (正式写手)
- 应助: 32 (小学生)
- 金币: 3750.2
- 红花: 8
- 帖子: 648
- 在线: 290.8小时
- 虫号: 2302672
- 注册: 2013-02-27
- 专业: 流体力学
3楼2016-08-31 11:42:59
FMStation
至尊木虫 (知名作家)
- 应助: 591 (博士)
- 贵宾: 0.03
- 金币: 18701.7
- 红花: 97
- 帖子: 8891
- 在线: 1493.2小时
- 虫号: 2400059
- 注册: 2013-04-04
- 专业: 计算机应用技术
4楼2016-08-31 18:01:43
q:1306140890
木虫 (正式写手)
- 应助: 32 (小学生)
- 金币: 3750.2
- 红花: 8
- 帖子: 648
- 在线: 290.8小时
- 虫号: 2302672
- 注册: 2013-02-27
- 专业: 流体力学
5楼2016-08-31 19:21:47
FMStation
至尊木虫 (知名作家)
- 应助: 591 (博士)
- 贵宾: 0.03
- 金币: 18701.7
- 红花: 97
- 帖子: 8891
- 在线: 1493.2小时
- 虫号: 2400059
- 注册: 2013-04-04
- 专业: 计算机应用技术
6楼2016-08-31 20:13:22
