subroutineremove_childpureprivate
pure subroutine remove_child(e, id)
Remove id from the children of e.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| e | type(entity_t) | inout | the parent | |
| id | integer | in | the child |
Source
Show the code
pure subroutine remove_child(e, id)
type(entity_t), intent(inout) :: e !! the parent
integer, intent(in) :: id !! the child
e%children = pack(e%children, e%children /= id)
end subroutine remove_child