cputoc Subroutine

public subroutine cputoc(message, start_time, level)

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.

Warning

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

Warning

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.

Arguments

Type IntentOptional 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".