Return to multprec_complex_vector_tools.adb CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Matrices

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;