Return to multprec_complex_number_tools.adb CVS log

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

Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Numbers/multprec_complex_number_tools.adb, Revision 1.1

1.1     ! maekawa     1: with Standard_Floating_Numbers;          use Standard_Floating_Numbers;
        !             2: with Multprec_Floating_Numbers;          use Multprec_Floating_Numbers;
        !             3:
        !             4: package body Multprec_Complex_Number_Tools is
        !             5:
        !             6:   function Create ( c : Standard_Complex_Numbers.Complex_Number )
        !             7:                   return Multprec_Complex_Numbers.Complex_Number is
        !             8:
        !             9:     cre : double_float := Standard_Complex_Numbers.REAL_PART(c);
        !            10:     cim : double_float := Standard_Complex_Numbers.IMAG_PART(c);
        !            11:     rre : Floating_Number := Multprec_Floating_Numbers.Create(cre);
        !            12:     rim : Floating_Number := Multprec_Floating_Numbers.Create(cim);
        !            13:     res : Multprec_Complex_Numbers.Complex_Number
        !            14:         := Multprec_Complex_Numbers.Create(rre,rim);
        !            15:
        !            16:   begin
        !            17:     Clear(rre); Clear(rim);
        !            18:     return res;
        !            19:   end Create;
        !            20:
        !            21:   procedure Set_Size ( c : in out Multprec_Complex_Numbers.Complex_Number;
        !            22:                        size : in natural ) is
        !            23:
        !            24:     cre : Floating_Number := Multprec_Complex_Numbers.REAL_PART(c);
        !            25:     cim : Floating_Number := Multprec_Complex_Numbers.IMAG_PART(c);
        !            26:
        !            27:   begin
        !            28:     Set_Size(cre,size);
        !            29:     Set_Size(cim,size);
        !            30:     Multprec_Complex_Numbers.Clear(c);
        !            31:     c := Multprec_Complex_Numbers.Create(cre,cim);
        !            32:     Clear(cre); Clear(cim);
        !            33:   end Set_Size;
        !            34:
        !            35: end Multprec_Complex_Number_Tools;