![]() ![]() | ![]() |
File: [local] / OpenXM_contrib / PHC / Ada / Continuation / bablpoco.adb (download)
Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:22 2000 UTC (23 years, 10 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 Black_Polynomial_Continuations; use Black_Polynomial_Continuations; procedure bablpoco ( infilename,outfilename : in string ) is infile,outfile : file_type; poco : duration; begin if infilename /= "" then Open_Input_File(infile,infilename); else new_line; put_line("Reading the name of the input file."); Read_Name_and_Open_File(infile); end if; Create_Output_File(outfile,outfilename); Black_Box_Polynomial_Continuation(infile,outfile,poco); Close(infile); Close(outfile); end bablpoco;