!---- Filename: parallel.f
!----
!---- This simply shows that code in a PARALLEL region is executed by
!---- each thread
      program parallel
      implicit none
      integer i

      i=1
      !$OMP PARALLEL FIRSTPRIVATE(I)
      write (*,*) i
      !$OMP END PARALLEL
      end