FUNCTION get_mp_perf_env() RESULT(res)
TYPE(mp_perf_env_type), POINTER :: res
IF (stack_pointer < 1) THEN
DBCSR_ABORT("no perf_env in the stack : mpiwrap @ get_mp_perf_env")
END IF
res => mp_perf_stack(stack_pointer)%mp_perf_env
END FUNCTION get_mp_perf_env