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.
As tic() and toc(message) rely on a module variable, they are
not thread safe.
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.
| Type | Intent | Optional | 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". |