clause
clause
clause
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
NOWAIT 子 句 (Fortran)<br />
C$OMP PARALLEL<br />
C$OMP DO<br />
do i=1,n<br />
a(i)= cos(a(i))<br />
enddo<br />
C$OMP END DO<br />
隐 式<br />
C$OMP DO<br />
BARRIER<br />
do i=1,n<br />
b(i)=a(i)+b(i)<br />
enddo<br />
C$OMP END DO<br />
C$OMP END PARALLEL<br />
默 认 循 环 变 量 i 为 私 有 线 程 私 有 类 型 变 量<br />
C$OMP PARALLEL<br />
C$OMP DO<br />
do i=1,n<br />
a(i)= cos(a(i))<br />
enddo<br />
C$OMP END DO NOWAIT<br />
C$OMP DO<br />
No<br />
do i=1,n BARRIER<br />
b(i)=a(i)+b(i)<br />
enddo<br />
C$OMP END DO<br />
C$OMP END PARALLEL<br />
END DO 必 须 紧 随 enddo, 可 省 略 .<br />
2006 年 4 月 共 享 存 储 编 程 53/108