Logging utility. More...

Functions/Subroutines
subroutine, public	initialise_logging (pid)
	Initialises the logging. This is done to make it easier for master logging only, so that we don't have to pass the process ID in each time. More...

subroutine, public	log_master_log (level, message)
	Will log just from the master process. More...

subroutine, public	log_master_newline ()
	The master process will log a new line to stdio. More...

logical function, public	log_is_master ()
	Determines whether the process is the master logging process. This might be preferable rather than calling masterLog due to having to construct the message for masterLog regardless. More...

subroutine, public	log_log (level, message, str)
	Logs a message at the specified level. If the level is above the current level then the message is ignored. If applicable then the message will be written to stdout or a provided string. More...

subroutine, public	log_newline ()
	Will log a new line to the stdout. More...

character(len=7) function	get_logging_preamble (level)
	Returns the string preamble that applies to the specific logging level. More...

subroutine, public	log_set_logging_level (level)
	Sets the logging level, messages with less priority will be ignored. More...

integer function, public	log_get_logging_level ()
	Retrieves the current logging level. More...

Variables
integer, parameter, private	master_process = 0

integer, parameter, public	log_error = 1
	Only log ERROR messages. More...

integer, parameter, public	log_warn = 2
	Log WARNING and ERROR messages. More...

integer, parameter, public	log_info = 3
	Log INFO, WARNING and ERROR messages. More...

integer, parameter, public	log_debug = 4
	Log DEBUG, INFO, WARNING and ERROR messages. More...

character(len= *), parameter	error_preamble = "[ERROR]"
	Error message preamble. More...

character(len= *), parameter	warn_preamble = "[WARN]"
	Warning message preable. More...

character(len= *), parameter	info_preamble = "[INFO]"
	Info message preamble. More...

character(len= *), parameter	debug_preamble = "[DEBUG]"
	Debug message preamble. More...

integer	current_log_level =LOG_INFO
	Private current logging state, the default is INFO level. More...

logical, parameter	error_is_fatal =.true.
	Whether an error log message is fatal and stops execution. More...

logical, save	i_am_master =.true.
	Whether or not I am the master process. More...

Detailed Description

Logging utility.

Function/Subroutine Documentation

◆ get_logging_preamble()

character(len=7) function logging_mod::get_logging_preamble ( integer, intent(in) level )

private

Returns the string preamble that applies to the specific logging level.

Parameters

level The logging level to translate into a string

Returns: String representation of specific level

Definition at line 97 of file logging.F90.

     integer, intent(in) :: level
  
     if (level .eq. log_error) then
       get_logging_preamble = error_preamble
     else if (level .eq. log_warn) then
       get_logging_preamble = warn_preamble
     else if (level .eq. log_info) then
       get_logging_preamble = info_preamble
     else
       get_logging_preamble = debug_preamble
     end if

Here is the caller graph for this function:

◆ initialise_logging()

subroutine, public logging_mod::initialise_logging ( integer, intent(in) pid )

Initialises the logging. This is done to make it easier for master logging only, so that we don't have to pass the process ID in each time.

Parameters

pid	The process Id

Definition at line 36 of file logging.F90.

     integer, intent(in) :: pid
  
     i_am_master=pid==master_process

Here is the caller graph for this function:

◆ log_get_logging_level()

integer function, public logging_mod::log_get_logging_level

Retrieves the current logging level.

Returns: The current logging level

Definition at line 121 of file logging.F90.

122 log_get_logging_level = current_log_level

Here is the caller graph for this function:

◆ log_is_master()

logical function, public logging_mod::log_is_master

Determines whether the process is the master logging process. This might be preferable rather than calling masterLog due to having to construct the message for masterLog regardless.

Parameters

pid	The process id to test

Definition at line 65 of file logging.F90.

66 log_is_master = i_am_master

Here is the caller graph for this function:

◆ log_log()

subroutine, public logging_mod::log_log	(	integer, intent(in)	level,
		character(len=*), intent(in)	message,
		character(len=*), intent(out), optional	str
	)

Logs a message at the specified level. If the level is above the current level then the message is ignored. If applicable then the message will be written to stdout or a provided string.

Parameters

level	The logging level
message	The message to log
str	Optional string to write the message into (rather than stdout)

Definition at line 74 of file logging.F90.

     integer, intent(in) :: level
     character(len=*), intent(in) :: message
     character(len=*), intent(out), optional :: str
  
     if (level .le. current_log_level) then
       if (present(str)) then
         write(str,"(A,A,A)") trim(get_logging_preamble(level)), " ",message
       else
         write(*,"(A,A,A)") trim(get_logging_preamble(level)), " ", message
       end if
     end if
     if (error_is_fatal .and. level .eq. log_error) call abort()

