Program main 
use omp_lib 
!include "omp_lib.h"
integer :: id, nthreads 
!$OMP PARALLEL PRIVATE(id) 
 id = omp_get_thread_num() 
 print*, "Hello World from thread", id 
!$OMP BARRIER 
 if ( id == 0 ) then 
 nthreads = omp_get_num_threads() 
 print*, "Total threads=",nthreads 
 end if 
!$OMP END PARALLEL 
End program