添付ファイル 'sample_omp.f90'
ダウンロード 1 PROGRAM MAIN
2 USE OMP_LIB
3 IMPLICIT NONE
4 INTEGER,PARAMETER :: NLP=100
5 INTEGER :: I
6 INTEGER :: TMAX,TID
7
8 TMAX = OMP_GET_MAX_THREADS()
9 WRITE(*,'("MAXIMUM NUMBER OF THREADS: ",I2)') TMAX
10
11 !$OMP PARALLEL PRIVATE(TID)
12 TID = OMP_GET_THREAD_NUM()
13 !$OMP DO
14 DO I=1,NLP
15 WRITE(*,'("HELLO WORLD! (I: ",I5,", TID: ",I2,")")') I,TID
16 END DO
17 !$OMP END DO
18 !$OMP END PARALLEL
19
20 END PROGRAM MAIN
添付ファイル
添付ファイルを参照するには、(下のファイル一覧にあるように)attachment:filenameと記述します。 [get]リンクのURLは変更される可能性が高いので、利用しないでください。ファイルを添付する権限がありません。