![]() ![]() | ![]() |
File: [local] / OpenXM_contrib / PHC / Ada / Continuation / scanners_for_continuation.ads (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 Standard_Complex_Numbers; use Standard_Complex_Numbers; package Scanners_for_Continuation is -- DESCRIPTION : -- This package provides scanning procedures for reading the -- input data for polynomial continuation from file. procedure Scan_Homotopy_Parameters ( file : in file_type; k : out natural; a : out Complex_Number ); -- DESCRIPTION : -- Scans the file for the homotopy parameters k and a. -- If they are not found, then both output parameters are zero. procedure Scan_Continuation_Parameters ( file : in file_type ); -- DESCRIPTION : -- Scans the file for the continuation parameters. -- If no continuation parameters are given, then nothing happens. procedure Scan_Output_Parameter ( file : in file_type; op : out natural ); -- DESCRIPTION : -- Scans the file for the output parameter (op) of the continuation. -- If no output code is given, then nothing happens. end Scanners_for_Continuation;