dbcsr_mp_hold Subroutine

public pure subroutine dbcsr_mp_hold(mp_env)

Marks another use of the mp_env

Arguments

Type IntentOptional Attributes Name
type(dbcsr_mp_obj), intent(inout) :: mp_env

multiprocessor environment

Contents

Source Code

dbcsr_mp_hold

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