tem_logging_module

Providing a logging infrastructure to easily control the verbosity of output.

The internal log_level can be set at runtime and output will only happen, if the log_level is higher than that of the messages to write.

The numbering of levels is limited to 20, the higher the number the less important the message is:

1 A message that should always appear (except the logger is explicitly turned off)
3 Informational warnings of less importance
6 Detailed information
10 Very detailed debugging information

Messages should be defined with positive integers between 1 and 10 and the list above provides some idea on which levels to use. Log levels beyond 10 should only be used for temporary outputs during development.

There is a primary logging data structure provided by the module, which will provide output by the root rank usually to the standard output.

To write a message to the log, use its funit. The funit is an array of file units, that are either connected to the configured output file or to the null device, depending on the configured log level. All units beyond the log level are connected to the null device, while those up that level are connected to the file. For the primary logger a shorthand is provided by the module variable logUnit. Thus, to write some message on log level 4 to the primary logger you do something like this:

write(logUnit(4),*) 'some real: ', x

This message will only appear, if the log level in the configuration is set to 4 or higher.

Unfortunately debug outputs are costly, even if written to the null device they might heavily affect performance. Thus you should not put log messages into hot code parts, that is mostly into long or deeply nested loops. If there is the need for debug output in such parts, there is the possibility to enclose the calls in CoCo preprocessing commands:

 ?? IF (loglvl >= 3) THEN
   write(logunit(3),*) 'We only write this if compilation includes this.'
 ?? ENDIF

As loglvl needs to be always defined you currently need to include the logMacros.inc file everywhere you want to use that. However, it might be possible to shift the default definition of loglvl=0 to the setfile (needs to be checked). To set a certain loglvl at compile time it is then necessary to set the COCOFLAGS environment variable:

 export COCOFLAGS='-Dloglvl=3'

