PROGRAM MAIN
INTEGER I
INTEGER omp_get_thread_num
!$OMP PARALLEL PRIVATE(I)
!$OMP SINGLE
DO I = 1, 10
CALL SLEEP(MOD(I,2))
PRINT *,"TASK “,I,” REGISTERED BY THREAD ",omp_get_thread_num()
!$OMP TASK FIRSTPRIVATE(I)
CALL SLEEP(MOD(I,5))
PRINT *,"TASK “,I,” EXECUTED BY THREAD ",omp_get_thread_num()
!$OMP END TASK
ENDDO
!$OMP END SINGLE
!$OMP END PARALLEL
END
my cpu has eight core but the result is single-threaded why?
TASK 1 REGISTERED BY THREAD 0
TASK 1 EXECUTED BY THREAD 0
TASK 2 REGISTERED BY THREAD 0
TASK 2 EXECUTED BY THREAD 0
TASK 3 REGISTERED BY THREAD 0
TASK 3 EXECUTED BY THREAD 0
TASK 4 REGISTERED BY THREAD 0
TASK 4 EXECUTED BY THREAD 0
TASK 5 REGISTERED BY THREAD 0
TASK 5 EXECUTED BY THREAD 0
TASK 6 REGISTERED BY THREAD 0
TASK 6 EXECUTED BY THREAD 0
TASK 7 REGISTERED BY THREAD 0
TASK 7 EXECUTED BY THREAD 0
TASK 8 REGISTERED BY THREAD 0
TASK 8 EXECUTED BY THREAD 0
TASK 9 REGISTERED BY THREAD 0
TASK 9 EXECUTED BY THREAD 0
TASK 10 REGISTERED BY THREAD 0
TASK 10 EXECUTED BY THREAD 0
. . .
I have resolved it myself