FUNCTION dbcsr_default_logger_stack_size() RESULT(res) INTEGER :: res res = stack_pointer END FUNCTION dbcsr_default_logger_stack_size