program hello_OpenMP
! Hello world greeting from each thread.
! to compile on 8.0:
! ifort hello_OpenMP.f90 -openmp -fpp -i_dynamic
!
! Mark Petersen, CU Applied Math, March 04

implicit none
integer :: omp_get_thread_num

print *, "Hello from main thread"

!$omp parallel
  print *, "Hello from thread ",omp_get_thread_num()
!$omp end parallel

print *, "back to sequential world"

end program