functionpermission_lengthpureprivate

pure integer function permission_length(list, id)

Length of the result of inherited_permission.

Arguments

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

Result

Name	Type	Attributes	Description
permission_length	integer

Source

Show the code

pure integer function permission_length(list, id)
    type(entity_list_t), intent(in) :: list !! the entities
    integer, intent(in) :: id               !! the entity
    permission_length = 6
    if (allocated(list%box(id)%e%child_permission)) permission_length = len(list%box(id)%e%child_permission)
end function permission_length