Purpose
The omp_set_nest_lock subroutine allows you to set a nestable lock. The thread executing the subroutine will wait until the lock becomes available and then set that lock, incrementing the nesting count. A nestable lock is available if it is owned by the thread executing the subroutine, or is unlocked.
Class
Subroutine.
Argument Type and Attributes
Result Type and Attributes
Result Value
Examples
USE omp_lib INTEGER P INTEGER A INTEGER B INTEGER ( kind=omp_nest_lock_kind ) LCK CALL omp_init_nest_lock ( LCK ) !$OMP PARALLEL SECTIONS !$OMP SECTION CALL omp_set_nest_lock ( LCK ) P = P + A CALL omp_set_nest_lock ( LCK ) P = P + B CALL omp_unset_nest_lock ( LCK ) CALL omp_unset_nest_lock ( LCK ) !$OMP SECTION CALL omp_set_nest_lock ( LCK ) P = P + B CALL omp_unset_nest_lock ( LCK ) !$OMP END PARALLEL SECTIONS CALL omp_destroy_nest_lock ( LCK ) END