Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer(kind=int32), | public, | allocatable | :: | ind(:) | |||
integer(kind=int32), | public | :: | num_nodes | = | 0 | ||
integer(kind=int32), | public, | allocatable | :: | ptr(:) |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(type_node_adjacency), | intent(inout) | :: | self |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(type_node_adjacency), | intent(in) | :: | self | |||
integer(kind=int32), | intent(in) | :: | i |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(type_node_adjacency), | intent(in) | :: | self | |||
integer(kind=int32), | intent(in) | :: | node_id | |||
integer(kind=int32), | intent(out), | allocatable | :: | neighbors(:) |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(type_node_adjacency), | intent(in) | :: | self |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(type_node_adjacency), | intent(inout) | :: | self | |||
integer(kind=int32), | intent(in) | :: | num_nodes_in | |||
integer(kind=int32), | intent(in) | :: | num_elems | |||
integer(kind=int32), | intent(in) | :: | elements_conn_data(:) | |||
integer(kind=int32), | intent(in) | :: | elements_ptr(:) |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(type_node_adjacency), | intent(in) | :: | self | |||
integer(kind=int32), | intent(in) | :: | i | |||
integer(kind=int32), | intent(in) | :: | j |
type :: type_node_adjacency integer(int32) :: num_nodes = 0 integer(int32), allocatable :: ptr(:) integer(int32), allocatable :: ind(:) contains procedure, pass(self), public :: initialize => initialize_node_adjacency procedure, pass(self), public :: is_adjacent => check_node_adjacent procedure, pass(self), public :: get_degree => get_node_degree procedure, pass(self), public :: get_num_nodes => get_num_nodes ! 追加: 指定ノードの隣接ノードリストを取得 procedure, pass(self), public :: get_neighbors => get_node_neighbors procedure, pass(self), public :: destroy => destroy_node_adjacency end type type_node_adjacency