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

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;