mod_logging Module


Uses


Variables

Type Visibility Attributes Name Initial
character(len=8), public, parameter :: exp_fmt = "(e20.8)"

exponential format
character(len=8), public, parameter :: dp_fmt = "(f20.8)"

shorter float format
character(len=4), public, parameter :: int_fmt = "(i8)"

integer format
type(logger_t), public :: logger

Interfaces

public interface str

  • private pure function logical_tostring(boolean) result(string)

    Arguments

    Type IntentOptional Attributes Name
    logical, intent(in) :: boolean

    Return Value character(len=:), allocatable

  • private pure function integer_tostring(int_value, fmt) result(string)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: int_value
    character(len=*), intent(in), optional :: fmt

    Return Value character(len=:), allocatable

  • private pure function real_tostring(real_value, fmt) result(string)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=dp), intent(in) :: real_value
    character(len=*), intent(in), optional :: fmt

    Return Value character(len=:), allocatable

  • private pure function complex_tostring(complex_value, fmt) result(string)

    Arguments

    Type IntentOptional Attributes Name
    complex(kind=dp), intent(in) :: complex_value
    character(len=*), intent(in), optional :: fmt

    Return Value character(len=:), allocatable

  • private pure function character_array_tostring(array) result(string)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: array(:)

    the array to convert

    Return Value character(len=:), allocatable

    returned result, trimmed

  • private pure function integer_array_tostring(array) result(string)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: array(:)

    the array to convert

    Return Value character(len=:), allocatable

    returned result, trimmed


Derived Types

type, private ::  logger_t

Components

Type Visibility Attributes Name Initial
integer, private :: logging_level
logical, private :: use_prefix

Type-Bound Procedures

procedure, public, nopass :: error
procedure, public :: warning
procedure, public :: info
procedure, public :: debug
procedure, public :: initialise
procedure, public :: set_logging_level
procedure, public :: get_logging_level
procedure, public :: enable_prefix
procedure, public :: disable_prefix

Functions

private pure function get_logging_level(this) result(logging_level)

Arguments

Type IntentOptional Attributes Name
class(logger_t), intent(in) :: this

Return Value integer

private pure function logical_tostring(boolean) result(string)

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: boolean

Return Value character(len=:), allocatable

private pure function integer_tostring(int_value, fmt) result(string)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: int_value
character(len=*), intent(in), optional :: fmt

Return Value character(len=:), allocatable

private pure function real_tostring(real_value, fmt) result(string)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: real_value
character(len=*), intent(in), optional :: fmt

Return Value character(len=:), allocatable

private pure function complex_tostring(complex_value, fmt) result(string)

Arguments

Type IntentOptional Attributes Name
complex(kind=dp), intent(in) :: complex_value
character(len=*), intent(in), optional :: fmt

Return Value character(len=:), allocatable

private pure function character_array_tostring(array) result(string)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: array(:)

the array to convert

Return Value character(len=:), allocatable

returned result, trimmed

private pure function integer_array_tostring(array) result(string)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: array(:)

the array to convert

Return Value character(len=:), allocatable

returned result, trimmed


Subroutines

private pure subroutine initialise(this)

Arguments

Type IntentOptional Attributes Name
class(logger_t), intent(inout) :: this

private pure subroutine set_logging_level(this, logging_level)

Arguments

Type IntentOptional Attributes Name
class(logger_t), intent(inout) :: this
integer, intent(in) :: logging_level

private pure subroutine enable_prefix(this)

Arguments

Type IntentOptional Attributes Name
class(logger_t), intent(inout) :: this

private pure subroutine disable_prefix(this)

Arguments

Type IntentOptional Attributes Name
class(logger_t), intent(inout) :: this

private subroutine error(msg)

Arguments

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

private subroutine warning(this, msg)

Arguments

Type IntentOptional Attributes Name
class(logger_t), intent(in) :: this
character(len=*), intent(in) :: msg

private subroutine info(this, msg)

Arguments

Type IntentOptional Attributes Name
class(logger_t), intent(in) :: this
character(len=*), intent(in) :: msg

private subroutine debug(this, msg)

Arguments

Type IntentOptional Attributes Name
class(logger_t), intent(in) :: this
character(len=*), intent(in) :: msg