Return to standard_complex_solutions_io.ads CVS log

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

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

1.1       maekawa     1: with text_io;                            use text_io;
                      2: with Standard_Complex_Solutions;         use Standard_Complex_Solutions;
                      3:
                      4: package Standard_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 : in out Solution );
                     26:   procedure get ( file : in file_type; s : in out Solution );
                     27:
                     28:   -- DESCRIPTION :
                     29:   --   The input must contain the following : s.t, s.m and s.v(i),
                     30:   --   a vector of s.n complex numbers
                     31:
                     32:   procedure put ( s : in Solution );
                     33:   procedure put ( file : in file_type; s : in Solution );
                     34:
                     35:   -- DESCRIPTION :
                     36:   --   On the output the following will be written :
                     37:   --   s.t, s.m and s.v, a vector of s.n complex numbers
                     38:
                     39: -- FOR LISTS OF SOLUTIONS :
                     40:
                     41:   procedure get ( sols : in out Solution_List );
                     42:   procedure get ( sols,sols_last : in out Solution_List );
                     43:   procedure get ( len,n : in natural; sols : in out Solution_List );
                     44:   procedure get ( len,n : in natural; sols,sols_last : in out Solution_List );
                     45:   procedure get ( file : in file_type; sols : in out Solution_List );
                     46:   procedure get ( file : in file_type; sols,sols_last : in out Solution_List );
                     47:   procedure get ( file : in file_type; len,n : in natural;
                     48:                   sols : in out Solution_List );
                     49:   procedure get ( file : in file_type; len,n : in natural;
                     50:                   sols,sols_last : in out Solution_List );
                     51:
                     52:   -- DESCRIPTION :
                     53:   --   A solution list will be read.  If the length len and dimension n
                     54:   --   of the list is not supplied, then they will be read first.
                     55:   --   If the parameter sols_last is supplied, then this parameter contains
                     56:   --   the pointer to the last element of the list on return.
                     57:   --   The solutions should be in the appropriate format.
                     58:
                     59:   procedure put ( sols : in Solution_List );
                     60:   procedure put ( len,n : in natural; sols : in Solution_List );
                     61:   procedure put ( file : in file_type; sols : in Solution_List );
                     62:   procedure put ( file : in file_type; len,n : in natural;
                     63:                   sols : in Solution_List );
                     64:
                     65:   -- DESCRIPTION :
                     66:   --   The solutions are written on standard output or on file.
                     67:   --   First the length of the list and the dimension of the solutions
                     68:   --   will be put on file if they are supplied as parameter.
                     69:
                     70: -- USER-FRIENDLY ROUTINES :
                     71:
                     72:   procedure Display_Format;
                     73:
                     74:   -- DESCRIPTION :
                     75:   --   Displays on screen the formatting rules as on-line help facility.
                     76:
                     77:   procedure Read ( sols : in out Solution_List );
                     78:
                     79:   -- DESCRIPTION :
                     80:   --   Reads the solution list from file, displays the formatting information
                     81:   --   in case of exception and let the user try again.
                     82:
                     83: end Standard_Complex_Solutions_io;