with text_io; use text_io; with Multprec_Complex_Numbers; use Multprec_Complex_Numbers; package Multprec_Complex_Numbers_io is -- DESCRIPTION : -- This package provides input/output routines for complex numbers. -- A complex number is displayed as two floating numbers, representing -- respectively the real and imaginary part of the complex number. procedure get ( x : in out Complex_Number ); procedure get ( file : in file_type; x : in out Complex_Number ); procedure put ( x : in Complex_Number ); procedure put ( file : in file_type; x : in Complex_Number ); procedure put ( c : in Complex_Number; fore,aft,exp : in natural ); procedure put ( file : in file_type; c : in Complex_Number; fore,aft,exp : in natural ); procedure put ( c : in Complex_Number; dp : in natural ); procedure put ( file : in file_type; c : in Complex_Number; dp : in natural ); end Multprec_Complex_Numbers_io;