package body Halstead_Difficulty_Level is

    procedure Of_Any_Program_Unit (L : in Program_Level; D : out Result) is

    begin
        -- Of_Any_Program_Unit

        D := 1.0 / Result (L);

        --** 10/25/85 by J.Margono
    exception
        when others =>
            D := 0.0;

    end Of_Any_Program_Unit;

end Halstead_Difficulty_Level;