mod_ef_assembly Module

Contents

Functions

retransform_eigenfunction assemble_eigenfunction get_combined_value_from_eigenvector get_basis_function

Functions

public function retransform_eigenfunction(ef_name, ef_eps, eigenfunction) result(ef_transformed)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	ef_name
real(kind=dp),	intent(in)			::	ef_eps(:)
complex(kind=dp),	intent(in)			::	eigenfunction(:)

Return Value complex(kind=dp)(size(eigenfunction))

public function assemble_eigenfunction(settings, ef_name, grid, state_vector_index, eigenvector, derivative_order) result(assembled_ef)

Arguments

Type	Intent	Optional	Attributes		Name
type(settings_t),	intent(in)			::	settings
character(len=*),	intent(in)			::	ef_name
type(grid_t),	intent(in)			::	grid
integer,	intent(in)			::	state_vector_index
complex(kind=dp),	intent(in)			::	eigenvector(:)
integer,	intent(in),	optional		::	derivative_order

Return Value complex(kind=dp)(settings%grid%get_ef_gridpts())

private pure function get_combined_value_from_eigenvector(eigenvector, idx, dim_subblock, basis_function)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(in)			::	eigenvector(:)
integer,	intent(in)			::	idx
integer,	intent(in)			::	dim_subblock
real(kind=dp),	intent(in)			::	basis_function(:)

Return Value complex(kind=dp)

private function get_basis_function(ef_name, grid, grid_idx, ef_grid_idx, diff_order) result(spline)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	ef_name
type(grid_t),	intent(in)			::	grid
integer,	intent(in)			::	grid_idx
integer,	intent(in)			::	ef_grid_idx
integer,	intent(in)			::	diff_order

Return Value real(kind=dp)(4)