generic

    type Program_Volume is digits <>;
    type Potential_Program_Volume is digits <>;

package Halstead_Program_Level is

    --========================================================================
    -- Halstead L = V* / V
    --========================================================================

    type Result is new Float;
    procedure Of_Any_Program_Unit (V : in Program_Volume;
                                   V_Star : in Potential_Program_Volume;
                                   L : out Result);

end Halstead_Program_Level;