Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(mp_perf_env_type), | POINTER | :: | perf_env |
SUBROUTINE mp_perf_env_release(perf_env)
TYPE(mp_perf_env_type), POINTER :: perf_env
IF (ASSOCIATED(perf_env)) THEN
IF (perf_env%ref_count < 1) THEN
DBCSR_ABORT("invalid ref_count: mpiwrap @ mp_perf_env_release")
END IF
perf_env%ref_count = perf_env%ref_count - 1
IF (perf_env%ref_count == 0) THEN
DEALLOCATE (perf_env)
END IF
END IF
NULLIFY (perf_env)
END SUBROUTINE mp_perf_env_release