Operational Remediation Reports
Capacity Shift Report
Pick a Reserve Action
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.