Purpose
The omp_unset_nest_lock subroutine allows you to release ownership of a nestable lock. The subroutine decrements the nesting count and releases the associated thread from ownership of the nestable lock.
Class
Subroutine.
Argument Type and Attributes
Result Type and Attributes
None.
Result Value
None.
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
+----------------------------End of IBM Extension----------------------------+