Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Matrices/multprec_complex_vector_tools.adb, Revision 1.1.1.1
1.1 maekawa 1: with Multprec_Complex_Number_Tools; use Multprec_Complex_Number_Tools;
2:
3: package body Multprec_Complex_Vector_Tools is
4:
5: function Create ( v : Standard_Complex_Vectors.Vector )
6: return Multprec_Complex_Vectors.Vector is
7:
8: res : Multprec_Complex_Vectors.Vector(v'range);
9:
10: begin
11: for i in v'range loop
12: res(i) := Create(v(i));
13: end loop;
14: return res;
15: end Create;
16:
17: procedure Set_Size ( v : in out Multprec_Complex_Vectors.Vector;
18: size : in natural ) is
19: begin
20: for i in v'range loop
21: Set_Size(v(i),size);
22: end loop;
23: end Set_Size;
24:
25: end Multprec_Complex_Vector_Tools;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>