package Test_PentDobl_Vectors is

-- DESCRIPTION :
--   Tests vectors in penta double precision.

  procedure Test_Penta_Double_Vectors;

  -- DESCRIPTION :
  --   Prompts the user for a dimension and writes then
  --   a randomly generated complex vector in penta double precision.

  procedure Test_Penta_Double_Complex_Vectors;

  -- DESCRIPTION :
  --   Prompts for a dimension and generates random complex vectors
  --   in penta double precision.

  procedure Main;

  -- DESCRIPTION :
  --   Displays a menu and prompts for a test.

end Test_PentDobl_Vectors;
