subroutineprogress_start
subroutine progress_start(name, steps)
Start stage name, of steps steps, or of unknown length if that is 0.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| name | character(len=*) | in | the stage | |
| steps | integer | in | how many steps it has |
Calls
Source
Show the code
subroutine progress_start(name, steps)
character(len=*), intent(in) :: name !! the stage
integer, intent(in) :: steps !! how many steps it has
if (.not. enabled) return
label = name
total = steps
done = 0
call system_clock(stage_start)
last_draw = stage_start
if (live) call draw()
end subroutine progress_start