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;