DataMuseum.dk

top - metrics - download

    Length: 1304 (0x518)
    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⟧ 

TextFile

with Calendar;
use Calendar;
with B000002a;  -- Track with covariance matrix - Float 6 digits
with B000002b;  -- Track with covariance matrix - Float 6 digits - Suppress
with Text_Io;

procedure B000002m is

    --  This is the main procedure for executing the Track Using
    --  Covariance Matrix programs with 6 digits of precision.
    --  The program is called once  with no Suppress checking and
    --  once with Suppress checking.  The execution results are printed.

    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 -- B000002

    Text_Io.Put_Line ("B000002  application program, tracker");
    Text_Io.Put_Line (B000002a.Title);
    B000002a.Start (10000, Execution_Time);
    Report_Time (Execution_Time, 10000);

    Text_Io.Put_Line (B000002b.Title);
    B000002b.Start (10000, Execution_Time);
    Report_Time (Execution_Time, 10000);
end B000002m;