版块导航: 正在加载中...

登录注册

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

24小时热门版块排行榜

北京石油化工学院2026年研究生招生接收调剂公告

返回列表

jiedati123

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 4
帖子: 4
在线: 50分钟
虫号: 7021341
注册: 2017-08-03
专业: 多相流热物理学

[求助] 请问下面这段代码怎么进行openmp并行已有1人参与

DO JJ=2,52
            J=JT2-JJ
            PT(ISTF)=0.
            QT(ISTF)=F(ISTF,J,N)
            DO I=3,152
                  DENOM=AP(I,J)-PT(I-1)*AIM(I,J)
                  PT(I)=AIP(I,J)/DENOM
                  TEMP=CON(I,J)+AJP(I,J)*F(I,J+1,N)+AJM(I,J)*F(I,J-1,N)
                  QT(I)=(TEMP+AIM(I,J)*QT(I-1))/DENOM
            ENDDO
            DO II=3,52
                  I=IT1-II
                  F(I,J,N)=F(I+1,J,N)*PT(I)+QT(I)
            ENDDO
         ENDDO

回复此楼

» 猜你喜欢

［调剂信息］211智能人工感知方向国家青年特聘专家课题组招收调剂研究生已经有0人回复
[调剂信息]211智能人工感知方向国家青年特聘专家课题组招收调剂研究生已经有0人回复
物理学I论文润色/翻译怎么收费? 已经有230人回复
0702一志愿吉大B区求调剂本科期间发表一篇Sci 已经有2人回复
070200求调剂，一志愿某211，288分已经有18人回复
法国博士后职位已经有0人回复
重庆交大26年硕士生招生拟调剂通知已出！欢迎加入机器视觉与3D光学成像课题组。已经有0人回复
广州大学光电信息工程专业调剂，招收物理学专业学生已经有1人回复
0702一志愿吉大B区求调剂本科期间发表一篇Sci 已经有0人回复

1楼 2017-11-03 15:04:30

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

cntsinghua

银虫 (初入文坛)

应助: 1 (幼儿园)
金币: 198.3
红花: 1
帖子: 20
在线: 23.3小时
虫号: 2032954
注册: 2012-09-27
专业: 钢铁冶金

【答案】应助回帖

!$OMP PARALLEL
DO JJ=2,52
            J=JT2-JJ
            PT(ISTF)=0.
            QT(ISTF)=F(ISTF,J,N)

!$OMP DO PRIVATE(DENOM,TEMP)
            DO I=3,152
                  DENOM=AP(I,J)-PT(I-1)*AIM(I,J)
                  PT(I)=AIP(I,J)/DENOM
                  TEMP=CON(I,J)+AJP(I,J)*F(I,J+1,N)+AJM(I,J)*F(I,J-1,N)
                  QT(I)=(TEMP+AIM(I,J)*QT(I-1))/DENOM
            ENDDO
你试一下
!$OMP END DO

!$OMP DO PRIVATE(I)
            DO II=3,52
                  I=IT1-II
                  F(I,J,N)=F(I+1,J,N)*PT(I)+QT(I)
            ENDDO
!$OMP END DO
         ENDDO
!$OMP END PARALLEL

赞一下