log_write Interface

public interface log_write

Module Procedures

private subroutine log_write_message(level, message)

Write a log message for the given level using the current logger settings.

This is a convenience routine that calls log_unit() internally and writes the message if LOGGER_OK is .true..

Arguments

Type IntentOptional Attributes Name
integer(kind=i4), intent(in) :: level

Log level of the message
character(len=*), intent(in) :: message

The text message to log

private subroutine log_write_message_no_advance(level, message, newline)

Write a log message for a given level without advancing the line

Arguments

Type IntentOptional Attributes Name
integer(kind=i4), intent(in) :: level

Log level of the message
character(len=*), intent(in) :: message

The text message to log
logical, intent(in) :: newline

If .false., do not append a newline

private subroutine log_write_message_i4(level, message, value)

Write a log message for a given level, appending an integer at the end

Arguments

Type IntentOptional Attributes Name
integer(kind=i4), intent(in) :: level

Log level of the message
character(len=*), intent(in) :: message

The text message to log
integer(kind=i4), intent(in) :: value

Integer value to append

private subroutine log_write_message_i4_no_advance(level, message, value, newline)

Write a log message for a given level without advancing the line, appending an integer at the end

Arguments

Type IntentOptional Attributes Name
integer(kind=i4), intent(in) :: level

Log level of the message
character(len=*), intent(in) :: message

The text message to log
integer(kind=i4), intent(in) :: value

Integer value to append
logical, intent(in) :: newline

If .false., do not append a newline

private subroutine log_write_message_dp(level, message, value)

Write a log message for a given level, appending a double at the end

Arguments

Type IntentOptional Attributes Name
integer(kind=i4), intent(in) :: level

Log level of the message
character(len=*), intent(in) :: message

The text message to log
real(kind=dp), intent(in) :: value

Double precision value to append

private subroutine log_write_message_dp_no_advance(level, message, value, newline)

Write a log message for a given level without advancing the line, appending a double at the end

Arguments

Type IntentOptional Attributes Name
integer(kind=i4), intent(in) :: level

Log level of the message
character(len=*), intent(in) :: message

The text message to log
real(kind=dp), intent(in) :: value

Double precision value to append
logical, intent(in) :: newline

If .false., do not append a newline