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年秋博士招生-物理学-活性胶体方向-高永祥课题组已经有18人回复
论物质与能量的统一模型及物理现象解释已经有0人回复
物理学I论文润色/翻译怎么收费? 已经有297人回复
基于基元I统一理论的数学相关应用推导已经有0人回复
基元I统一理论：宇宙本质、层级演化与修炼文明的本源规律已经有1人回复
基元I理论下三大核心空间现象精准推导与细节解析已经有0人回复
基于基元 I 统一理论的反重力理论推导已经有0人回复
基于基元I统一理论的量子力学本源推导已经有1人回复
推荐一款可以AI辅助写作的Latex编辑器SmartLatexEditor，超级好用，AI润色，全免费已经有20人回复
【EI|Scopus 双检索】第六届智能机器人系统国际会议（ISoIRS 2026）已经有0人回复
2026年第四届电动车与车辆工程国际会议（CEVVE 2026）已经有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

赞一下