1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
program openmp_37
use omp_lib
! declare variables as required
integer :: ny, nx, nk
integer :: iy, ix, ik
ny=3
nx=4
nk=6
!$omp parallel do private(iy, ix)
do iy = 1, ny
!$omp parallel do collapse(2)
do ix = 1, nx
do ik = 1, nk
print *,"iy->", iy,"ix->", ix
end do
end do
!$omp end parallel do
!$omp parallel do
do ix = 1, nx
do ik = 1, nk
print *,"iy->", iy,"ix->", ix
end do
end do
!$omp end parallel do
end do
!$omp end parallel do
end program
|