Here is the call graph for this function:

◆ log_master_log()

subroutine, public logging_mod::log_master_log	(	integer, intent(in)	level,
		character(len=*), intent(in)	message
	)

Will log just from the master process.

Parameters

level	The logging level
message	The logging message
myId	My process id

Definition at line 46 of file logging.F90.

     integer, intent(in) :: level
     character(len=*), intent(in) :: message
  
     if (i_am_master) then
       call log_log(level, message)
     else
       if (error_is_fatal .and. level .eq. log_error) call abort()
     end if

Here is the call graph for this function:

Here is the caller graph for this function:

◆ log_master_newline()

subroutine, public logging_mod::log_master_newline

The master process will log a new line to stdio.

Definition at line 58 of file logging.F90.

59 if (i_am_master) write(*,*) ""

◆ log_newline()

subroutine, public logging_mod::log_newline

Will log a new line to the stdout.

Definition at line 90 of file logging.F90.

91 write(*,*) ""

◆ log_set_logging_level()

subroutine, public logging_mod::log_set_logging_level ( integer, intent(in) level )

Sets the logging level, messages with less priority will be ignored.

Parameters

level The logging level to adopt

Definition at line 113 of file logging.F90.

     integer, intent(in) :: level
  
     current_log_level = level

Here is the caller graph for this function:

Variable Documentation

◆ current_log_level

integer logging_mod::current_log_level =LOG_INFO

private

Private current logging state, the default is INFO level.

Definition at line 22 of file logging.F90.

22 integer :: current_log_level=log_info

◆ debug_preamble

character(len=*), parameter logging_mod::debug_preamble = "[DEBUG]"

private

Debug message preamble.

Definition at line 16 of file logging.F90.

◆ error_is_fatal

logical, parameter logging_mod::error_is_fatal =.true.

private

Whether an error log message is fatal and stops execution.

Definition at line 24 of file logging.F90.

24 logical, parameter :: error_is_fatal=.true.

◆ error_preamble

character(len=*), parameter logging_mod::error_preamble = "[ERROR]"

private

Error message preamble.

Definition at line 16 of file logging.F90.

   character(len=*), parameter ::  ERROR_PREAMBLE = "[ERROR]",&  !< Error message preamble
                                   warn_preamble = "[WARN]",& 
                                   info_preamble = "[INFO]",&    
                                   debug_preamble = "[DEBUG]"    

◆ i_am_master

logical, save logging_mod::i_am_master =.true.

private

Whether or not I am the master process.

Definition at line 26 of file logging.F90.

26 logical, save :: i_am_master=.true.

◆ info_preamble

character(len=*), parameter logging_mod::info_preamble = "[INFO]"

private

Info message preamble.

Definition at line 16 of file logging.F90.

◆ log_debug

integer, parameter, public logging_mod::log_debug = 4

Log DEBUG, INFO, WARNING and ERROR messages.

Definition at line 14 of file logging.F90.

14 integer, parameter, public :: LOG_DEBUG = 4

◆ log_error

integer, parameter, public logging_mod::log_error = 1

Only log ERROR messages.

Definition at line 11 of file logging.F90.

11 integer, parameter, public :: LOG_ERROR = 1

◆ log_info

integer, parameter, public logging_mod::log_info = 3

Log INFO, WARNING and ERROR messages.

Definition at line 13 of file logging.F90.

13 integer, parameter, public :: LOG_INFO = 3

◆ log_warn

integer, parameter, public logging_mod::log_warn = 2

Log WARNING and ERROR messages.

Definition at line 12 of file logging.F90.

12 integer, parameter, public :: LOG_WARN = 2

◆ master_process

integer, parameter, private logging_mod::master_process = 0

private

Definition at line 9 of file logging.F90.

9 integer, parameter, private :: MASTER_PROCESS = 0

◆ warn_preamble

character(len=*), parameter logging_mod::warn_preamble = "[WARN]"

private

Warning message preable.

Definition at line 16 of file logging.F90.

Functions/Subroutines

Variables

Detailed Description

Function/Subroutine Documentation

◆ get_logging_preamble()

◆ initialise_logging()

◆ log_get_logging_level()

◆ log_is_master()

◆ log_log()

◆ log_master_log()

◆ log_master_newline()

◆ log_newline()

◆ log_set_logging_level()

Variable Documentation

◆ current_log_level

◆ debug_preamble

◆ error_is_fatal

◆ error_preamble

◆ i_am_master

◆ info_preamble

◆ log_debug

◆ log_error

◆ log_info

◆ log_warn

◆ master_process

◆ warn_preamble