File: [local] / OpenXM_contrib / PHC / Ada / Schubert / ts_pieri.adb (download)
Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:32 2000 UTC (23 years, 8 months ago) by maekawa
Branch: PHC, MAIN
CVS Tags: v2, maekawa-ipv6, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, HEAD Changes since 1.1: +0 -0
lines
Import the second public release of PHCpack.
OKed by Jan Verschelde.
|
with text_io,integer_io; use text_io,integer_io;
with Communications_with_User; use Communications_with_User;
with Driver_for_Pieri_Homotopies;
with Driver_for_Quantum_Pieri;
procedure ts_pieri is
-- DESCRIPTION :
-- Simply calls the driver for the Pieri homotopies.
procedure Main is
n,d,q : natural;
file : file_type;
begin
new_line;
put_line("Pieri Homotopies for linear subspace intersections.");
new_line;
put_line("Reading the name of the output file.");
Read_Name_and_Create_File(file);
new_line;
put("Give n = m+p, dimension of working space : "); get(n);
put("Give p, the dimension of the solution planes : "); get(d);
put("Give q, degree of map (q=0 : simple Pieri) : "); get(q);
put(file,"Pieri Homotopies for n = "); put(file,n,1);
put(file," p = "); put(file,d,1);
put(file," and q = "); put(file,q,1); new_line(file);
if q = 0
then Driver_for_Pieri_Homotopies(file,n,d);
else Driver_for_Quantum_Pieri(file,n,d,q);
end if;
end Main;
begin
Main;
end ts_pieri;