subroutinecommon_sectionsprivate

subroutine common_sections(site, ids, b)
    type(site_t), intent(in) :: site        !! the site
    integer, intent(in) :: ids(:)           !! the common blocks
    type(buffer_t), intent(inout) :: b      !! the HTML
    integer :: k

    if (size(ids) == 0) return
    call add(b, '<h2 id="common-blocks">Common blocks</h2>'//achar(10))
    do k = 1, size(ids)
        associate (e => site%p%list%box(ids(k))%e)
            call add(b, '<div class="item" id="')
            call anchor(site, ids(k), b)
            call add(b, '"><h3>')
            call html_escape(e%name, b, .false.)
            call add(b, '</h3>'//achar(10))
            if (allocated(e%html)) call add(b, e%html)
            call add(b, '<ul class="chips">')
            call add_words(e%more%args, b)
            call add(b, '</ul></div>'//achar(10))
        end associate
    end do
end subroutine common_sections