core_space_t
pure function max_part(this) result(ir) class(core_space_t), intent(in) :: this integer :: ir unused_var(this) ir = max_part_type(this%max_run) end function max_part