subroutinewrite_graphprivate
subroutine write_graph(site, k, b)
Write graph k.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| site | type(site_t) | in | the site | |
| k | integer | in | the graph | |
| b | type(buffer_t) | inout | the HTML |
Calls
Source
Show the code
subroutine write_graph(site, k, b)
type(site_t), intent(in) :: site !! the site
integer, intent(in) :: k !! the graph
type(buffer_t), intent(inout) :: b !! the HTML
associate (g => site%graphs%graphs(k))
if (len(g%svg) == 0) return
call add(b, '<h3>')
call html_escape(g%title, b, .false.)
call add(b, '</h3>'//achar(10)//'<div class="graph">')
call add(b, g%svg)
call add(b, '</div>'//achar(10))
end associate
end subroutine write_graph