2 integer, dimension (10, 10) :: a
3 !$omp parallel do default(none)proc_bind(master)shared(a)
12 !$omp parallel do default(none)proc_bind(primary)shared(a)
21 !$omp parallel proc_bind (close)
22 !$omp parallel default(none) proc_bind (spread) firstprivate(a) private (i)