subroutineread_finalprivate

subroutine read_final(list, unit, line)
    type(entity_list_t), intent(inout) :: list  !! the entities
    integer, intent(in) :: unit                 !! the type
    character(len=*), intent(in) :: line        !! the statement
    type(string_t), allocatable :: names(:)
    integer :: k, id, at

    at = index(line, '::')
    if (at == 0) return
    names = top_split(line(at + 2:), ',')
    do k = 1, size(names)
        id = list%add(E_FINAL, unit)
        list%box(id)%e%name = names(k)%s
        list%box(id)%e%permission = 'public'
        allocate (list%box(id)%e%attribs(0), list%box(id)%e%doc(0), list%box(id)%e%meta(0))
    end do
end subroutine read_final