program pp_omp_ex3 !Example of how to use thread numbers !$ use omp_lib implicit none integer :: tid !$omp parallel tid=0 !Dummy thread number for the case OMP is not enabled !$ tid=omp_get_thread_num() write (6,*) 'Doing some stuff in thread ',tid !$omp end parallel end program pp_omp_ex3