Global private to thread

• Use threadprivate for all other sub-domain data that need file scope or common blocks

program main

parameter (N=1000)

real A(N,N)

C$OMP THREADPRIVATE(/buf/)

common/buf/lft(N),rht(N)

C$OMP PARALLEL

call init

call scale

call order

C$OMP END PARALLEL

end

Previous slide

Next slide

Back to first slide

View graphic version