program exclu
!$ use OMP_LIB
	implicit none
	integer :: rank, val, ori
          
!$OMP PARALLEL DEFAULT(SHARED) PRIVATE(val,rank) SHARED(ori)
	rank = OMP_GET_THREAD_NUM () ! get the rank of current thread

!$OMP SINGLE
	val = 10
!$OMP END SINGLE
!$OMP MASTER
	ori = 7777
	val = val + 5
!$OMP END MASTER

	print *,"I am rank",rank,"and my values are",val,ori

!$OMP END PARALLEL

end program exclu