with MatrAK; use MatrAK;

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