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.
critical section<br />
同 时 至 多 有 一 个 线 程 进 入 临 界 区 .<br />
#pragma omp critical [(name)] new-line<br />
structured-block<br />
C$OMP PARALLEL DO PRIVATE(B)<br />
C$OMP& SHARED(RES)<br />
DO 100 I=1,NITERS<br />
B = DOIT(I)<br />
C$OMP CRITICAL<br />
CALL CONSUME (B, RES)<br />
C$OMP END CRITICAL<br />
100 CONTINUE<br />
2006 年 4 月 共 享 存 储 编 程 81/108