subroutineprogress_finish

subroutine progress_finish()
    character(len=24) :: time
    character(len=16) :: count_text
    integer(int64) :: now

    if (.not. enabled) return
    call system_clock(now)
    call seconds_text(now - stage_start, time)
    write (count_text, '(i0)') total
    if (live) then
        done = total
        call draw()
        write (output_unit, '(a)', advance='no') ' '//trim(time)
        write (output_unit, '(a)') ''
    else if (total > 0) then
        write (output_unit, '(a)') '  '//label//' '//trim(count_text)//' in '//trim(time)
    else
        write (output_unit, '(a)') '  '//label//' '//trim(time)
    end if
    drawn = .false.
    flush (output_unit)
end subroutine progress_finish