
                               					14-Oct-1983 11:36:54	VAX-11 FORTRAN V3.3-45              Page   1
								14-Oct-1983 11:32:16	SYS$SYSROOT:[SDCMARK.JUNK]TEST.FOR;32       

0001          implicit integer (a-z)
0002    	parameter n_times = 20
0003          integer time(2,n_times)
0004     
0005     
0006    c	open a data file to record timing info
0007     
0008          open (unit=13,name='timing',status='new')
0009     
0010    c     get timing info
0011     
0012          do i=1,n_times
0013             status = arc$gettime (time(1,i))
0014             if (.not. status) call lib$signal(%val(status))
0015          end do
0016     
0017    c     print results and stats
0018     
0019          total = 0
0020          maxdif = 0
0021          mindif = 999999
0022          write (13,10)
0023    10    format ('       High Micro         Low Micro',
0024         &'      Difference')
0025     
0026          do i=1,n_times-1
0027             call arc$difftime (time(1,i+1), time(1,i), dif)
0028                write (13,20)
0029         &      time(2,i+1),time(1,i+1),
0030         &      time(2,i),time(1,i), dif
0031    20          format (1x,2z8.8,2x,2z8.8,2x,i8)
0032             if (dif .gt. maxdif) maxdif = dif
0033             if (dif .lt. mindif) mindif = dif
0034             total = total + dif
0035          end do
0036     
0037          avg = total/ (n_times - 1)
0038          write (13,30) maxdif, mindif, avg
0039    30    format (' Time differences'/'   Maximum:',i/
0040         &'   Minimum:',i,/'   Average:',i)
0041     
0042          close (unit=13)
0043     
0044          end

TEST$MAIN                      					14-Oct-1983 11:36:54	VAX-11 FORTRAN V3.3-45              Page   2
								14-Oct-1983 11:32:16	SYS$SYSROOT:[SDCMARK.JUNK]TEST.FOR;32       

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  321   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  1 $PDATA                                 147   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG
  2 $LOCAL                                 252   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG

    Total Space Allocated                  720


ENTRY POINTS

    Address  Type  Name          

  0-00000000       TEST$MAIN     


VARIABLES

    Address  Type  Name              Address  Type  Name              Address  Type  Name              Address  Type  Name          

  2-000000B8  I*4  AVG             2-000000B4  I*4  DIF             2-000000A0  I*4  I               2-000000AC  I*4  MAXDIF        
  2-000000B0  I*4  MINDIF          2-000000A4  I*4  STATUS          2-000000A8  I*4  TOTAL         


ARRAYS

    Address  Type  Name                Bytes  Dimensions

  2-00000000  I*4  TIME                  160  (2, 20)


LABELS

    Address   Label       Address   Label       Address   Label   

  1-00000007  10'       1-0000003F  20'       1-00000052  30'     


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name            Type  Name            Type  Name            Type  Name            Type  Name          

        ARC$DIFFTIME     I*4  ARC$GETTIME           FOR$CLOSE             FOR$OPEN              LIB$SIGNAL    


COMMAND QUALIFIERS

  FORTRAN /LIST/D_LINES TEST

  /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW)
  /DEBUG=(NOSYMBOLS,TRACEBACK)
  /STANDARD=(NOSYNTAX,NOSOURCE_FORM)
  /SHOW=(NOPREPROCESSOR,NOINCLUDE,MAP)
  /F77  /NOG_FLOATING  /I4  /OPTIMIZE  /WARNINGS  /D_LINES  /NOCROSS_REFERENCE  /NOMACHINE_CODE  /CONTINUATIONS=19

TEST$MAIN                      					14-Oct-1983 11:36:54	VAX-11 FORTRAN V3.3-45              Page   3
								14-Oct-1983 11:32:16	SYS$SYSROOT:[SDCMARK.JUNK]TEST.FOR;32       

COMPILATION STATISTICS

  Run Time:           1.16 seconds
  Elapsed Time:       1.53 seconds
  Page Faults:        369
  Dynamic Memory:     122 pages
