Return to ts_homline.adb CVS log | Up to [local] / OpenXM_contrib / PHC / Ada / Homotopy |
File: [local] / OpenXM_contrib / PHC / Ada / Homotopy / ts_homline.adb (download)
Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:23 2000 UTC (23 years, 8 months ago) by maekawa
Import the second public release of PHCpack. OKed by Jan Verschelde. |
with text_io; use text_io; with Standard_Complex_Poly_Systems; use Standard_Complex_Poly_Systems; with Standard_Complex_Poly_Systems_io; use Standard_Complex_Poly_Systems_io; with Homotopy_Evaluator_Packages; procedure ts_homline is -- DESCRIPTION : -- Test the creation of an inline evaluator. lp,lq : Link_to_Poly_Sys; begin new_line; put_line("Interactive testing of the creation of an inline evaluator."); new_line; put_line("Reading the target system"); get(lp); new_line; put_line("Reading the start system"); get(lq); new_line; Homotopy_Evaluator_Packages.Create(lp.all,lq.all); end ts_homline;