fdoc

subroutineseconds_textprivate

subroutine seconds_text(ticks, text)

ticks of the clock as text.

Arguments

NameTypeIntentAttributesDescription
ticksinteger(kind=int64)in

the time

textcharacter(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

Graphs

Called by