subroutineshared_summaryprivate

subroutine shared_summary(list, ids, b)
    type(entity_list_t), intent(in) :: list !! the entities
    integer, intent(in) :: ids(:)           !! the procedures
    type(buffer_t), intent(inout) :: b      !! the HTML
    integer :: j

    do j = 1, size(ids)
        if (.not. allocated(list%box(ids(j))%e%summary)) return
        if (list%box(ids(j))%e%summary /= list%box(ids(1))%e%summary) return
    end do
    call add(b, list%box(ids(1))%e%summary//achar(10))
end subroutine shared_summary