Programmer's ROM - The Computer Language Library/programmersrom.iso/ada/piwg/a000103.ada

Text File | 1988-05-03 | 1.8 KB | 100 lines

-- This is a procedure that calls most of the timing procedures 10 times
--    The task timing is not set up for use in a loop

with A000049 ; -- must be used with A000043, PIWG_IO to disk
with A000091 ;
--with A000092 ; -- comment out  or  provide host math library in A000092.ADA
with A000093 ;
with A000094 ;
with C000001 ;
with C000002 ;
with C000003 ;
with D000001 ;
with D000002 ;
with D000003 ;
with D000004 ;
with E000001 ;
with E000002 ;
with E000004 ;
with F000001 ;
with F000002 ;
with G000001 ;
with G000002 ;
with G000003 ;
with G000004 ;
with G000005 ;
with G000006 ;
with G000007 ;
with L000001 ;
with L000002 ;
with L000003 ;
with P000001 ;
with P000002 ;
with P000003 ;
with P000004 ;
with P000005 ;
with P000006 ;
with P000007 ;
with P000010 ;
with P000011 ;
with P000012 ;
with P000013 ;
with T000001 ;
with T000002 ;
with T000003 ;
with T000004 ;
with T000005 ;
with T000006 ;

procedure A000103 is
begin

  A000091 ;
--  A000092 ; -- comment out  or  provide host math routines
  A000093 ;
  A000094 ;
  C000001 ;
  C000002 ;
  C000003 ;
  for I in 1..10 loop -- data collected on disk, then averaged
    D000001 ;
    D000002 ;
    D000003 ;
    D000004 ;
    E000001 ;
    E000002 ;
    E000004 ;
    F000001 ;
    F000002 ;
    G000001 ;
    G000002 ;
    G000003 ;
    G000004 ;
    G000005 ;
    G000006 ;
    G000007 ;
    L000001 ;
    L000002 ;
    L000003 ;
    P000001 ;
    P000002 ;
    P000003 ;
    P000004 ;
    P000005 ;
    P000006 ;
    P000007 ;
    P000010 ;
    P000011 ;
    P000012 ;
    P000013 ;
  end loop ;
  T000001 ;
  T000002 ;
  T000003 ;
  T000004 ;
  T000005 ;
  T000006 ;
--  T000007 ; -- only a check. it will not work on some hosts.
  A000049 ; -- write out timing report
end ;