Return to ts_drivscal.adb CVS log | Up to [local] / OpenXM_contrib / PHC / Ada / Homotopy |
File: [local] / OpenXM_contrib / PHC / Ada / Homotopy / ts_drivscal.adb (download)
Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:23 2000 UTC (23 years, 11 months ago) by maekawa
Import the second public release of PHCpack. OKed by Jan Verschelde. |
with text_io; use text_io; with Communications_with_User; use Communications_with_User; with Standard_Complex_Vectors; use Standard_Complex_Vectors; with Standard_Complex_Poly_Systems; use Standard_Complex_Poly_Systems; with Standard_Complex_Poly_Systems_io; use Standard_Complex_Poly_Systems_io; with Drivers_for_Scaling; use Drivers_for_Scaling; procedure ts_drivscal is -- DESCRIPTION : -- Calls the driver routine to scaling a polynomial system. file : file_type; lp : Link_to_Poly_Sys; scvc : Link_to_Vector; bas : natural := 2; begin new_line; put_line("Test on scaling polynomial systems."); new_line; get(lp); new_line; put_line("Reading the name of the output file."); Read_Name_and_Create_File(file); Driver_for_Scaling(file,lp.all,bas,scvc); end ts_drivscal;