Return to multprec_complex_solutions_io.ads CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Homotopy

Annotation of OpenXM_contrib/PHC/Ada/Homotopy/multprec_complex_solutions_io.ads, Revision 1.1.1.1

1.1       maekawa     1: with text_io;                            use text_io;
                      2: with Multprec_Complex_Solutions;         use Multprec_Complex_Solutions;
                      3:
                      4: package Multprec_Complex_Solutions_io is
                      5:
                      6: -- DESCRIPTION :
                      7: --   This routines provides routines for input and output of solutions.
                      8:
                      9: -- FOR SOLUTION VECTORS ONLY :
                     10:
                     11:   procedure get_vector ( s : in out Solution );
                     12:   procedure get_vector ( file : in file_type; s : in out Solution );
                     13:
                     14:   -- DESCRIPTION :
                     15:   --   The input must contain the solution vector.
                     16:
                     17:   procedure put_vector ( s : in Solution );
                     18:   procedure put_vector ( file : in file_type; s : in Solution );
                     19:
                     20:   -- DESCRIPTION :
                     21:   --   On the output the solution vector will be written.
                     22:
                     23: -- FOR SOLUTIONS :
                     24:
                     25:   procedure get ( s : out Solution );
                     26:   procedure get ( n : in natural; ls : out Link_to_Solution );
                     27:   procedure get ( file : in file_type; s : out Solution );
                     28:   procedure get ( file : in file_type;
                     29:                   n : in natural; ls : out Link_to_Solution );
                     30:
                     31:   -- DESCRIPTION :
                     32:   --   The input must contain the following : s.t, s.m and s.v(i),
                     33:   --   a vector of s.n complex numbers
                     34:
                     35:   procedure put ( s : in Solution );
                     36:   procedure put ( file : in file_type; s : in Solution );
                     37:
                     38:   -- DESCRIPTION :
                     39:   --   On the output the following will be written :
                     40:   --   s.t, s.m and s.v, a vector of s.n complex numbers
                     41:
                     42: -- FOR LISTS OF SOLUTIONS :
                     43:
                     44:   procedure get ( sols : in out Solution_List );
                     45:   procedure get ( sols,sols_last : in out Solution_List );
                     46:   procedure get ( len,n : in natural; sols : in out Solution_List );
                     47:   procedure get ( len,n : in natural; sols,sols_last : in out Solution_List );
                     48:   procedure get ( file : in file_type; sols : in out Solution_List );
                     49:   procedure get ( file : in file_type; sols,sols_last : in out Solution_List );
                     50:   procedure get ( file : in file_type; len,n : in natural;
                     51:                   sols : in out Solution_List );
                     52:   procedure get ( file : in file_type; len,n : in natural;
                     53:                   sols,sols_last : in out Solution_List );
                     54:
                     55:   -- DESCRIPTION :
                     56:   --   A solution list will be read.  If the length len and dimension n
                     57:   --   of the list is not supplied, then they will be read first.
                     58:   --   If the parameter sols_last is supplied, then this parameter contains
                     59:   --   the pointer to the last element of the list on return.
                     60:   --   The solutions should be in the appropriate format.
                     61:
                     62:   procedure put ( sols : in Solution_List );
                     63:   procedure put ( len,n : in natural; sols : in Solution_List );
                     64:   procedure put ( file : in file_type; sols : in Solution_List );
                     65:   procedure put ( file : in file_type; len,n : in natural;
                     66:                   sols : in Solution_List );
                     67:
                     68:   -- DESCRIPTION :
                     69:   --   The solutions are written on standard output or on file.
                     70:   --   First the length of the list and the dimension of the solutions
                     71:   --   will be put on file if they are supplied as parameter.
                     72:
                     73: -- USER-FRIENDLY ROUTINES :
                     74:
                     75:   procedure Display_Format;
                     76:
                     77:   -- DESCRIPTION :
                     78:   --   Displays on screen the formatting rules as on-line help facility.
                     79:
                     80:   procedure Read ( sols : in out Solution_List );
                     81:
                     82:   -- DESCRIPTION :
                     83:   --   Reads the solution list from file, displays the formatting information
                     84:   --   in case of exception and let the user try again.
                     85:
                     86: end Multprec_Complex_Solutions_io;