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