| 查看: 705 | 回复: 1 | ||
[求助]
请问下面这段代码怎么进行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人回复
-
湖南大学材料学院急招2026年博士生，临时增加一名博士联培指标
已经有10人回复
-
物理学I论文润色/翻译怎么收费?
已经有138人回复
-
天津理工大学晶体材料全国重点实验室刘红军教授课题组招收博士生1-2名
已经有1人回复
-
中国科学院物理研究所谌志国研究员团队招收2027年博士研究生
已经有5人回复
-
2026年中德博士后交流项目 - 新型量子和磁性材料：材料制备表征和中子散射研究
已经有12人回复
-
26申博推荐：南京航空航天大学国际前沿院光学方向招收博士生！
已经有1人回复
-
如何从铁电相到顺电相。
已经有1人回复
【答案】应助回帖
|
!$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 |
2楼2018-02-09 10:24:33