In addition there are some helping routines defined, that help to convert data to strings. To convert a number or logical to a string use tem_toStr. For example you can write a message to the primary log with the real "ar" like this:

 call tem_log(level=1, msg='some real: '//trim(tem_toStr(ar))//' !')

Uses

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Used by

tem_logging_module		w	hvs_ascii_module
		w
		w	hvs_aux_module
		w
		w	hvs_output_module
		w
		w	hvs_vtk_module
		w
		w	hvs_vtk_module
		w
		w	tem_acoustic_pulse_module
		w
		w	tem_adaptation_config_module
		w
		w	tem_aux_module
		w
		w	tem_balance_module
		w
		w	tem_bc_header_module
		w
		w	tem_bc_module
		w
		w	tem_bc_prop_module
		w
		w	tem_canonicalND_module
		w
		w	tem_comm_module
		w
		w	tem_compteFaceRules_module
		w
		w	tem_condition_module
		w
		w	tem_construction_module
		w
		w	tem_convergence_module
		w
		w	tem_coordinate_module
		w
		w	tem_coupling_module
		w
		w	tem_cube_module
		w
		w	tem_cylinder_module
		w
		w	tem_cylindricalWave_module
		w
		w	tem_cylindricalWave_module
		w
		w	tem_debug_module
		w
		w	tem_depend_module
		w
		w	tem_derived_module
		w
		w	tem_ellipsoid_module
		w
		w	tem_face_module
		w
		w	tem_general_module
		w
		w	tem_geometry_module
		w
		w	tem_global_module
		w
	w	tem_heaviside_gibbs_fun_module
	w
	w	tem_ic_predefs_module
	w
	w	tem_ini_condition_module
	w
	w	tem_line_module
	w
	w	tem_logical_operation_var_module
	w
	w	tem_math_module
	w
	w	tem_matrix_module
	w
	w	tem_meshInfo_module
	w
	w	tem_miescatter_module
	w
	w	tem_miescatter_module
	w
	w	tem_operation_var_module
	w
	w	tem_output_module
	w
	w	tem_pmlLayer_module
	w
	w	tem_point_module
	w
	w	tem_pointData_module
	w
	w	tem_polygon_material_module
	w
	w	tem_reduction_spatial_module
	w
	w	tem_reduction_transient_module
	w
	w	tem_restart_module
	w
	w	tem_shape_module
	w
	w	tem_simControl_module
	w
	w	tem_spacetime_fun_module
	w
	w	tem_spacetime_var_module
	w
	w	tem_Sparta_module
	w
	w	tem_spatial_module
	w
	w	tem_sphere_module
	w
	w	tem_spongeLayer_module
	w
	w	tem_stencil_module
	w
	w	tem_stl_module
	w
	w	tem_stlb_io_module
	w
	w	tem_subTree_module
	w
	w	tem_subTree_type_module
	w
	w	tem_surfaceData_module
	w
	w	tem_temporal_module
	w
	w	tem_timeControl_module
	w
	w	tem_timer_module
	w
	w	tem_tracking_module
	w
	w	tem_trackmem_module
	w
	w	tem_transformation_module
	w
	w	tem_triangle_module
	w
	w	tem_variable_module
	w
	w	tem_varMap_module
	w
	w	tem_varSys_module
	w
	w	tem_vrtx_module
	w
	w	treelmesh_module
	w

Help

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	parameter	::	tem_last_lu	=	21	The last logging unit, defining the length of log unit arrays.
integer,	public		::	logUnit(0:tem_last_lu)
integer,	public,	parameter	::	llerror	=	1	A message that should always appear (except the logger is explicitly turned off)
integer,	public,	parameter	::	llwarning	=	3	Informational warnings of less importance
integer,	public,	parameter	::	llinfo	=	6	Detailed information
integer,	public,	parameter	::	lldebug	=	10	Very detailed debugging information
integer,	private,	parameter	::	form_len	=	10
type(tem_logging_type),	private		::	primary

Interfaces

public interface tem_logging_isActive

private function tem_logging_isActive_for(me, level) result(isActive)

Check if the given logger is active for the given level.

Arguments

Type	Intent	Optional	Attributes		Name
type(tem_logging_type),	intent(in)			::	me
integer,	intent(in)			::	level

Return Value logical

private function tem_logging_isActive_primary(level) result(isActive)

Check if the primary logger is active for the given level.

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	level

Return Value logical

public interface tem_logging_unit

private function tem_logging_unit_for(me) result(unit)

Return the unit provided by a given log

Arguments

Type	Intent	Optional	Attributes		Name
type(tem_logging_type),	intent(in)			::	me

Return Value integer

private function tem_logging_unit_primary() result(unit)

Return the unit provided by the primary log

Arguments
None
Return Value integer

public interface tem_log_write

private subroutine tem_log_write_for(me, msg)

Write msg unconditionally to the logger given in me.

Arguments

Type	Intent	Optional	Attributes		Name
type(tem_logging_type),	intent(in)			::	me
character(len=*),	intent(in)			::	msg

private subroutine tem_log_write_primary(msg)

Write msg unconditionally to the primary logger.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	msg

public interface tem_log

private subroutine tem_log_for(me, level, msg)

Log a message in the given logger.

Arguments

Type	Intent		Name
type(tem_logging_type),	intent(in)	::	me
integer,	intent(in)	::	level
character(len=*),	intent(in)	::	msg

private subroutine tem_log_primary(level, msg)

Log a message in the primary logger.

Arguments

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

public interface tem_logging_init

private subroutine tem_logging_init_logger(me, level, rank, filename, root_only, real_form, int_form)

Initialize a logging data type.

Todo: this should move to a proper place and have a proper format!

Arguments

Type	Intent	Optional		Name
type(tem_logging_type),	intent(out)		::	me	Logger to initialize
integer,	intent(in)		::	level	Level of output to log with this logger
integer,	intent(in)		::	rank	Rank of the process executing the initialization.
character(len=*),	intent(in),	optional	::	filename	File to write output to, default is null device. Read more…
logical,	intent(in),	optional	::	root_only	Indicate if root only should write messages Default is true.
character(len=*),	intent(in),	optional	::	real_form	Format to write real numbers. Default is 'EN12.3'
character(len=*),	intent(in),	optional	::	int_form	Format to write integer numbers. Default is 'I0'

public subroutine tem_logging_init_primary(level, rank, filename, root_only, real_form, int_form)

Initialize the primary logger (default to stdout instead of null device).

Arguments

Type	Intent	Optional		Name
integer,	intent(in)		::	level	Level of output to log with this logger
integer,	intent(in)		::	rank	Rank of the process executing the initialization.
character(len=*),	intent(in),	optional	::	filename	File to write output to, default is standard out. Read more…
logical,	intent(in),	optional	::	root_only	Indication whether only root should print log messages.
character(len=*),	intent(in),	optional	::	real_form	Format to write real numbers. Default is 'EN12.3'
character(len=*),	intent(in),	optional	::	int_form	Format to write integer numbers. Default is 'I0'

public interface tem_toStr

private function tem_r2str(val, logger) result(str)

Convert a real to a string according to the format provided in the logger.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=single_k),	intent(in)			::	val
type(tem_logging_type),	intent(in),	optional		::	logger

