get_degree_csr Function

private pure function get_degree_csr(self, node_id) result(degree)

Type Bound

type_node_adjacency

Arguments

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

Return Value integer(kind=int32)


Called by

proc~~get_degree_csr~~CalledByGraph proc~get_degree_csr type_node_adjacency%get_degree_csr proc~execute_reordering_core execute_reordering_core proc~execute_reordering_core->proc~get_degree_csr proc~cm_reorder_method cm_reorder_method proc~cm_reorder_method->proc~execute_reordering_core proc~rcm_reorder_method rcm_reorder_method proc~rcm_reorder_method->proc~execute_reordering_core interface~cm_reorder_method type_reordering%cm_reorder_method interface~cm_reorder_method->proc~cm_reorder_method interface~rcm_reorder_method type_reordering%rcm_reorder_method interface~rcm_reorder_method->proc~rcm_reorder_method proc~initialize_type_reordering type_reordering%initialize_type_reordering proc~initialize_type_reordering->interface~cm_reorder_method proc~initialize_type_reordering->interface~rcm_reorder_method

Source Code

    pure function get_degree_csr(self, node_id) result(degree)
        implicit none
        class(type_node_adjacency), intent(in) :: self
        integer(int32), intent(in) :: node_id
        integer(int32) :: degree
        if (node_id < 1 .or. node_id > self%num_nodes) then
            degree = 0; return
        end if
        degree = self%ptr(node_id + 1) - self%ptr(node_id)
    end function get_degree_csr