News

SUBROUTINE example_subroutine() COMMON /blk/ a,b ! Incorrect because A is a constituent element of BLK !$OMP PARALLEL PRIVATE(/blk/), SHARED(a) !$OMP END PARALLEL END ...