Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(MeterNode), | intent(in), | target | :: | meter_node |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(MeterNodeIterator), | intent(in) | :: | a | |||
class(AbstractMeterNodeIterator), | intent(in) | :: | b |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(MeterNodeIterator), | intent(in), | target | :: | this |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(MeterNodeIterator), | intent(in) | :: | this |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(MeterNodeIterator), | intent(in) | :: | this |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(MeterNodeIterator), | intent(inout) | :: | this |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(MeterNodeIterator), | intent(in) | :: | a | |||
class(AbstractMeterNodeIterator), | intent(in) | :: | b |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(MeterNodeIterator), | intent(in) | :: | a | |||
class(AbstractMeterNodeIterator), | intent(in) | :: | b |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(MeterNodeIterator), | intent(in) | :: | a | |||
class(AbstractMeterNodeIterator), | intent(in) | :: | b |
type, extends(AbstractMeterNodeIterator) :: MeterNodeIterator private class (MeterNode), pointer :: reference => null() class (AbstractMeterNode), pointer :: current => null() ! Subiterators are allocated after iterator goes beyond the root node type (MeterNodeVectorIterator), allocatable :: iterator_over_children class (AbstractMeterNodeIterator), allocatable :: iterator_of_current_child contains procedure :: get procedure :: get_name => get_name_iter procedure :: get_meter => get_meter_iter procedure :: equals procedure :: not_equals procedure :: next end type MeterNodeIterator