Example

!$OMP PARALLEL DEFAULT(PRIVATE) SHARED(done)

done(iam) = .FALSE.

!$OMP BARRIER

call do_my_subdomain_work()

done(iam) = .TRUE.

!$OMP FLUSH(done)

do while(done(neighbor))

call do_some more_useful_work_if_you_can

!$OMP FLUSH(DONE)

enddo

Previous slide

Next slide

Back to first slide

View graphic version