OpenMP Example

!$OMP PARALLEL DO, SHARED(A,B,C), &

!$OMP REDUCTION(X), &

!$OMP SCHEDULE(DYNAMIC, 100)

DO I = 2, N-1

A(I) = (B(I-1)+B(I)+B(I+1)) / 3

X = X + A(I)/C(I)
END DO

!$OMP END DO

!$OMP PARALLEL DO, SHARED(D,E), &

!$OMP SCHEDULE(STATIC)

DO I = 1, N

D(I) = SIN(E(I))

END DO

!$OMP END DO

X is a summation

Iterations managed first-come, first-served, in blocks of 100

Iterations blocked evenly among threads (GUIDED scheduling also available)

Previous slide

Next slide

Back to first slide

View graphic version