24小时热门版块排行榜

>论坛更新日志 (3565)
>虫友互识 (688)
>文献求助 (221)
>导师招生 (202)
>论文投稿 (129)
>考博 (96)
>硕博家园 (94)
>教师之家 (67)
>基金申请 (66)
>博后之家 (51)
>公派出国 (44)
>考研 (44)
>找工作 (34)
>论文道贺祈福 (33)
>休闲灌水 (33)
>招聘信息布告栏 (26)

返回列表

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

回复此楼

» 猜你喜欢

石墨烯转移--二氧化硅衬底石墨烯已经有0人回复
笼目材料中量子自旋液体基态的证据已经有0人回复
物理学I论文润色/翻译怎么收费? 已经有275人回复
数学教学论硕士可以读数学物理博士吗？已经有0人回复
德国亥姆霍兹Hereon中心汉堡分部招镁合金腐蚀裂变SCC课题方向2026公派博士生已经有4人回复
澳门大学应用物理及材料工程研究院潘晖教授课题组诚招博士后已经有11人回复
求助NH4V4O10晶体的CIF文件已经有0人回复
英国全奖博士招聘-深度学习与量子物理已经有0人回复
间接带隙半导体有效质量求助已经有1人回复
投稿chemical physical letters不送审？已经有2人回复
南开大学物理学院张书辉副教授招收凝聚态物理理论方向博士生、硕士生已经有14人回复

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

赞一下