[BACK]Return to driver_for_polyhedral_continuation.ads CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / PHC / Ada / Root_Counts / Implift

File: [local] / OpenXM_contrib / PHC / Ada / Root_Counts / Implift / driver_for_polyhedral_continuation.ads (download)

Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:28 2000 UTC (23 years, 7 months ago) by maekawa
Branch: PHC, MAIN
CVS Tags: v2, maekawa-ipv6, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, HEAD
Changes since 1.1: +0 -0 lines

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;

procedure Driver_for_Polyhedral_Continuation
               ( file : in file_type; p : in Poly_Sys; k : in natural;
                 byebye : in boolean;
                 q : out Poly_Sys; qfile,solsfile : in out file_type;
                 tosolve,ranstart,contrep : out boolean );

-- DESCRIPTION :
--   Prepares the settings for polyhedral continuation.

-- ON ENTRY :
--   file        output file, must be opened for output;
--   p           a polynomial system;
--   k           if k > 0, then q will not be written on file;
--   byebye      if true, then a bye-bye message will appear on screen,
--               if false, then no bye-bye.

-- ON RETURN :
--   q           system to solve, if tosolve=true;
--   qfile       output file for q, is opened for output;
--   solsfile    output file for solutions of q, is opened for output;
--   tosolve     true if polyhedral will be applied, false otherwise;
--   ranstart    true if q is random coefficient start system, false otherwise;
--   contrep     true if output information is wanted during continuation.