Marks another use of the distribution
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_distribution_obj), | intent(inout) | :: | dist |
SUBROUTINE dbcsr_distribution_hold(dist)
!! Marks another use of the distribution
TYPE(dbcsr_distribution_obj), INTENT(INOUT) :: dist
! ---------------------------------------------------------------------------
!$OMP ATOMIC
dist%d%refcount = dist%d%refcount + 1
END SUBROUTINE dbcsr_distribution_hold