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.

cputoc(message, start_time) logs the elapsed CPU time in seconds since the call of cputic(start_time), along with message.

Arguments

TypeIntentOptionalAttributesName
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".


Contents

None