|
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: 1031 (0x407)
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 Io;
with Calendar;
procedure Report_Times (Header : in String;
Starting_Wall_Clock_Time : in Calendar.Time;
Ending_Wall_Clock_Time : in Calendar.Time;
Starting_Cpu_Time : in Duration;
Ending_Cpu_Time : in Duration) is
--
package Duration_Io is new Io.Fixed_Io (Duration);
--
function "-" (This_Time : in Calendar.Time; That_Time : in Calendar.Time)
return Duration renames Calendar."-";
--
Emphasis : constant String := "***** ";
Indent : constant String := " ";
--
begin
Io.New_Line;
Io.Put_Line (Emphasis & Header);
Io.Put (Emphasis & Indent & "WALL-CLOCK TIME (IN SECONDS): ");
Duration_Io.Put (Ending_Wall_Clock_Time - Starting_Wall_Clock_Time);
Io.New_Line;
Io.Put (Emphasis & Indent & "CPU TIME (IN SECONDS) : ");
Duration_Io.Put (Ending_Cpu_Time - Starting_Cpu_Time);
Io.New_Line (2);
end Report_Times;