mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-07 23:22:11 +01:00
21 lines
455 B
Fortran
21 lines
455 B
Fortran
! @@name: collapse.3f
|
|
! @@type: F-fixed
|
|
! @@compilable: yes
|
|
! @@linkable: no
|
|
! @@expect: success
|
|
program test
|
|
include 'omp_lib.h'
|
|
!$omp parallel num_threads(2)
|
|
!$omp do collapse(2) ordered private(j,k) schedule(static,3)
|
|
do k = 1,3
|
|
do j = 1,2
|
|
!$omp ordered
|
|
print *, omp_get_thread_num(), k, j
|
|
!$omp end ordered
|
|
call work(a,j,k)
|
|
enddo
|
|
enddo
|
|
!$omp end do
|
|
!$omp end parallel
|
|
end program test
|