functionpermission_rankpureprivate

pure integer function permission_rank(e)
    type(entity_t), intent(in) :: e     !! the entity

    permission_rank = 0
    if (.not. allocated(e%permission)) return
    select case (e%permission)
    case ('public'); permission_rank = 1
    case ('protected'); permission_rank = 2
    case ('private'); permission_rank = 3
    end select
end function permission_rank