with text_io; use text_io; with Standard_Complex_Numbers; use Standard_Complex_Numbers; package Standard_Complex_Numbers_io is -- DESCRIPTION : -- This package provides io-routines for standard complex numbers. procedure get ( c : in out Complex_Number ); procedure get ( file : in file_type; c : in out Complex_Number ); procedure put ( c : in Complex_Number ); procedure put ( file : in file_type; c : 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 Standard_Complex_Numbers_io;