type_coo Derived Type

type, public, extends(abst_matrix) :: type_coo

Inherits

Help

Components

Type	Visibility	Attributes		Name		Initial
integer(kind=int32),	public,	allocatable	::	col(:)
integer(kind=int32),	public		::	nnz	=	0
integer(kind=int32),	public,	allocatable	::	row(:)
real(kind=real64),	public,	allocatable	::	val(:)

Type-Bound Procedures

procedure, public, pass(self) :: add => add_coo

private subroutine add_coo(self, row, col, value)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_coo),	intent(inout)			::	self
integer(kind=int32),	intent(in)			::	row
integer(kind=int32),	intent(in)			::	col
real(kind=real64),	intent(in)			::	value

procedure, public, pass(self) :: destroy => destroy_coo

private subroutine destroy_coo(self)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_coo),	intent(inout)			::	self

procedure, public, pass(self) :: find => find_coo

private pure function find_coo(self, row, col) result(index)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_coo),	intent(in)			::	self
integer(kind=int32),	intent(in)			::	row
integer(kind=int32),	intent(in)			::	col

Return Value integer(kind=int32)

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

private subroutine initialize_type_coo(self, num_nodes, row, col)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_coo),	intent(inout)			::	self
integer(kind=int32),	intent(in)			::	num_nodes
integer(kind=int32),	intent(in),	optional		::	row(:)
integer(kind=int32),	intent(in),	optional		::	col(:)

procedure, public, pass(self) :: set => set_coo

private subroutine set_coo(self, row, col, value)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_coo),	intent(inout)			::	self
integer(kind=int32),	intent(in)			::	row
integer(kind=int32),	intent(in)			::	col
real(kind=real64),	intent(in)			::	value

procedure, public, pass(self) :: set_all => set_all_coo

private subroutine set_all_coo(self, value)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_coo),	intent(inout)			::	self
real(kind=real64),	intent(in)			::	value

procedure, public, pass(self) :: zero => zero_coo

private subroutine zero_coo(self)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_coo),	intent(inout)			::	self