Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(mp_perf_env_type), | POINTER | :: | perf_env |
SUBROUTINE mp_perf_env_retain(perf_env)
TYPE(mp_perf_env_type), POINTER :: perf_env
IF (.NOT. ASSOCIATED(perf_env)) THEN
DBCSR_ABORT("unassociated perf_env: mpiwrap @ mp_perf_env_retain")
END IF
IF (perf_env%ref_count < 1) THEN
DBCSR_ABORT("invalid ref_count: mpiwrap @ mp_perf_env_retain")
END IF
perf_env%ref_count = perf_env%ref_count + 1
END SUBROUTINE mp_perf_env_retain