Mutual Exclusion

• CRITICAL section

  • Can be named, names are global entities
    • must not conflict with subroutine or common block names

C$OMP PARALLEL

……

C$OMP CRITICAL(left)

A(i) = A(i) + Alocal

C$OMP END CRITICAL(left)

……

C$OMP END PARALLEL

#pragma omp parallel

{

……

#pragma omp critical(left)

A(i) += Alocal

……

}

Previous slide

Next slide

Back to first slide

View graphic version