Node object class.
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| type(vector), | public | :: | vertex | Vertex coordinates. |
Overload =.
Operator =.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(node_object), | intent(inout) | :: | lhs | Left hand side. |
||
| type(node_object), | intent(in) | :: | rhs | Right hand side. |
Destroy node.
Destroy node.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(node_object), | intent(inout) | :: | self | Node object. |
Initialize node.
Initialize node.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(node_object), | intent(inout) | :: | self | Node object. |
Operator =.
Operator =.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(node_object), | intent(inout) | :: | lhs | Left hand side. |
||
| type(node_object), | intent(in) | :: | rhs | Right hand side. |
type :: node_object
!< Node object class.
type(vector) :: vertex !< Vertex coordinates.
contains
! public methods
procedure, pass(self) :: destroy !< Destroy node.
procedure, pass(self) :: initialize !< Initialize node.
! operators
generic :: assignment(=) => node_assign_node !< Overload `=`.
! private methods
procedure, pass(lhs) :: node_assign_node !< Operator `=`.
endtype node_object