1package Vect9_Pkg is
2
3   type Unit is array (1 .. 4) of Float;
4   for Unit'Alignment use 32;
5   pragma Machine_Attribute (Unit, "vector_type");
6   pragma Machine_Attribute (Unit, "may_alias");
7
8   Zero_Unit : constant Unit := (others => 0.0);
9
10   function Mul (X : in Unit; Y : in Unit) return Unit;
11   function "+"(Left, Right : Unit) return Unit;
12   function "*"(Left, Right : Unit) return Unit;
13
14   type Unit_Vector is array (Positive range <>) of Unit;
15   type Vector_Access is access all Unit_Vector;
16
17end Vect9_Pkg;
18