with Standard_Floating_Numbers;          use Standard_Floating_Numbers;
with Multprec_Floating_Numbers;          use Multprec_Floating_Numbers;

package body Multprec_Complex_Number_Tools is

  function Create ( c : Standard_Complex_Numbers.Complex_Number )
                  return Multprec_Complex_Numbers.Complex_Number is

    cre : double_float := Standard_Complex_Numbers.REAL_PART(c);
    cim : double_float := Standard_Complex_Numbers.IMAG_PART(c);
    rre : Floating_Number := Multprec_Floating_Numbers.Create(cre);
    rim : Floating_Number := Multprec_Floating_Numbers.Create(cim);
    res : Multprec_Complex_Numbers.Complex_Number
        := Multprec_Complex_Numbers.Create(rre,rim);

  begin
    Clear(rre); Clear(rim);
    return res;
  end Create;

  procedure Set_Size ( c : in out Multprec_Complex_Numbers.Complex_Number;
                       size : in natural ) is

    cre : Floating_Number := Multprec_Complex_Numbers.REAL_PART(c);
    cim : Floating_Number := Multprec_Complex_Numbers.IMAG_PART(c);

  begin
    Set_Size(cre,size);
    Set_Size(cim,size);
    Multprec_Complex_Numbers.Clear(c);
    c := Multprec_Complex_Numbers.Create(cre,cim);
    Clear(cre); Clear(cim);
  end Set_Size;

end Multprec_Complex_Number_Tools;