functionwants_sourceprivate
logical function wants_source(site, id)
True if the source of entity id should be shown.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| site | type(site_t) | in | the site | |
| id | integer | in | the entity |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| wants_source | logical |
Calls
Source
Show the code
logical function wants_source(site, id)
type(site_t), intent(in) :: site !! the site
integer, intent(in) :: id !! the entity
logical :: flag, ok
integer :: k
wants_source = site%s%source
associate (e => site%p%list%box(id)%e)
do k = 1, size(e%meta)
if (e%meta(k)%key /= 'source') cycle
call parse_bool(e%meta(k)%values(1)%s, flag, ok)
if (ok) wants_source = flag
end do
end associate
end function wants_source