origen output class Contains auxiliary routines for the concentrations output. More...

Data Types
type	origen_output_class
	Exposure table printing functions; needed for Origami. More...

Functions/Subroutines
subroutine, public	convert_concentrations (nsteps, lib, itot, units, x, volume)
	convert concentrations from gram-atoms to something else More...

subroutine	removal_rates_sort (this)

subroutine, public	print_element_table (lib, nsteps, nnucs, anucs, bnucs, cutoff_relative, cutoff_step, cutoff_value, times, time_unit, high_precision, x)
	Wrapper over `print_table`, sums data (x array) over isotopes to get element-based data. More...

subroutine, public	print_nuclide_table (lib, nsteps, nnucs, anucs, bnucs, cutoff_relative, cutoff_step, cutoff_value, times, time_unit, high_precision, x)
	Wrapper over `print_table`, sums data (x array) over isotopes to get element-based data. More...

subroutine	print_table (lib, nsteps, nnucs, noffset, cutoff_relative, cutoff_step, cutoff_value, times, time_unit, high_precision, is_element, x)

subroutine	sortpn (xe, l, n)
	Sort two parallel arrays by the elements of one of thems. More...

Variables
character(2048), dimension(2048), private	rbuffer
	character buffer More...

integer, private	rstatus
	status flag More...

integer, parameter	ot_nuclide = 1
	Concentration table type: nuclides. More...

integer, parameter	ot_element = 2
	Concentration table type: elements. More...

integer, parameter	ou_gramatoms = 1
	Concentration table units: gram-atoms. More...

integer, parameter	ou_grams = 2
	Concentration table units: grams. More...

integer, parameter	ou_curies = 3
	Concentration table units: curies. More...

integer, parameter	ou_watts = 4
	Concentration table units: a+b+g watts. More...

integer, parameter	ou_gwatts = 5
	Concentration table units: gamma watts. More...

integer, parameter	ou_ampc = 6
	Concentration table units: m3 air. More...

integer, parameter	ou_wmpc = 7
	Concentration table units: m3 water. More...

integer, parameter	ou_wppm = 8
	Concentration table units: weight ppm. More...

integer, parameter	ou_appm = 9
	Concentration table units: atoms ppm. More...

integer, parameter	ou_abcm = 10
	Concentration table units: atoms/barn.cm. More...

integer, parameter	ou_bq = 11
	Concentration table units: becquerels. More...

Detailed Description

origen output class Contains auxiliary routines for the concentrations output.

Function/Subroutine Documentation

subroutine, public origen_output::convert_concentrations	(	integer, intent(in)	nsteps,
		type(origen_librarywrapper), intent(in)	lib,
		integer, intent(in)	itot,
		integer, intent(in)	units,
		real(c_double), dimension(0:nsteps, 1:itot), intent(inout)	x,
		real(c_double), intent(in)	volume
	)

convert concentrations from gram-atoms to something else

Parameters

[in]	nsteps	number of steps
[in]	lib	library data
[in]	itot	Total number of nuclides on the libary
[in]	units	units to which the conversion should be made
[in,out]	x	concentration buffer
[in]	volume	volume (only used for number density)

cycle variable

summary counter

Containers for library arrays from C++

subroutine origen_output::removal_rates_sort ( class(origen_output_class), intent(inout) this )

private

subroutine, public origen_output::print_element_table	(	type(origen_librarywrapper), intent(in)	lib,
		integer, intent(in)	nsteps,
		integer, intent(in)	nnucs,
		integer, intent(in)	anucs,
		integer, intent(in)	bnucs,
		logical, intent(in)	cutoff_relative,
		integer, intent(in)	cutoff_step,
		real(c_double), intent(in)	cutoff_value,
		real(c_double), dimension(0:nsteps), intent(in)	times,
		character(4), intent(in)	time_unit,
		logical, intent(in)	high_precision,
		real(c_double), dimension(0:nsteps, 1:nnucs), intent(in)	x
	)

Wrapper over print_table, sums data (x array) over isotopes to get element-based data.

Parameters

[in]	lib	Library data
[in]	nsteps	number of time steps
[in]	nnucs	number of nuclides/elements/...
[in]	anucs	first index of the nuclide/element
[in]	bnucs	last index of the nuclide/element
[in]	x	data
[in]	cutoff_relative	true -> cutoff is relative to total, false -> cutoff is absolute
[in]	cutoff_step	-1 => cutoff by sum, otherwise cutoff by one step
[in]	cutoff_value	cutoff treshold
[in]	times	time values
[in]	time_unit	time units
[in]	high_precision	4 / 6 digits

buffer for element data

nuclide index

subroutine, public origen_output::print_nuclide_table	(	type(origen_librarywrapper), intent(in)	lib,
		integer, intent(in)	nsteps,
		integer, intent(in)	nnucs,
		integer, intent(in)	anucs,
		integer, intent(in)	bnucs,
		logical, intent(in)	cutoff_relative,
		integer, intent(in)	cutoff_step,
		real(c_double), intent(in)	cutoff_value,
		real(c_double), dimension(0:nsteps), intent(in)	times,
		character(4), intent(in)	time_unit,
		logical, intent(in)	high_precision,
		real(c_double), dimension(0:nsteps, 1:nnucs), intent(in)	x
	)

Wrapper over print_table, sums data (x array) over isotopes to get element-based data.

Parameters

[in]	lib	Library data
[in]	nsteps	number of time steps
[in]	nnucs	number of nuclides/elements/...
[in]	anucs	first index of the nuclide/element
[in]	bnucs	last index of the nuclide/element
[in]	x	data
[in]	cutoff_relative	true -> cutoff is relative to total, false -> cutoff is absolute
[in]	cutoff_step	-1 => cutoff by sum, otherwise cutoff by one step
[in]	cutoff_value	cutoff treshold
[in]	times	time values
[in]	time_unit	time units
[in]	high_precision	4 / 6 digits

subroutine origen_output::print_table	(	type(origen_librarywrapper), intent(in)	lib,
		integer, intent(in)	nsteps,
		integer, intent(in)	nnucs,
		integer, intent(in)	noffset,
		logical, intent(in)	cutoff_relative,
		integer, intent(in)	cutoff_step,
		real(c_double), intent(in)	cutoff_value,
		real(c_double), dimension(0:nsteps), intent(in)	times,
		character(4), intent(in)	time_unit,
		logical, intent(in)	high_precision,
		logical, intent(in)	is_element,
		real(c_double), dimension(0:nsteps, 1:nnucs), intent(in)	x
	)

private

Parameters

[in]	lib	Library data
[in]	nsteps	number of time steps
[in]	nnucs	number of nuclides/elements/...
[in]	noffset	index of the first nuclide in the `x` array
[in]	x	data
[in]	cutoff_relative	true -> cutoff is relative to total, false -> cutoff is absolute
[in]	cutoff_step	-1 => cutoff by sum, otherwise cutoff by one step
[in]	cutoff_value	cutoff treshold
[in]	times	time values
[in]	time_unit	time units
[in]	high_precision	4 / 6 digits
[in]	is_element	print the row header as an element or as a nuclide?