dbcsr_mp_hold Subroutine

public pure subroutine dbcsr_mp_hold(mp_env)

Marks another use of the mp_env

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(inout) :: mp_env

multiprocessor environment


Contents

Source Code


Source Code

   PURE SUBROUTINE dbcsr_mp_hold(mp_env)
      !! Marks another use of the mp_env

      TYPE(dbcsr_mp_obj), INTENT(INOUT)                  :: mp_env
         !! multiprocessor environment

      mp_env%mp%refcount = mp_env%mp%refcount + 1
   END SUBROUTINE dbcsr_mp_hold