subroutinegraph_sectionsprivate

subroutine graph_sections(site, id, b)
    type(site_t), intent(in) :: site        !! the site
    integer, intent(in) :: id               !! the entity
    type(buffer_t), intent(inout) :: b      !! the HTML
    integer :: k

    if (.not. allocated(site%graphs_of(id)%ids)) return
    call add(b, '<h2 id="graphs">Graphs</h2>'//achar(10))
    do k = 1, size(site%graphs_of(id)%ids)
        call write_graph(site, site%graphs_of(id)%ids(k), b)
    end do
end subroutine graph_sections