with Test_PentDobl_Singular_Values;

procedure ts_pdsvd is

-- DESCRIPTION :
--   Calls the main interactive test on the Singular Value Decomposition
--   in penta double precision.

begin
  Test_PentDobl_Singular_Values.Main;
end ts_pdsvd;
