Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(AbstractComposite), | intent(inout), | target | :: | this | ||
character(len=*), | intent(in) | :: | name | |||
class(AbstractComposite), | intent(in) | :: | composite |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ConcreteComposite), | intent(in), | target | :: | this | ||
character(len=*), | intent(in) | :: | name |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ConcreteComposite), | intent(in), | target | :: | this | ||
integer, | intent(in) | :: | i |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(AbstractComposite), | intent(in), | target | :: | this | ||
integer, | intent(in) | :: | i |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(AbstractComposite), | intent(in), | target | :: | this | ||
character(len=*), | intent(in) | :: | name |
$ procedure :: is_leaf $ procedure :: is_root $ procedure :: get_height
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(AbstractComposite), | intent(in) | :: | this |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(AbstractComposite), | intent(in) | :: | this |
type, abstract :: AbstractComposite contains procedure(i_GetChildByName), deferred :: get_child_by_name procedure(i_GetChildByIndex), deferred :: get_child_by_index generic :: get_child => get_child_by_name, get_child_by_index procedure(i_AddChild), deferred :: add_child procedure(i_GetParent), deferred :: get_parent procedure(i_GetNum), deferred :: get_num_children !!$ procedure :: is_leaf !!$ procedure :: is_root !!$ procedure :: get_height end type AbstractComposite