A capacity remediation report can turn remaining reserve into a small action label without depending on host metrics.

Program

Play the program to choose reserve and inspect the capacity action.

capacity_shift_report.f90
program capacity_shift_report_demo
    implicit none
    integer :: reserve
    character(len=8) :: action

    reserve = 
    if (reserve >= 15) then
        action = 'hold'
    else if (reserve >= 8) then
        action = 'shift'
    else
        action = 'shed'
    end if
    print '(A, I0, 1X, A)', 'reserve=', reserve, trim(action)
end program capacity_shift_report_demo
program capacity_shift_report_demo
    implicit none
    integer :: reserve
    character(len=8) :: action

    reserve = 
    if (reserve >= 15) then
        action = 'hold'
    else if (reserve >= 8) then
        action = 'shift'
    else
        action = 'shed'
    end if
    print '(A, I0, 1X, A)', 'reserve=', reserve, trim(action)
end program capacity_shift_report_demo
program capacity_shift_report_demo
    implicit none
    integer :: reserve
    character(len=8) :: action

    reserve = 
    if (reserve >= 15) then
        action = 'hold'
    else if (reserve >= 8) then
        action = 'shift'
    else
        action = 'shed'
    end if
    print '(A, I0, 1X, A)', 'reserve=', reserve, trim(action)
end program capacity_shift_report_demo
reserve selector `reserve` is a scalar report signal that stays simple enough for deterministic replay variants.
remediation tiers Higher reserve can hold steady, medium reserve shifts load, and low reserve sheds optional work.
operator output The report line exposes both the numeric reserve and the action label.