mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-07 23:22:11 +01:00
34 lines
858 B
Fortran
34 lines
858 B
Fortran
! @@name: tasking.10f
|
|
! @@type: F-free
|
|
! @@compilable: yes
|
|
! @@linkable: no
|
|
! @@expect: success
|
|
module example
|
|
include 'omp_lib.h'
|
|
integer (kind=omp_lock_kind) lock
|
|
integer i
|
|
|
|
contains
|
|
|
|
subroutine work
|
|
call omp_init_lock(lock)
|
|
!$omp parallel
|
|
!$omp do
|
|
do i=1,100
|
|
!$omp task
|
|
! Outer task
|
|
call omp_set_lock(lock) ! lock is shared by
|
|
! default in the task
|
|
! Capture data for the following task
|
|
!$omp task ! Task Scheduling Point 1
|
|
! do work here
|
|
!$omp end task
|
|
call omp_unset_lock(lock)
|
|
!$omp end task
|
|
end do
|
|
!$omp end parallel
|
|
call omp_destroy_lock(lock)
|
|
end subroutine
|
|
|
|
end module
|