locks_s Submodule


Uses

  • module~~locks_s~~UsesGraph module~locks_s locks_s module~prif_private_s prif_private_s module~locks_s->module~prif_private_s module~prif prif module~prif_private_s->module~prif iso_c_binding iso_c_binding module~prif->iso_c_binding

Contents


Module Procedures

module procedure prif_lock module module subroutine prif_lock(image_num, coarray_handle, offset, acquired_lock, stat, errmsg, errmsg_alloc)

Arguments

TypeIntentOptionalAttributesName
integer(kind=c_int), intent(in) :: image_num
type(prif_coarray_handle), intent(in) :: coarray_handle
integer(kind=c_size_t), intent(in) :: offset
logical(kind=c_bool), intent(out), optional :: acquired_lock
integer(kind=c_int), intent(out), optional :: stat
character(len=*), intent(inout), optional :: errmsg
character(len=:), intent(inout), optional allocatable:: errmsg_alloc

module procedure prif_lock_indirect module module subroutine prif_lock_indirect(image_num, lock_var_ptr, acquired_lock, stat, errmsg, errmsg_alloc)

Arguments

TypeIntentOptionalAttributesName
integer(kind=c_int), intent(in) :: image_num
integer(kind=c_intptr_t), intent(in) :: lock_var_ptr
logical(kind=c_bool), intent(out), optional :: acquired_lock
integer(kind=c_int), intent(out), optional :: stat
character(len=*), intent(inout), optional :: errmsg
character(len=:), intent(inout), optional allocatable:: errmsg_alloc

module procedure prif_unlock module module subroutine prif_unlock(image_num, coarray_handle, offset, stat, errmsg, errmsg_alloc)

Arguments

TypeIntentOptionalAttributesName
integer(kind=c_int), intent(in) :: image_num
type(prif_coarray_handle), intent(in) :: coarray_handle
integer(kind=c_size_t), intent(in) :: offset
integer(kind=c_int), intent(out), optional :: stat
character(len=*), intent(inout), optional :: errmsg
character(len=:), intent(inout), optional allocatable:: errmsg_alloc

module procedure prif_unlock_indirect module module subroutine prif_unlock_indirect(image_num, lock_var_ptr, stat, errmsg, errmsg_alloc)

Arguments

TypeIntentOptionalAttributesName
integer(kind=c_int), intent(in) :: image_num
integer(kind=c_intptr_t), intent(in) :: lock_var_ptr
integer(kind=c_int), intent(out), optional :: stat
character(len=*), intent(inout), optional :: errmsg
character(len=:), intent(inout), optional allocatable:: errmsg_alloc