Incident Queue Report - Modern Fortran Programming

A queue report can scan compact severity values, count tickets at or above a selected threshold, and keep a separate high-severity total.

Program

Play the program to choose the minimum severity and inspect the queue counts.

incident_queue_report.f90

program incident_queue_report_demo
    implicit none
    integer :: severities(4)
    integer :: min_severity
    integer :: visible_count
    integer :: high_count
    integer :: i

    severities = [1, 3, 2, 3]
    min_severity = 
    visible_count = 0
    high_count = 0
    do i = 1, 4
        if (severities(i) >= min_severity) then
            visible_count = visible_count + 1
        end if
        if (severities(i) == 3) then
            high_count = high_count + 1
        end if
    end do
    print '(I0, 1X, I0, 1X, I0)', min_severity, visible_count, high_count
end program incident_queue_report_demo

program incident_queue_report_demo
    implicit none
    integer :: severities(4)
    integer :: min_severity
    integer :: visible_count
    integer :: high_count
    integer :: i

    severities = [1, 3, 2, 3]
    min_severity = 
    visible_count = 0
    high_count = 0
    do i = 1, 4
        if (severities(i) >= min_severity) then
            visible_count = visible_count + 1
        end if
        if (severities(i) == 3) then
            high_count = high_count + 1
        end if
    end do
    print '(I0, 1X, I0, 1X, I0)', min_severity, visible_count, high_count
end program incident_queue_report_demo

program incident_queue_report_demo
    implicit none
    integer :: severities(4)
    integer :: min_severity
    integer :: visible_count
    integer :: high_count
    integer :: i

    severities = [1, 3, 2, 3]
    min_severity = 
    visible_count = 0
    high_count = 0
    do i = 1, 4
        if (severities(i) >= min_severity) then
            visible_count = visible_count + 1
        end if
        if (severities(i) == 3) then
            high_count = high_count + 1
        end if
    end do
    print '(I0, 1X, I0, 1X, I0)', min_severity, visible_count, high_count
end program incident_queue_report_demo

threshold count The first guard counts incidents at or above the selected severity.

independent count The high-severity counter is separate from the visible threshold.

loop report The final line reports the selector and both derived counts.