| 查看: 681 | 回复: 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长度和发送的不一样这不矛盾吗？（本程序是基于别的程序改的，原程序也是这么写的） 望不吝赐教，谢谢！ |
回复此楼» 猜你喜欢
材料考研调剂
已经有3人回复
-
材料调剂
已经有12人回复
-
英一数一408，总分284，二战真诚求调剂
已经有14人回复
-
085410 一志愿211 22408分数359求调剂
已经有4人回复
-
271求调剂
已经有19人回复
-
385分 生物学（071000）求调剂
已经有3人回复
-
一志愿安徽大学计算机科学与技术学硕，331分求调剂
已经有3人回复
-
318求调剂，计算材料方向
已经有8人回复
-
291求调剂
已经有25人回复
-
一志愿北京科技大学085601材料工程英一数二初试总分335求调剂
已经有6人回复
FMStation
至尊木虫 (知名作家)
- 应助: 591 (博士)
- 贵宾: 0.03
- 金币: 18374.7
- 红花: 97
- 帖子: 8891
- 在线: 1490.6小时
- 虫号: 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
- 金币: 18374.7
- 红花: 97
- 帖子: 8891
- 在线: 1490.6小时
- 虫号: 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
- 金币: 18374.7
- 红花: 97
- 帖子: 8891
- 在线: 1490.6小时
- 虫号: 2400059
- 注册: 2013-04-04
- 专业: 计算机应用技术
6楼2016-08-31 20:13:22
