package body Mccabe_Cyclomatic_Complexity is

    procedure Of_Any_Program_Unit
                 (Pi : in Predicates_Count; Vg : in out Number) is
    begin
        -- Of_Any_Program_Unit

        --** 10/25/85 by J. Margono
        Vg := Number (Pi + 1);

    end Of_Any_Program_Unit;

end Mccabe_Cyclomatic_Complexity;