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     ! 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;