dbcsr_distribution_hold Subroutine

public subroutine dbcsr_distribution_hold(dist)

Marks another use of the distribution

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_distribution_obj), intent(inout) :: dist

Contents


Source Code

   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