[Omp] On the implicit barrier

[Shengyan Hong]

Every Openmp member,
         In the parallel loop of Fortran, there is an implicit barrier.
         !$omp parallel do default(shared) private(i,j,k)
 	do k = 1, d3
           do j = 1, d2
             do i = 1, d1
                u1(i,j,k) = u0(i,j,k)*ex(t*indexmap(i,j,k))
             end do
           end do
         end do

         return
         end

         How can I test the idle time in the implicit barrier?

         Thank you very much.
                                                 Shengyan Hong