DataMuseum.dk

top - metrics - download

    Length: 702 (0x2be)
    Types: TextFile
    Names: »B«

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧ 

TextFile

--
-- This program measures the time required for the adding of the
-- elements of a large integer vector
--

with Instrument;
use Instrument;

procedure Viada1 is

    Vector_Size : constant Positive := 1000;

    type Vector is array (1 .. Vector_Size) of Integer;

    V1, V2 : Vector := (others => 1);
    Vector_Result : Vector := (others => 0);

begin
    Start ("VIADA1", "Vector integer addition (control)");

    for I in 1 .. 1000 loop

        -- Add vector elements
        for N in Vector'Range loop
            --    vector_result (n) := v1(n) + v2(n);     -- included in test version
            Vector_Result (N) := Ident_Int (N);
        end loop;

    end loop;
    Stop;

end Viada1;