File: [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Numbers / multprec_floating_numbers_io.ads (download)
Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:25 2000 UTC (23 years, 8 months ago) by maekawa
Branch: PHC, MAIN
CVS Tags: v2, maekawa-ipv6, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, HEAD Changes since 1.1: +0 -0
lines
Import the second public release of PHCpack.
OKed by Jan Verschelde.
|
with text_io; use text_io;
with Multprec_Floating_Numbers; use Multprec_Floating_Numbers;
package Multprec_Floating_Numbers_io is
-- DESCRIPTION :
-- Basic i/o routines for multi-precision floating numbers.
procedure get ( f : in out Floating_Number );
procedure get ( file : in file_type; f : in out Floating_Number );
procedure put ( f : in Floating_Number );
procedure put ( file : in file_type; f : in Floating_Number );
procedure put ( f : in Floating_Number; fore,aft,exp : in natural );
procedure put ( file : in file_type;
f : in Floating_Number; fore,aft,exp : in natural );
-- DESCRIPTION :
-- Formatted output of a floating-point number.
-- ON ENTRY :
-- f floating-point number;
-- fore number of places before the decimal point, including sign,
-- additional spaces will be introducted;
-- aft number of places after the decimal point,
-- if the fraction of f is longer, then it will be truncated,
-- otherwise zeros are introduced;
-- exp number of places for the exponent, including sign,
-- if the exponent of f is longer, then it will be printed
-- in full, otherwise zeros are introducted.
procedure put ( f : in Floating_Number; dp : in natural );
procedure put ( file : in file_type;
f : in Floating_Number; dp : in natural );
-- DESCRIPTION : put(f,dp) = put(f,dp,dp,dp).
end Multprec_Floating_Numbers_io;