Scope Definitions

C$OMP PARALLEL

call whoami

C$OMP END PARALLEL

call whoami

subroutine whoami

external omp_get_thread_num

integer iam, omp_get_thread_num

iam = omp_get_thread_num()

C$OMP CRITICAL

print*,’Hello from ‘, iam

C$OMP END CRITICAL

return

end

+

One compilation unit

Different compilation unit

Previous slide

Next slide

Back to first slide

View graphic version