program trival
  implicit none
  integer :: OMP_GET_THREAD_NUM, OMP_GET_MAX_THREADS, tid, nthreads
  

!$OMP PARALLEL PRIVATE(NTHREADS, TID)
  tid = OMP_GET_THREAD_NUM()
  nthreads = OMP_GET_MAX_THREADS()
  print*,'hello world from ', tid,nthreads

!$OMP END PARALLEL

end program