ProgPAR_OpenMP.f90
==================

.. code-block:: bash

    program HELLO
 
    INTEGER NTHREADS, TID, OMP_GET_NUM_THREADS,OMP_GET_THREAD_NUM
 
    ! Fork a team of threads giving them their own copies of variables
    !$OMP PARALLEL PRIVATE(NTHREADS, TID)
 
 
    ! Obtain thread number
     TID = OMP_GET_THREAD_NUM()
     PRINT *, 'Hello World from thread = ', TID
 
    ! Only master thread does this
     IF (TID .EQ. 0) THEN
      NTHREADS = OMP_GET_NUM_THREADS()
     PRINT *, 'Number of threads = ', NTHREADS
     END IF
 
    ! All threads join master thread and disband
    !$OMP END PARALLEL
 
    end program