COO_ Derived Type

type, public :: COO_

Components

Type	Visibility	Attributes		Name		Initial
type(COO_Row_),	public,	allocatable	::	row(:)

Type-Bound Procedures

procedure, public :: init => initCOO

public subroutine initCOO(this, num_row)

Arguments

Type	Intent	Optional	Attributes		Name
class(COO_),	intent(inout)			::	this
integer(kind=int32),	intent(in)			::	num_row

procedure, public :: update => updateCOO

public subroutine updateCOO(this, row, col, val)

Arguments

Type	Intent	Optional	Attributes		Name
class(COO_),	intent(inout)			::	this
integer(kind=int32),	intent(in)			::	row
integer(kind=int32),	intent(in)			::	col
real(kind=real64),	intent(in)			::	val

procedure, public :: set => updateCOO

public subroutine updateCOO(this, row, col, val)

Arguments

Type	Intent	Optional	Attributes		Name
class(COO_),	intent(inout)			::	this
integer(kind=int32),	intent(in)			::	row
integer(kind=int32),	intent(in)			::	col
real(kind=real64),	intent(in)			::	val

procedure, public, pass :: addCOO

public subroutine addCOO(this, row, col, val)

Arguments

Type	Intent	Optional	Attributes		Name
class(COO_),	intent(inout)			::	this
integer(kind=int32),	intent(in)			::	row
integer(kind=int32),	intent(in)			::	col
real(kind=real64),	intent(in)			::	val

procedure, public, pass :: add_complexCOO

public subroutine add_complexCOO(this, row, col, val)

Arguments

Type	Intent	Optional	Attributes		Name
class(COO_),	intent(inout)			::	this
integer(kind=int32),	intent(in)			::	row
integer(kind=int32),	intent(in)			::	col
complex(kind=real64),	intent(in)			::	val

generic, public :: add => addCOO, add_complexCOO

public subroutine addCOO(this, row, col, val)

Arguments

Type	Intent	Optional	Attributes		Name
class(COO_),	intent(inout)			::	this
integer(kind=int32),	intent(in)			::	row
integer(kind=int32),	intent(in)			::	col
real(kind=real64),	intent(in)			::	val

public subroutine add_complexCOO(this, row, col, val)

Arguments

Type	Intent	Optional	Attributes		Name
class(COO_),	intent(inout)			::	this
integer(kind=int32),	intent(in)			::	row
integer(kind=int32),	intent(in)			::	col
complex(kind=real64),	intent(in)			::	val

procedure, public :: getDenseMatrix => getDenseMatrixCOO

public function getDenseMatrixCOO(this) result(dense_matrix)

Arguments

Type	Intent	Optional	Attributes		Name
class(COO_),	intent(in)			::	this

Return Value real(kind=real64), allocatable, (:,:)

procedure, public :: to_dense => getDenseMatrixCOO

public function getDenseMatrixCOO(this) result(dense_matrix)

Arguments

Type	Intent	Optional	Attributes		Name
class(COO_),	intent(in)			::	this

Return Value real(kind=real64), allocatable, (:,:)

procedure, public :: remove => removeCOO

public subroutine removeCOO(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(COO_),	intent(inout)			::	this

procedure, public :: getAllCol => getAllColCOO

public function getAllColCOO(this) result(cols)

Arguments

Type	Intent	Optional	Attributes		Name
class(COO_),	intent(in)			::	this

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

procedure, public :: DOF => DOFCOO

public pure function DOFCOO(this) result(Degree_of_freedom)

Arguments

Type	Intent	Optional	Attributes		Name
class(COO_),	intent(in)			::	this

Return Value integer(kind=int32)

procedure, public :: to_CRS => to_CRSCOO

public function to_CRSCOO(this, remove_coo) result(CRS_version)

Arguments

Type	Intent	Optional	Attributes		Name
class(COO_),	intent(inout)			::	this
logical,	intent(in),	optional		::	remove_coo

Return Value type(CRS_)

procedure, public :: get => getCOO

public pure function getCOO(this, row, col) result(ret)

Arguments

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

Return Value real(kind=real64)

procedure, public :: ne => neCOO

public pure function neCOO(this) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
class(COO_),	intent(in)			::	this

Return Value real(kind=real64)

procedure, public :: maxval => maxvalCOO

public pure function maxvalCOO(this) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
class(COO_),	intent(in)			::	this

Return Value real(kind=real64)

procedure, public :: random => randomCOO

public subroutine randomCOO(this, n, percent)

Arguments

Type	Intent	Optional	Attributes		Name
class(COO_),	intent(inout)			::	this
integer(kind=int32),	intent(in)			::	n
real(kind=real32),	intent(in),	optional		::	percent

procedure, public :: eyes => eyesCOO

public subroutine eyesCOO(this, n)

Arguments

Type	Intent	Optional	Attributes		Name
class(COO_)				::	this
integer(kind=int32),	intent(in)			::	n

procedure, public :: poisson => poissonCOO

public subroutine poissonCOO(this, n)

Arguments

Type	Intent	Optional	Attributes		Name
class(COO_)				::	this
integer(kind=int32),	intent(in)			::	n