fdoc_progress.f90 › fdoc_progress

subroutineprogress_enable

subroutine progress_enable()

Turn progress reports on.

Calls

c_isatty

Source

Show the code

subroutine progress_enable()
    integer :: n, stat

    enabled = .true.
    live = c_isatty(1_c_int) == 1
    call get_environment_variable('NO_COLOR', length=n, status=stat)
    colour = live .and. stat /= 0
    call system_clock(run_start, rate)
end subroutine progress_enable

Graphs

Calls

Called by