Tree_ Derived Type

type, public :: Tree_

Contents

Variables

Node SortedUntil

Type-Bound Procedures

Init Add cut show NumOfTree parentNodeID countIfParentIDis setVisualMap

Components

Type	Visibility	Attributes		Name		Initial
type(Nodep_),	public,	allocatable	::	Node(:)
integer(kind=int32),	public		::	SortedUntil

Type-Bound Procedures

procedure, public :: Init => InitializeTree

public subroutine InitializeTree(obj, NumOfNode)

Arguments

Type	Intent	Optional	Attributes		Name
class(Tree_),	intent(inout)			::	obj
integer(kind=int32),	intent(in),	optional		::	NumOfNode

procedure, public :: Add => AddNodeInTree

public subroutine AddNodeInTree(obj, NodeObj)

Arguments

Type Intent Optional Attributes Name

class(Tree_), intent(inout) :: obj

class(Node_), intent(in), target :: NodeObj

procedure, public :: cut => cutNodeInTree

public subroutine cutNodeInTree(obj, NodeObj)

Arguments

Type Intent Optional Attributes Name

class(Tree_), intent(inout) :: obj

class(Node_), intent(in), target :: NodeObj

procedure, public :: show => showTree

public subroutine showTree(obj)

Arguments

Type Intent Optional Attributes Name

class(Tree_), intent(in) :: obj

procedure, public :: NumOfTree

public function NumOfTree(obj) result(num)

Arguments

Type Intent Optional Attributes Name

class(Tree_), intent(in) :: obj

Return Value integer(kind=int32)

procedure, public :: parentNodeID => parentNodeIDTree

public function parentNodeIDTree(obj, ParentID) result(NodeID)

Arguments

Type Intent Optional Attributes Name

class(Tree_), intent(in) :: obj

integer(kind=int32), intent(in), optional :: ParentID

Return Value integer(kind=int32)

procedure, public :: countIfParentIDis

public function countIfParentIDis(obj, ParentID) result(num)

Arguments

Type Intent Optional Attributes Name

class(Tree_), intent(in) :: obj

integer(kind=int32), intent(in) :: ParentID

Return Value integer(kind=int32)

procedure, public :: setVisualMap => setVisualMapTree

public subroutine setVisualMapTree(obj)

Arguments

Type Intent Optional Attributes Name

class(Tree_), intent(in) :: obj