Return Value character(len=SolSpecLen)

private function tem_d2str(val, logger) result(str)

Converts a double to a string according to the format provided in the logger.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=double_k),	intent(in)			::	val
type(tem_logging_type),	intent(in),	optional		::	logger

Return Value character(len=SolSpecLen)

private function tem_i2str(val, logger) result(str)

Converts an integer to a string according to the format provided in the logger.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int_k),	intent(in)			::	val
type(tem_logging_type),	intent(in),	optional		::	logger

Return Value character(len=SolSpecLen)

private function tem_l2str(val, logger) result(str)

Converts a long to a string according to the format provided in the logger.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=long_k),	intent(in)			::	val
type(tem_logging_type),	intent(in),	optional		::	logger

Return Value character(len=SolSpecLen)

private function tem_b2str(val) result(str)

Converts a bool to a string.

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	val

Return Value character(len=SolSpecLen)

private function tem_r2str_arr(val, sep, logger) result(str)

Converts a real "array" to a single string according to the format provided in the logger.

Arguments

Type	Intent	Optional		Name
real(kind=single_k),	intent(in)		::	val(:)	array to convert
character(len=*),	intent(in)		::	sep	seperator between array elements
type(tem_logging_type),	intent(in),	optional	::	logger	logger type which provides output format

Return Value character(len=SolSpecLen)

output string

private function tem_d2str_arr(val, sep, logger) result(str)

Converts an array of doubles to a string according to the format provided in the logger.

Arguments

Type	Intent	Optional		Name
real(kind=double_k),	intent(in)		::	val(:)
character(len=*),	intent(in)		::	sep
type(tem_logging_type),	intent(in),	optional	::	logger

Return Value character(len=SolSpecLen)

private function tem_i2str_arr(val, sep, logger) result(str)

Converts an array of integers to a string according to the format provided in the logger.

Arguments

Type	Intent	Optional		Name
integer(kind=int_k),	intent(in)		::	val(:)	array to convert
character(len=*),	intent(in)		::	sep
type(tem_logging_type),	intent(in),	optional	::	logger

Return Value character(len=SolSpecLen)

private function tem_l2str_arr(val, sep, logger) result(str)

Converts an array of longs to a string according to the format provided in the logger.

Arguments

Type	Intent	Optional		Name
integer(kind=long_k),	intent(in)		::	val(:)
character(len=*),	intent(in)		::	sep
type(tem_logging_type),	intent(in),	optional	::	logger

Return Value character(len=SolSpecLen)

private function tem_b2str_arr(val, sep) result(str)

Converts an array of booleans to a string.

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	val(:)
character(len=*),	intent(in)			::	sep

Return Value character(len=SolSpecLen)

Derived Types

type, public :: tem_logging_type

Components

Type	Visibility		Name
integer,	public	::	log_level
integer,	public	::	funit(0:tem_last_lu)
logical,	public	::	participating
character(len=form_len),	public	::	real_form
character(len=form_len),	public	::	int_form

Functions

private function tem_logging_isActive_for(me, level) result(isActive)

Check if the given logger is active for the given level.

Arguments

Type	Intent	Optional	Attributes		Name
type(tem_logging_type),	intent(in)			::	me
integer,	intent(in)			::	level

Return Value logical

private function tem_logging_isActive_primary(level) result(isActive)

Check if the primary logger is active for the given level.

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	level

Return Value logical

private function tem_logging_unit_for(me) result(unit)

Return the unit provided by a given log

