File: [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Numbers / standard_floating_numbers_io.adb (download)
Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:26 2000 UTC (23 years, 9 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.
|
-- try to read in this number : 2.37151309632067E-27
with text_io;
package body Standard_Floating_Numbers_io is
package single_float_io is new text_io.float_io(single_float);
package double_float_io is new text_io.float_io(double_float);
procedure get ( f : in out single_float ) is
begin
single_float_io.get(f);
end get;
procedure get ( file : in file_type; f : in out single_float ) is
begin
single_float_io.get(file,f);
end get;
procedure get ( f : in out double_float ) is
begin
double_float_io.get(f);
end get;
procedure get ( file : in file_type; f : in out double_float ) is
begin
double_float_io.get(file,f);
end get;
procedure put ( f : in single_float ) is
begin
single_float_io.put(f);
end put;
procedure put ( file : in file_type; f : in single_float ) is
begin
single_float_io.put(file,f);
end put;
procedure put ( f : in double_float ) is
begin
double_float_io.put(f);
end put;
procedure put ( file : in file_type; f : in double_float ) is
begin
double_float_io.put(file,f);
end put;
procedure put ( f : in single_float; fore,aft,exp : in natural ) is
begin
single_float_io.put(f,fore,aft,exp);
end put;
procedure put ( f : in double_float; fore,aft,exp : in natural ) is
begin
double_float_io.put(f,fore,aft,exp);
end put;
procedure put ( file : in file_type;
f : in single_float; fore,aft,exp : in natural ) is
begin
single_float_io.put(file,f,fore,aft,exp);
end put;
procedure put ( file : in file_type;
f : in double_float; fore,aft,exp : in natural ) is
begin
double_float_io.put(file,f,fore,aft,exp);
end put;
procedure put ( f : in double_float; dp : in natural ) is
begin
double_float_io.put(f,dp,dp,dp);
end put;
procedure put ( file : in file_type;
f : in double_float; dp : in natural ) is
begin
double_float_io.put(file,f,dp,dp,dp);
end put;
end Standard_Floating_Numbers_io;