|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 1239 (0x4d7)
Types: TextFile
Names: »B«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
with Calendar;
use Calendar;
with B000003a; -- Track with covariance matrix - 9 digits
with B000003b; -- Track with covariance matrix - 9 digits suppress
with Text_Io;
procedure B000003m is
-- This procedure is the main procedure for executing the Track with
-- covariance matrix using 9 digits floating point arithmetic. A
-- version of the program is run with and without Pragma Suppress.
Execution_Time : Duration;
package Flt_Io is new Text_Io.Float_Io (Float);
procedure Report_Time (Time : Duration; Repetitions : Integer) is
begin -- REPORT_TIME
Text_Io.Put_Line (" ");
Text_Io.Put ("Time Required : ");
Flt_Io.Put (Float (Time));
Text_Io.Put (" Seconds for ");
Text_Io.Put (Integer'Image (Repetitions));
Text_Io.Put_Line (" Repetitions ");
Text_Io.Put_Line (" ");
end Report_Time;
begin -- B000003
Text_Io.Put_Line ("B000003 application program, tracker");
Text_Io.Put_Line (B000003a.Title);
B000003a.Start (10000, Execution_Time);
Report_Time (Execution_Time, 10000);
Text_Io.Put_Line (B000003b.Title);
B000003b.Start (10000, Execution_Time);
Report_Time (Execution_Time, 10000);
end B000003m;