mod_output Module

Uses

Variables

Type	Visibility	Attributes		Name		Initial
integer,	private,	parameter	::	dat_fh	=	10	filehandler IO unit for the main data file
integer,	private,	parameter	::	log_fh	=	20	filehandler IO unit for the log file
character(len=:),	public,	allocatable	::	datfile_path			datfile name

Functions

private function get_datfile_path(settings, extension) result(filename)

Arguments

Type	Intent	Optional	Attributes		Name
type(settings_t),	intent(in)			::	settings
character(len=*),	intent(in)			::	extension

Return Value character(len=:), allocatable

the filename that is created

private function get_residual(amat_band, bmat_band, eigenvalue, eigenvector)

Arguments

Type	Intent	Optional	Attributes		Name
type(banded_matrix_t),	intent(in)			::	amat_band	the matrix A in banded form
type(banded_matrix_t),	intent(in)			::	bmat_band	the matrix B in banded form
complex(kind=dp),	intent(in)			::	eigenvalue	the eigenvalue
complex(kind=dp),	intent(in)			::	eigenvector(:)	the eigenvector

Return Value real(kind=dp)

Subroutines

private subroutine open_file(file_unit, filename)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	file_unit
character(len=*),	intent(in)			::	filename

public subroutine create_datfile(settings, grid, background, physics, eigenvalues, matrix_A, matrix_B, eigenvectors, eigenfunctions)

Arguments

Type	Intent	Optional	Attributes		Name
type(settings_t),	intent(in)			::	settings
type(grid_t),	intent(in)			::	grid
type(background_t),	intent(in)			::	background
type(physics_t),	intent(in)			::	physics
complex(kind=dp),	intent(in)			::	eigenvalues(:)
type(matrix_t),	intent(in)			::	matrix_A
type(matrix_t),	intent(in)			::	matrix_B
complex(kind=dp),	intent(in)			::	eigenvectors(:,:)
type(eigenfunctions_t),	intent(in)			::	eigenfunctions

private subroutine write_header(settings)

Arguments

Type	Intent	Optional	Attributes		Name
type(settings_t),	intent(in)			::	settings

private subroutine write_physics_type_info(settings)

Arguments

Type	Intent	Optional	Attributes		Name
type(settings_t),	intent(in)			::	settings

private subroutine write_grid_info(settings)

Arguments

Type	Intent	Optional	Attributes		Name
type(settings_t),	intent(in)			::	settings

private subroutine write_io_info(settings)

Arguments

Type	Intent	Optional	Attributes		Name
type(settings_t),	intent(in)			::	settings

private subroutine write_solver_info(settings)

Arguments

Type	Intent	Optional	Attributes		Name
type(settings_t),	intent(in)			::	settings

private subroutine write_equilibrium_info(settings)

Arguments

Type	Intent	Optional	Attributes		Name
type(settings_t),	intent(in)			::	settings

private subroutine write_units_info(settings)

Arguments

Type	Intent	Optional	Attributes		Name
type(settings_t),	intent(in)			::	settings

private subroutine write_physics_info(settings)

Arguments

Type	Intent	Optional	Attributes		Name
type(settings_t),	intent(in)			::	settings

private subroutine write_parameters(settings)

Arguments

Type	Intent	Optional	Attributes		Name
type(settings_t),	intent(in)			::	settings

private subroutine write_background_names(settings)

Arguments

Type	Intent	Optional	Attributes		Name
type(settings_t),	intent(in)			::	settings

private subroutine write_background_data(settings, grid, background, physics)

Arguments

Type	Intent	Optional	Attributes		Name
type(settings_t),	intent(in)			::	settings
type(grid_t),	intent(in)			::	grid
type(background_t),	intent(in)			::	background
type(physics_t),	intent(in)			::	physics

private subroutine write_base_eigenfunction_data(grid, eigenfunctions)

Arguments

Type	Intent	Optional	Attributes		Name
type(grid_t),	intent(in)			::	grid
type(eigenfunctions_t),	intent(in)			::	eigenfunctions

private subroutine write_derived_eigenfunction_data(settings, eigenfunctions)

Arguments

Type	Intent	Optional	Attributes		Name
type(settings_t),	intent(in)			::	settings
type(eigenfunctions_t),	intent(in)			::	eigenfunctions

private subroutine write_eigenvector_data(eigenvectors)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(in)			::	eigenvectors(:,:)

private subroutine write_residual_data(eigenvalues, matrix_A, matrix_B, eigenvectors)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(in)			::	eigenvalues(:)
type(matrix_t),	intent(in)			::	matrix_A
type(matrix_t),	intent(in)			::	matrix_B
complex(kind=dp),	intent(in)			::	eigenvectors(:,:)

private subroutine write_matrix_data(matrix_A, matrix_B)

Arguments

Type	Intent	Optional	Attributes		Name
type(matrix_t),	intent(in)			::	matrix_A
type(matrix_t),	intent(in)			::	matrix_B