SHARED 節

SHARED 節は、PARALLEL、PARALLEL DO、および PARALLEL SECTIONS ディレクティブ上で使用し、チーム内のすべてのスレッド間で共有できるようにします。

次の例では、変数 X および NPOINTS が、チーム内のすべてのスレッドで共有されます:

!$OMP PARALLEL DEFAULT(PRIVATE),SHARED(X,NPOINTS)
IAM = OMP_GET_THREAD_NUM()
NP = OMP_GET_NUM_THREADS()
IPOINTS = NPOINTS/NP
CALL SUBDOMAIN(X,IAM,IPOINTS)
!$OMP END PARALLEL