Scope Definitions

I=0

C$OMP PARALLEL

call foo(I, a, b, c)

C$OMP END PARALLEL

print*, I

subroutine foo(…)

C$OMP PARALLEL

call bar(I, a, b, c)

C$OMP END PARALLEL

print*, J

Static Extent:

code in same lexical scope

Dynamic Extent:

code reached during

program execution

subroutine bar(…)

C$OMP ATOMIC

X = X + 1

Orphan Directive

Binding