type_crs_adjacency_element Derived Type

type, public :: type_crs_adjacency_element


Components

Type Visibility Attributes Name Initial
integer(kind=int32), private, allocatable :: ind(:)
integer(kind=int32), private :: nnz = 0
integer(kind=int32), private :: num_row = 0
integer(kind=int32), private, allocatable :: ptr(:)

Type-Bound Procedures

procedure, public, pass(self) :: get_degree => get_degree_impl

  • private function get_degree_impl(self, i) result(degree)

    Arguments

    Type IntentOptional Attributes Name
    class(type_crs_adjacency_element), intent(in) :: self
    integer(kind=int32), intent(in) :: i

    Return Value integer(kind=int32)

procedure, public, pass(self) :: get_neighbors => get_neighbors_impl

  • private function get_neighbors_impl(self, i) result(neighbors)

    Arguments

    Type IntentOptional Attributes Name
    class(type_crs_adjacency_element), intent(in) :: self
    integer(kind=int32), intent(in) :: i

    Return Value integer(kind=int32), allocatable, (:)

procedure, public, pass(self) :: get_num_elements => get_num_elements_impl

procedure, public, pass(self) :: initialize => initialize_crs_adjacency

Source Code

    type :: type_crs_adjacency_element
        private
        integer(int32) :: nnz = 0
        integer(int32) :: num_row = 0
        integer(int32), allocatable :: ptr(:)
        integer(int32), allocatable :: ind(:)
    contains
        procedure, pass(self), public :: initialize => initialize_crs_adjacency
        procedure, pass(self), public :: get_num_elements => get_num_elements_impl
        procedure, pass(self), public :: get_degree => get_degree_impl
        procedure, pass(self), public :: get_neighbors => get_neighbors_impl
    end type type_crs_adjacency_element