matrix_elements_t Derived Type

type, public :: matrix_elements_t

Contents

Variables

nb_elements head tail state_vector

Type-Bound Procedures

add get_node get_elements get_positions get_nb_elements delete increment_nb_elements

Components

Type	Visibility	Attributes		Name		Initial
integer,	private		::	nb_elements
type(matrix_element_node_t),	private,	pointer	::	head
type(matrix_element_node_t),	private,	pointer	::	tail
type(state_vector_t),	private,	pointer	::	state_vector

Type-Bound Procedures

procedure, public :: add => add_node

private subroutine add_node(this, element, sv_comp1, sv_comp2, s1do, s2do)

Arguments

Type	Intent	Optional	Attributes		Name
class(matrix_elements_t),	intent(inout)			::	this
class(*),	intent(in)			::	element
type(sv_component_t),	intent(in)			::	sv_comp1	first state vector component
type(sv_component_t),	intent(in)			::	sv_comp2	second state vector component
integer,	intent(in),	optional		::	s1do	spline 1 derivative order, 1 = first derivative, 2 = second derivative, etc.
integer,	intent(in),	optional		::	s2do	spline 2 derivative order, 1 = first derivative, 2 = second derivative, etc.

procedure, public :: get_node

private function get_node(this, inode) result(node)

Arguments

Type Intent Optional Attributes Name

class(matrix_elements_t), intent(in) :: this

integer, intent(in) :: inode

Return Value type(matrix_element_node_t),pointer

procedure, public :: get_elements

private function get_elements(this) result(elements)

Arguments

Type Intent Optional Attributes Name

class(matrix_elements_t), intent(in) :: this

Return Value complex(kind=dp)(this%nb_elements)

procedure, public :: get_positions

private function get_positions(this) result(positions)

Arguments

Type Intent Optional Attributes Name

class(matrix_elements_t), intent(in) :: this

Return Value integer(this%nb_elements,2)

procedure, public :: get_nb_elements

private pure function get_nb_elements(this)

Arguments

Type Intent Optional Attributes Name

class(matrix_elements_t), intent(in) :: this

Return Value integer

procedure, public :: delete

private pure subroutine delete(this)

Arguments

Type Intent Optional Attributes Name

class(matrix_elements_t), intent(inout) :: this

procedure, private :: increment_nb_elements

private pure subroutine increment_nb_elements(this)

Arguments

Type Intent Optional Attributes Name

class(matrix_elements_t), intent(inout) :: this