INTEGER I, X, TID, OMP_GET_NUM_THREADS, OMP_GET_THREAD_NUM
X=44
!$OMP PARALLEL DO PRIVATE(TID)LASTPRIVATE(X)
DO I=1,10
TID = OMP_GET_THREAD_NUM()
X=I
WRITE(*,100) TID,X
100 FORMAT(’ Thread: ’,I2,’ X: ’, I2)
ENDDO
!$OMP END PARALLEL DO
WRITE(*,200) X
200 FORMAT(’X: ’,I2)
END
частичный вывод, может кто-нибудь объяснить, какие оставшиеся выходные данные?
Thread: 2 X: 5
Thread: 4 X: 7
Thread: 1 X: 3
Thread: 1 X: 4