functionfind_anywhereprivate

integer function find_anywhere(list, name, entity) result(found)
    type(entity_list_t), intent(in) :: list !! the entities
    character(len=*), intent(in) :: name    !! the name, in lowercase
    character(len=*), intent(in) :: entity  !! the class, in lowercase
    integer :: k

    found = 0
    k = index_find(list%names, name)
    do while (k > 0)
        if (matches(list, k, name, entity)) then
            found = k
            return
        end if
        k = list%next_named(k)
    end do
end function find_anywhere