NAFPack_Logger_mod Module

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.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Used by

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.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Variables

Type	Visibility	Attributes		Name		Initial
type(Format_file),	public,	parameter	::	FORMAT_FILE_BIN	=	Format_file(0, "binary", "Binary file format")
type(Format_file),	public,	parameter	::	FORMAT_FILE_TXT	=	Format_file(1, "txt", "Text file format")
type(Format_file),	public,	parameter	::	FORMAT_FILE_CSV	=	Format_file(2, "csv", "Comma-separated values format")
type(Format_file),	public,	parameter	::	FORMAT_FILE_LOG	=	Format_file(3, "log", "Log file format")
type(Format_file),	public,	parameter	::	FORMAT_FILE_TSV	=	Format_file(4, "tsv", "Tab-separated values format")
type(Format_file),	public,	parameter	::	FORMAT_FILE_JSON	=	Format_file(5, "json", "JSON file format")
type(Format_file),	public,	parameter	::	FORMAT_FILE_XML	=	Format_file(6, "xml", "XML file format")
type(Format_file),	public,	parameter	::	FORMAT_FILE_YAML	=	Format_file(7, "yaml", "YAML file format")

Interfaces

public interface log_field

private subroutine log_field_str(verbose, label, value)

Arguments

Type	Intent	Optional	Attributes		Name
type(Logger),	intent(inout)			::	verbose
character(len=*),	intent(in)			::	label
character(len=*),	intent(in)			::	value

private subroutine log_field_real(verbose, label, value)

Arguments

Type	Intent	Optional	Attributes		Name
type(Logger),	intent(inout)			::	verbose
character(len=*),	intent(in)			::	label
real(kind=dp),	intent(in)			::	value

private subroutine log_field_int(verbose, label, value)

Arguments

Type	Intent	Optional	Attributes		Name
type(Logger),	intent(inout)			::	verbose
character(len=*),	intent(in)			::	label
integer,	intent(in)			::	value

private subroutine log_field_ucs4(verbose, label, value)

Arguments

Type	Intent	Optional	Attributes		Name
type(Logger),	intent(inout)			::	verbose
character(len=*),	intent(in)			::	label
character(kind=ucs4, len=*),	intent(in)			::	value

private subroutine log_field_logical(verbose, label, value)

Arguments

Type	Intent	Optional	Attributes		Name
type(Logger),	intent(inout)			::	verbose
character(len=*),	intent(in)			::	label
logical,	intent(in)			::	value

Derived Types

type, public :: Format_file

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	id	=	1
character(len=10),	public		::	format_name	=	"txt"
character(len=100),	public		::	format_description	=	"Text file format"

type, public :: Logger

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	verbosity_level	=	1
logical,	public		::	to_terminal	=	.true.
logical,	public		::	to_file	=	.false.
integer,	public		::	frequency	=	10
character(len=100),	public		::	filename	=	"Log"
type(Format_file),	public		::	file_format	=	FORMAT_FILE_LOG
integer,	public		::	file_unit	=	99
character(len=100),	public		::	message	=	"Default log message"
logical,	public		::	show_Logger_initialization	=	.true.
logical,	public		::	show_matrix_test	=	.true.
logical,	public		::	show_info_solver	=	.true.
logical,	public		::	show_iteration	=	.true.
logical,	public		::	show_final	=	.true.

Type-Bound Procedures

procedure, public :: init => init_logger
procedure, public :: log_info
procedure, public :: log_detail
procedure, public :: log_warning
procedure, public :: log_error
procedure, public :: log_time
procedure, public :: write => write_output
procedure, public :: close => close_logger

Functions

public function center_with_fill(text, width, fill_char) result(centered_text)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	text
integer,	intent(in)			::	width
character(len=1),	intent(in),	optional		::	fill_char

Return Value character(kind=ucs4, len=width)