subroutineshown_entitypureprivate

pure subroutine shown_entity(list, item)

Replace item by what holds it, if it is inside something not shown, which has no page.

Arguments

Name	Type	Intent	Attributes	Description
list	type(entity_list_t)	in		the entities
item	integer	inout		the entity

Source

Show the code

pure subroutine shown_entity(list, item)
    type(entity_list_t), intent(in) :: list !! the entities
    integer, intent(inout) :: item          !! the entity
    integer :: k, parent

    if (allocated(list%box(item)%e%external_url)) return
    k = item
    do while (k > 0)
        parent = list%box(k)%e%parent
        if (.not. list%box(k)%e%visible .and. parent > 0) item = parent
        k = parent
    end do
end subroutine shown_entity

subroutineshown_entitypureprivate

Arguments

Source

Graphs

Called by