![]() ![]() | ![]() |
File: [local] / OpenXM_contrib / PHC / Ada / Continuation / postpoco.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 valipoco; procedure postpoco is pocofile,resultfile : file_type; begin new_line; put_line("Reading name of the output file of poco."); Read_Name_and_Open_File(pocofile); new_line; put_line("Reading name of output file."); Read_Name_and_Create_File(resultfile); new_line; put_line("See output file for results..."); new_line; valipoco(pocofile,resultfile); end postpoco;