24小时热门版块排行榜

>论坛更新日志 (4663)
>基金申请 (553)
>虫友互识 (346)
>文献求助 (337)
>休闲灌水 (254)
>导师招生 (233)
>硕博家园 (207)
>论文投稿 (144)
>考研 (116)
>考博 (110)
>公派出国 (86)
>招聘信息布告栏 (80)
>论文道贺祈福 (79)
>教师之家 (75)
>博后之家 (72)
>SciFinder/Reaxys (38)

返回列表

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

回复此楼

» 猜你喜欢

26申博推荐：南京航空航天大学国际前沿院光学方向招收博士生！已经有1人回复
如何从铁电相到顺电相。已经有1人回复
物理学I论文润色/翻译怎么收费? 已经有247人回复
各位大佬，求一份最新Wien2k版本作为学习用途已经有0人回复
南科大活性流体和软物质课题组诚招2027级博士、硕士研究生和博后已经有38人回复
瑞典林雪平大学博士后招聘｜PEC Water Splitting 方向已经有24人回复
PRB投稿，Acknowledgment sent to author状态十天了已经有3人回复
PVA溶解已经有1人回复
基金申请已经有44人回复

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

赞一下