package Test_QuadDobl_Vectors is

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

  procedure Test_Quad_Double_Vectors;

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

  procedure Test_Quad_Double_Complex_Vectors;

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

  procedure Test_Convertors;

  -- DESCRIPTION :
  --   Promps for a dimension, generates a random complex vector
  --   in quad double precision and converts this vector
  --   to double precision and multiprecision.

  procedure Main;

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

end Test_QuadDobl_Vectors;
