Return to generic_complex_numbers_io.adb CVS log | Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Numbers |
File: [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Numbers / generic_complex_numbers_io.adb (download)
Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:25 2000 UTC (23 years, 10 months ago) by maekawa
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;