Return to standard_floating_numbers_io.ads CVS log | Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Numbers |
File: [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Numbers / standard_floating_numbers_io.ads (download)
Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:26 2000 UTC (23 years, 9 months ago) by maekawa
Import the second public release of PHCpack. OKed by Jan Verschelde. |
with text_io; use text_io; with Standard_Floating_Numbers; use Standard_Floating_Numbers; package Standard_Floating_Numbers_io is -- DESCRIPTION : -- This package defines output of standard floating numbers. procedure get ( f : in out single_float ); procedure get ( file : in file_type; f : in out single_float ); procedure get ( f : in out double_float ); procedure get ( file : in file_type; f : in out double_float ); -- DESCRIPTION : -- Reads a floating-point number from standard input or from file. procedure put ( f : in single_float ); procedure put ( file : in file_type; f : in single_float ); procedure put ( f : in double_float ); procedure put ( file : in file_type; f : in double_float ); procedure put ( f : in double_float; fore,aft,exp : in natural ); procedure put ( file : in file_type; f : in double_float; fore,aft,exp : in natural ); -- DESCRIPTION : -- Writes a floating-point number on standard output or on file. -- The triplet (fore,aft,exp) determines the output format, i.e.: -- they indicate the number of decimal places before and after -- the decimal point and the number of decimal places in the exponent. procedure put ( f : in double_float; dp : in natural ); procedure put ( file : in file_type; f : in double_float; dp : in natural ); -- DESCRIPTION : put(f,dp) = put(f,dp,dp,dp). end Standard_Floating_Numbers_io;