PROGRAM HelloWorld2OpenMP

  INTEGER :: threadNUM, OMP_GET_THREAD_NUM  

  !$OMP PARALLEL PRIVATE(threadNUM)
  threadNUM = OMP_GET_THREAD_NUM()
  PRINT*, "Hello World!", threadNUM
  !$OMP END PARALLEL

END PROGRAM HelloWorld2OpenMP
