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

登录注册

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

24小时热门版块排行榜

返回列表

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

回复此楼

» 猜你喜欢

2026年循环经济功能材料国际会议（ICFMCE 2026）已经有0人回复
2026年第五届电气、电子与信息工程国际会议（ISEEIE 2026）已经有0人回复
物理学I论文润色/翻译怎么收费? 已经有99人回复
哈尔滨理工大学物理系招收物理学考研调剂已经有5人回复
0702一志愿吉大B区求调剂已经有5人回复
求调剂已经有0人回复
0702一志愿吉大B区求调剂有论文已经有0人回复
请问还有没有用Latex写文章的小伙伴们？已经有0人回复
光学工程学硕调剂信息已经有26人回复
欢迎加入课题组已经有0人回复
散金币，求好运，祝面上顺利！已经有34人回复

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

赞一下