Arguments

Type	Intent	Optional	Attributes		Name
type(tem_logging_type),	intent(in)			::	me

Return Value integer

private function tem_logging_unit_primary() result(unit)

Return the unit provided by the primary log

Arguments

None

Return Value integer

private function tem_r2str(val, logger) result(str)

Convert a real to a string according to the format provided in the logger.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=single_k),	intent(in)			::	val
type(tem_logging_type),	intent(in),	optional		::	logger

Return Value character(len=SolSpecLen)

private function tem_r2str_arr(val, sep, logger) result(str)

Converts a real "array" to a single string according to the format provided in the logger.

Arguments

Type	Intent	Optional		Name
real(kind=single_k),	intent(in)		::	val(:)	array to convert
character(len=*),	intent(in)		::	sep	seperator between array elements
type(tem_logging_type),	intent(in),	optional	::	logger	logger type which provides output format

Return Value character(len=SolSpecLen)

output string

private function tem_d2str(val, logger) result(str)

Converts a double to a string according to the format provided in the logger.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=double_k),	intent(in)			::	val
type(tem_logging_type),	intent(in),	optional		::	logger

Return Value character(len=SolSpecLen)

private function tem_d2str_arr(val, sep, logger) result(str)

Converts an array of doubles to a string according to the format provided in the logger.

Arguments

Type	Intent	Optional		Name
real(kind=double_k),	intent(in)		::	val(:)
character(len=*),	intent(in)		::	sep
type(tem_logging_type),	intent(in),	optional	::	logger

Return Value character(len=SolSpecLen)

private function tem_i2str(val, logger) result(str)

Converts an integer to a string according to the format provided in the logger.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int_k),	intent(in)			::	val
type(tem_logging_type),	intent(in),	optional		::	logger

Return Value character(len=SolSpecLen)

private function tem_i2str_arr(val, sep, logger) result(str)

Converts an array of integers to a string according to the format provided in the logger.

Arguments

Type	Intent	Optional		Name
integer(kind=int_k),	intent(in)		::	val(:)	array to convert
character(len=*),	intent(in)		::	sep
type(tem_logging_type),	intent(in),	optional	::	logger

Return Value character(len=SolSpecLen)

private function tem_l2str(val, logger) result(str)

Converts a long to a string according to the format provided in the logger.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=long_k),	intent(in)			::	val
type(tem_logging_type),	intent(in),	optional		::	logger

Return Value character(len=SolSpecLen)

private function tem_l2str_arr(val, sep, logger) result(str)

Converts an array of longs to a string according to the format provided in the logger.

Arguments

Type	Intent	Optional		Name
integer(kind=long_k),	intent(in)		::	val(:)
character(len=*),	intent(in)		::	sep
type(tem_logging_type),	intent(in),	optional	::	logger

Return Value character(len=SolSpecLen)

private function tem_b2str(val) result(str)

Converts a bool to a string.

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	val

Return Value character(len=SolSpecLen)

private function tem_b2str_arr(val, sep) result(str)

Converts an array of booleans to a string.

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	val(:)
character(len=*),	intent(in)			::	sep

Return Value character(len=SolSpecLen)

Subroutines

public subroutine tem_logging_init_primary(level, rank, filename, root_only, real_form, int_form)

Initialize the primary logger (default to stdout instead of null device).

Arguments

Type	Intent	Optional		Name
integer,	intent(in)		::	level	Level of output to log with this logger
integer,	intent(in)		::	rank	Rank of the process executing the initialization.
character(len=*),	intent(in),	optional	::	filename	File to write output to, default is standard out. Read more…
logical,	intent(in),	optional	::	root_only	Indication whether only root should print log messages.
character(len=*),	intent(in),	optional	::	real_form	Format to write real numbers. Default is 'EN12.3'
character(len=*),	intent(in),	optional	::	int_form	Format to write integer numbers. Default is 'I0'

public subroutine tem_logging_load(conf, thandle, rank, me)

Load logging configuration from a Lua table and return the initialized logger.

Arguments

Type	Intent	Optional		Name
type(flu_State)			::	conf
integer,	intent(in)		::	thandle
integer,	intent(in)		::	rank
type(tem_logging_type),	intent(out),	optional	::	me

