C
C     SUBROUTINE TO GATHER TIMING STATISTICS ABOUT A PROGRAM
C     ON THE DAWS.
C     CALL STATS TO START GATHERING STATISTICS,
C     CALL STATP TO PRINT THEM
C
C     FILLS A 1024 WORD ARRAY WITH "TIMEIT" INFORMATION
C
      SUBROUTINE STATS
	COMMON /TIMEIT/TASK,IARRAY,IDATE,ITIME
      LOGICAL*1 TASK(6)
      INTEGER TIMEIT
      LOGICAL*1 IDATE(9),ITIME(8)
      DIMENSION ITSK(16)
      INTEGER K1,IARRAY(1024)
      INTEGER*4 J,K
      EQUIVALENCE (K,K1)
      CALL GETTSK(ITSK)
      CALL DATE(IDATE)
      CALL TIME(ITIME)
      CALL R50ASC(6,ITSK,TASK)
      DO 10 I=1,1024
10    IARRAY(I)=0
      I=TIMEIT(IARRAY,1024,0,"177700,1)
      IF (I.LT.1) WRITE (5,11)I
11    FORMAT (' TIMEIT ERROR ',I5)
      RETURN
	END
      SUBROUTINE STATP
	COMMON /TIMEIT/TASK,IARRAY,IDATE,ITIME
      INTEGER K1,IARRAY(1024)
      INTEGER*4 J,K
      EQUIVALENCE (K,K1)
      CALL TIMEST
      WRITE (20,20)TASK,ITIME,IDATE
20    FORMAT(' STATISTICS FOR TASK ',6A1,' RUN AT ',8A1,1X,9A1)
      J=0
      DO 12 I=1,1024
      K1=IARRAY(I)
12    J=J+K
      DO 13 I=1,1024
      K1=IARRAY(I)
      PCT=FLOAT(K)*100./FLOAT(J)
      I1=I-2
13    IF (PCT.NE.0.0) WRITE (20,14)I1,PCT
14    FORMAT (' ADDRESS ',O4,'00 FREQUENCY ',F10.1)
      RETURN
      END