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;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>