type_dense Derived Type

type, public, extends(abst_matrix) :: type_dense

Inherits

Help

Components

Type	Visibility	Attributes		Name		Initial
integer(kind=int32),	public		::	num_col
integer(kind=int32),	public		::	num_row
real(kind=real64),	public,	allocatable	::	val(:,:)

Type-Bound Procedures

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

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

Arguments

Type	Intent	Optional	Attributes		Name
class(type_dense),	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_dense

private subroutine destroy_dense(self)

Arguments

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

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

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

Arguments

Type	Intent	Optional	Attributes		Name
class(type_dense),	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_dense

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

Arguments

Type	Intent	Optional	Attributes		Name
class(type_dense),	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) :: initialize_local => initialize_type_dense_from_node

private subroutine initialize_type_dense_from_node(self, num_nodes)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_dense),	intent(inout)			::	self
integer(kind=int32),	intent(in)			::	num_nodes

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

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

Arguments

Type	Intent	Optional	Attributes		Name
class(type_dense),	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_dense

private subroutine set_all_dense(self, value)

Arguments

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

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

private subroutine zero_dense(self)

Arguments

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