PROGRAM hello
   IMPLICIT NONE
   INTEGER :: id, nthreads
   INTEGER :: omp_get_thread_num, omp_get_num_threads

!$OMP PARALLEL &
!$OMP PRIVATE(id,nthreads)

	!$OMP MASTER
		PRINT*,"Hello world from:"
	!$OMP END MASTER
	
	!$  id=omp_get_thread_num()
	!$  nthreads=omp_get_num_threads()
	!$OMP CRITICAL		
		PRINT*,'Thread id: ',id,' total number: ',nthreads
	!$OMP END CRITICAL	
!$OMP END PARALLEL
   STOP
END PROGRAM hello