PURE FUNCTION has_mp_perf_env() RESULT(res) LOGICAL :: res res = .FALSE. IF (stack_pointer < 1) RETURN IF (.NOT. ASSOCIATED(mp_perf_stack(stack_pointer)%mp_perf_env)) RETURN res = .TRUE. END FUNCTION has_mp_perf_env