[BACK]Return to driver_for_own_start_system.ads CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / PHC / Ada / Main

File: [local] / OpenXM_contrib / PHC / Ada / Main / driver_for_own_start_system.ads (download)

Revision 1.1, Sun Oct 29 17:45:23 2000 UTC (23 years, 7 months ago) by maekawa
Branch point for: MAIN

Initial revision

with text_io;                            use text_io;
with Standard_Complex_Poly_Systems;      use Standard_Complex_Poly_Systems;
with Standard_Complex_Solutions;         use Standard_Complex_Solutions;

procedure Driver_for_Own_Start_System
             ( file : in file_type; p : in Poly_Sys;
               q : out Poly_Sys; qsols : in out Solution_List );

-- DESCRIPTION :
--   This procedure implements an interactive driver for reading
--   a start system delivered by user.

-- ON ENTRY :
--   file      to write diagnostics on;
--   p         a polynomial system.

-- ON RETURN :
--   q         a start system based on the chosen root count;
--   qsols     the solutions of q.