Marks another use of the mp_env
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_mp_obj), | intent(inout) | :: | mp_env |
multiprocessor environment |
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