PCF Example (SGI Variant)

!$DOACROSS, LOCAL(I), SHARE(A,B,C),

!$& REDUCTION(X),

!$& IF (N.GT.1000),

!$& MP_SCHEDTYPE=DYNAMIC, CHUNK=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

!$DOACROSS, LOCAL(I), SHARE(D,E),

!$& MP_SCHEDTYPE=SIMPLE

DO I = 1, N

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

END DO

X is a summation

Conditional parallelization

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

Iterations blocked evenly among threads(INTERLEAVE, GSS, RUNTIME scheduling also available)

PCF standard

Previous slide

Next slide

Back to first slide

View graphic version