Return to generic_complex_numbers_io.adb CVS log

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

Import the second public release of PHCpack.

OKed by Jan Verschelde.

package body Generic_Complex_Numbers_io is

  use Ring_io;  use Ring_io.Ring;

  procedure get ( x : in out Complex_Number ) is
  begin
    get(Standard_Input,x);
  end get;

  procedure get ( file : in file_type; x : in out Complex_Number ) is

    xre,xim : number;

  begin
    get(file,xre); get(file,xim);
    c := Create(xre,xim);
    Clear(xre); Clear(xim);
  end get;

  procedure put ( x : in Complex_Number ) is
  begin
    put(Standard_Output,x);
  end put;

  procedure put ( file : in file_type; x : in Complex_Number ) is
  begin
    put(file,REAL_PART(x));
    put(file,"  ");
    put(file,IMAG_PART(x));
  end put;

end Generic_Complex_Numbers_io;