Subroutine to end a CPU timer.
cputoc(message) logs the elapsed CPU time in seconds since the most recent
call to cputic() along with message as a debug message.
As cputic() and cputoc(message) rely on a module variable, they
are not thread safe.
If cputoc(message) is called without first calling cputic() the
result will be meaningless.
cputoc(message, start_time) logs the elapsed CPU time in seconds since the
call of cputic(start_time), along with message.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | message | Message to log along elapsed time. |
||
| real(kind=dp), | 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". |