| 查看: 641 | 回复: 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长度和发送的不一样这不矛盾吗？（本程序是基于别的程序改的，原程序也是这么写的） 望不吝赐教，谢谢！ |
回复此楼» 猜你喜欢
请问有评职称，把科研教学业绩算分排序的高校吗
已经有6人回复
-
2025冷门绝学什么时候出结果
已经有6人回复
-
Bioresource Technology期刊，第一次返修的时候被退回好几次了
已经有7人回复
-
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有8人回复
-
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有5人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
FMStation
至尊木虫 (知名作家)
- 应助: 591 (博士)
- 贵宾: 0.03
- 金币: 18074.7
- 红花: 97
- 帖子: 8891
- 在线: 1485.3小时
- 虫号: 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
- 金币: 18074.7
- 红花: 97
- 帖子: 8891
- 在线: 1485.3小时
- 虫号: 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
- 金币: 18074.7
- 红花: 97
- 帖子: 8891
- 在线: 1485.3小时
- 虫号: 2400059
- 注册: 2013-04-04
- 专业: 计算机应用技术
6楼2016-08-31 20:13:22