Operational Diagnostics Reports

Resource Drift Report

Label Change

A resource diagnostic report can compare a current reading with a baseline and label the drift for review.

Program

Play the program to choose a current reading and inspect the drift label.

resource_drift_report.f90 
program resource_drift_report_demo
    implicit none
    integer :: baseline
    integer :: current
    integer :: drift
    character(len=8) :: status

    baseline = 100
    current = 
    drift = current - baseline
    if (drift >= 25) then
        status = 'high'
    else if (drift >= 8) then
        status = 'elevated'
    else
        status = 'normal'
    end if
    print '(A, I0, 1X, A, I0, 1X, A)', 'current=', current, 'drift=', drift, trim(status)
end program resource_drift_report_demo

program resource_drift_report_demo
    implicit none
    integer :: baseline
    integer :: current
    integer :: drift
    character(len=8) :: status

    baseline = 100
    current = 
    drift = current - baseline
    if (drift >= 25) then
        status = 'high'
    else if (drift >= 8) then
        status = 'elevated'
    else
        status = 'normal'
    end if
    print '(A, I0, 1X, A, I0, 1X, A)', 'current=', current, 'drift=', drift, trim(status)
end program resource_drift_report_demo

program resource_drift_report_demo
    implicit none
    integer :: baseline
    integer :: current
    integer :: drift
    character(len=8) :: status

    baseline = 100
    current = 
    drift = current - baseline
    if (drift >= 25) then
        status = 'high'
    else if (drift >= 8) then
        status = 'elevated'
    else
        status = 'normal'
    end if
    print '(A, I0, 1X, A, I0, 1X, A)', 'current=', current, 'drift=', drift, trim(status)
end program resource_drift_report_demo
baseline The baseline is fixed so the diagnostic is deterministic and replay-friendly.
drift `current - baseline` produces the scalar signal that drives the label.
diagnostic row The print line exposes the reading, derived drift, and status.