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

!$OMP PARALLEL &
!$OMP PRIVATE(id,nthreads)
	PRINT*,"Hello world!"
!$OMP END PARALLEL
   STOP
END PROGRAM hello