subroutineseconds_textprivate
subroutine seconds_text(ticks, text)
ticks of the clock as text.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| ticks | integer(kind=int64) | in | the time | |
| text | character(len=*) | out | the text |
Source
Show the code
subroutine seconds_text(ticks, text)
integer(int64), intent(in) :: ticks !! the time
character(len=*), intent(out) :: text !! the text
write (text, '(f0.2,a)') real(ticks)/real(rate), ' s'
if (text(1:1) == '.') text = '0'//text
end subroutine seconds_text