with A83_014_Vector; use A83_014_Vector;
     with A83_015_Matrix; use A83_015_Matrix;

     package A83_016_Matrix_Solutions is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     function Least_Squares (
       A :  Matrix_Type;
       B :  Vector_Type )
       return Vector_Type;

--   procedure Singular_Value_Decomposition (
--     U  :     out Matrix_Type;
--     W  :     out Vector_Type;
--     V  :     out Matrix_Type;
--     A  : in      Matrix_Type );
     ----------------------------------------------------------------------
     -- FU-BAR
     ----------------------------------------------------------------------

     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     end A83_016_Matrix_Solutions;