SUBROUTINE rm_mp_perf_env()
IF (stack_pointer < 1) THEN
DBCSR_ABORT("no perf_env in the stack : mpiwrap @ rm_mp_perf_env")
END IF
CALL mp_perf_env_release(mp_perf_stack(stack_pointer)%mp_perf_env)
stack_pointer = stack_pointer - 1
END SUBROUTINE rm_mp_perf_env