Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Matrices/multprec_complex_vector_tools.adb, Revision 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>