toc Subroutine

public subroutine toc(message, start_time, level)

Subroutine to end a wall clock timer.

toc(message) logs the elapsed wall clock time in seconds since the most recent call to tic() along with message as a debug message.

Warning

As tic() and toc(message) rely on a module variable, they are not thread safe.

Warning

If toc(message) is called without first calling tic() the result will be meaningless.

toc(message, start_time) logs the elapsed wall clock time in seconds since the call of tic(start_time), along with message.

Arguments

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

Message to log along elapsed time.

integer, intent(in), optional :: start_time

Optional starting time. If not present the time recorded in the module variable is used.

character(len=*), intent(in), optional :: level

The level (severity) of the message, default is "debug".