应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 关于并行分区中消息传递的问题？
61/1返回列表
查看: 666  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

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长度和发送的不一样这不矛盾吗？（本程序是基于别的程序改的，原程序也是这么写的）
望不吝赐教，谢谢！
回复此楼

» 猜你喜欢
好之者不如乐之者
1楼 2016-08-30 13:01:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

FMStation

至尊木虫 (知名作家)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
q:1306140890: 金币+20, ★有帮助, 我已经想明白这个问题了，程序本身是没有问题的。金币全给你吧，谢谢回帖！ 2016-09-01 10:50:19
if(myid==0)then
...
  endif

else 部份?
赞一下 回复此楼
2楼2016-08-31 10:45:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

q:1306140890

木虫 (正式写手)
引用回帖:
2楼: Originally posted by FMStation at 2016-08-31 10:45:14
if(myid==0)then
...
  endif

else 部份?

我觉的else不是必须的吧，这里只是用0进程读取数据并发送消息而已，其他进程不需要都读入数据，否则发送消息就没意义了吧。
赞一下 回复此楼
好之者不如乐之者
3楼2016-08-31 11:42:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

FMStation

至尊木虫 (知名作家)

【答案】应助回帖

??????????????? (myid==0) ???Д?
???????? read_b
赞一下 回复此楼
4楼2016-08-31 18:01:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

q:1306140890

木虫 (正式写手)
???????:
4?: Originally posted by FMStation at 2016-08-31 18:01:43
??????????????? (myid==0) ???Д?
???????? read_b

"???????? read_b"?????????
赞一下 回复此楼
好之者不如乐之者
5楼2016-08-31 19:21:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

FMStation

至尊木虫 (知名作家)
subroutine read_b(ita)
赞一下 回复此楼
6楼2016-08-31 20:13:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 学员GMPvWK 的主题更新
61/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 情人节自我反思：在爱情中有过遗憾吗？ +5 瞬息宇宙 2026-02-15 6/300 2026-02-18 12:51 by 月下雪林
[找工作] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 i3cz6qj6l2 2026-02-17 3/150 2026-02-18 11:09 by lqtl9djx19
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 i3cz6qj6l2 2026-02-17 3/150 2026-02-18 10:54 by lqtl9djx19
[考研] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 i3cz6qj6l2 2026-02-17 3/150 2026-02-18 10:39 by lqtl9djx19
[考研] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 3/150 2026-02-18 08:53 by lqtl9djx19
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 3/150 2026-02-18 08:38 by lqtl9djx19
[找工作] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 pnpwoqbg8f 2026-02-17 4/200 2026-02-18 07:55 by lotyj5cz79
[基金申请] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-16 4/200 2026-02-18 07:40 by lotyj5cz79
[考研] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 pnpwoqbg8f 2026-02-16 4/200 2026-02-18 07:38 by lotyj5cz79
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 pnpwoqbg8f 2026-02-16 4/200 2026-02-18 07:23 by lotyj5cz79
[论文投稿] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 pnpwoqbg8f 2026-02-16 4/200 2026-02-18 07:08 by lotyj5cz79
[公派出国] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-16 3/150 2026-02-18 06:53 by lotyj5cz79
[论文投稿] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 3/150 2026-02-18 00:40 by tk2gfblvuz
[找工作] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 4/200 2026-02-18 00:23 by tk2gfblvuz
[公派出国] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 3/150 2026-02-17 23:40 by tk2gfblvuz
[基金申请] 基金正文30页指的是报告正文还是整个申请书 +3 successhe 2026-02-16 4/200 2026-02-17 20:56 by successhe
[基金申请] 今年春晚有几个节目很不错，点赞！ +5 瞬息宇宙 2026-02-16 6/300 2026-02-17 12:49 by jymy19840415
[微米和纳米] 球磨粉体时遇到了大的问题，请指教！ 10+3 6sbiam 2026-02-12 15/750 2026-02-16 15:03 by tgzxzqj
[基金申请] 过年走亲戚时感受到了所开私家车的鄙视链 +3 瞬息宇宙 2026-02-15 5/250 2026-02-16 14:23 by aspect3000
[硕博家园] 江汉大学解明教授课题组招博士研究生/博士后 +3 cleverlyy 2026-02-12 3/150 2026-02-12 21:02 by qsdf1
信息提示
关闭
请填处理意见
关闭