public subroutine tem_logging_load_primary(conf, rank)

Load the primary logger from a Lua script under its default name of logging as global variable.

Arguments

Type	Intent	Optional	Attributes		Name
type(flu_State)				::	conf
integer				::	rank

private subroutine tem_logging_init_logger(me, level, rank, filename, root_only, real_form, int_form)

Initialize a logging data type.

Arguments

Type	Intent	Optional		Name
type(tem_logging_type),	intent(out)		::	me	Logger to initialize
integer,	intent(in)		::	level	Level of output to log with this logger
integer,	intent(in)		::	rank	Rank of the process executing the initialization.
character(len=*),	intent(in),	optional	::	filename	File to write output to, default is null device. Read more…
logical,	intent(in),	optional	::	root_only	Indicate if root only should write messages Default is true.
character(len=*),	intent(in),	optional	::	real_form	Format to write real numbers. Default is 'EN12.3'
character(len=*),	intent(in),	optional	::	int_form	Format to write integer numbers. Default is 'I0'

private subroutine tem_log_write_for(me, msg)

Write msg unconditionally to the logger given in me.

Arguments

Type	Intent	Optional	Attributes		Name
type(tem_logging_type),	intent(in)			::	me
character(len=*),	intent(in)			::	msg

private subroutine tem_log_write_primary(msg)

Write msg unconditionally to the primary logger.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	msg

private subroutine tem_log_for(me, level, msg)

Log a message in the given logger.

Arguments

Type	Intent		Name
type(tem_logging_type),	intent(in)	::	me
integer,	intent(in)	::	level
character(len=*),	intent(in)	::	msg

private subroutine tem_log_primary(level, msg)

Log a message in the primary logger.

Arguments

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

tem_logging_module Module

Contents

Variables

Interfaces

Derived Types

Functions

Subroutines

Uses

Used by

Variables

Interfaces

public interface tem_logging_isActive

private function tem_logging_isActive_for(me, level) result(isActive)

Arguments

Return Value logical

private function tem_logging_isActive_primary(level) result(isActive)

Arguments

Return Value logical

public interface tem_logging_unit

private function tem_logging_unit_for(me) result(unit)

Arguments

Return Value integer

private function tem_logging_unit_primary() result(unit)

Arguments

Return Value integer

public interface tem_log_write

private subroutine tem_log_write_for(me, msg)

Arguments

private subroutine tem_log_write_primary(msg)

Arguments

public interface tem_log

private subroutine tem_log_for(me, level, msg)

Arguments

private subroutine tem_log_primary(level, msg)

Arguments

public interface tem_logging_init

private subroutine tem_logging_init_logger(me, level, rank, filename, root_only, real_form, int_form)

Arguments

public subroutine tem_logging_init_primary(level, rank, filename, root_only, real_form, int_form)

Arguments

public interface tem_toStr

private function tem_r2str(val, logger) result(str)

Arguments

Return Value character(len=SolSpecLen)

private function tem_d2str(val, logger) result(str)

Arguments

Return Value character(len=SolSpecLen)

private function tem_i2str(val, logger) result(str)

Arguments

Return Value character(len=SolSpecLen)

private function tem_l2str(val, logger) result(str)

Arguments

Return Value character(len=SolSpecLen)

private function tem_b2str(val) result(str)

Arguments

Return Value character(len=SolSpecLen)

private function tem_r2str_arr(val, sep, logger) result(str)

Arguments

Return Value character(len=SolSpecLen)

private function tem_d2str_arr(val, sep, logger) result(str)

Arguments

Return Value character(len=SolSpecLen)

private function tem_i2str_arr(val, sep, logger) result(str)

Arguments

Return Value character(len=SolSpecLen)

private function tem_l2str_arr(val, sep, logger) result(str)

Arguments

Return Value character(len=SolSpecLen)

private function tem_b2str_arr(val, sep) result(str)

Arguments

Return Value character(len=SolSpecLen)

Derived Types

type, public :: tem_logging_type

Components

Functions

private function tem_logging_isActive_for(me, level) result(isActive)

Arguments

Return Value logical

private function tem_logging_isActive_primary(level) result(isActive)

Arguments