matrix_elements_t Derived Type

type, public :: matrix_elements_t

Contents

Variables

nb_elements spline1_size spline2_size head tail state_vector

Type-Bound Procedures

add get_node get_elements get_positions get_nb_elements delete spline_sizes_are_valid increment_nb_elements

Components

Type	Visibility	Attributes		Name		Initial
integer,	private		::	nb_elements
integer,	private		::	spline1_size
integer,	private		::	spline2_size
type(matrix_element_node_t),	private,	pointer	::	head
type(matrix_element_node_t),	private,	pointer	::	tail
character(len=:),	private,	allocatable	::	state_vector(:)

Type-Bound Procedures

procedure, public :: add => add_node

private subroutine add_node(this, element, loc1, loc2, spline1, spline2)

Arguments

Type	Intent	Optional	Attributes		Name
class(matrix_elements_t),	intent(inout)			::	this
class(*),	intent(in)			::	element
character(len=*),	intent(in)			::	loc1
character(len=*),	intent(in)			::	loc2
real(kind=dp),	intent(in)			::	spline1(:)
real(kind=dp),	intent(in)			::	spline2(:)

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 :: spline_sizes_are_valid

private function spline_sizes_are_valid(this, spline1, spline2)

Arguments

Type Intent Optional Attributes Name

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

real(kind=dp), intent(in) :: spline1(:)

real(kind=dp), intent(in) :: spline2(:)

Return Value logical

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