File : example_support.ads

with Ada_BLAS.Real;

package Example_Support is
   type Vector is array (Positive range <>) of Float;
   pragma Convention (Fortran, Vector); -- May not be necessary

   type Matrix is array (Positive range <>, Positive range <>) of Float;
   pragma Convention (Fortran, Matrix); -- Necessary

   package Real_BLAS is new Ada_BLAS.Real (
     Float_Type  => Float,
     Index_Type  => Positive,
     Vector_Type => Vector,
     Matrix_Type => Matrix
   );
end Example_Support;