      CHARACTER RECTYPE*4,TELFMT*4,FLTID*4,TFLAG*4,DSN*50
      INTEGER*2 EDRTIME(6),DATATYPE(2),MODCNT(3),WORD32(2)
      INTEGER*4 VAL(15)
      REAL*4 HDR(32)
      REAL*8 DD,TD
C
      EQUIVALENCE (HDR(1),RECTYPE),      (HDR(2),TELFMT),
     &            (HDR(3),FLTID),        (HDR(4),EDRTIME(1)),
     &            (HDR(7),DD),           (HDR(9),TD),
     &            (HDR(11),TFLAG),       (HDR(12),TIMEPD),
     &            (HDR(13),MODCNT(1)),   (HDR(17),DATATYPE(1)),
     &            (HDR(32),WORD32(1))
C
      WRITE(6,*)
      WRITE(6,*) 'ENTER INPUT SUMMARY DATASET'
      READ(5,'(A)') DSN
      OPEN(69,FILE=DSN,STATUS='OLD',FORM='UNFORMATTED',
     & RECORDTYPE='VARIABLE',RECL=8191,READONLY)
C
   10 CONTINUE
       READ(69,END=100,ERR=10) HDR
       NCNT = NCNT + 1
       IF (DATATYPE(1).EQ.8) THEN
        WRITE(6,801) NCNT,WORD32(1),RECTYPE,TELFMT,FLTID,EDRTIME
       ELSE IF (DATATYPE(1).EQ.1) THEN
C        WRITE(6,800) NCNT,WORD32(1),RECTYPE,TELFMT,FLTID,EDRTIME,
C     &               DD,TD,TFLAG,TIMEPD
c        WRITE(6,802) NCNT,WORD32(1),RECTYPE,TELFMT,FLTID,EDRTIME,
c     &  ZEXT(MODCNT(1)),MODCNT(2),MODCNT(3)
        WRITE(6,803) NCNT,WORD32(1),RECTYPE,TELFMT,FLTID,EDRTIME,
     &               DATATYPE(1)
       END IF
      GOTO 10
  100 CONTINUE
      CLOSE(71)
      WRITE(6,*)
      WRITE(6,'(1X,''NUMBER OF RECORDS: '',I5)') NCNT
      WRITE(6,*)
C
      STOP
  800 FORMAT(2(1X,I5),3(1X,A4),1X,I2,1X,I3,3(1X,I2),1X,I3,
     &       2(1X,F13.8),1X,A4,1X,F6.2)
  801 FORMAT(2(1X,I5),3(1X,A4),1X,I2,1X,I3,3(1X,I2),1X,I3)
  802 FORMAT(2(1X,I5),3(1X,A4),1X,I2,1X,I3,3(1X,I2),1X,I3,3(1X,I8))
  803 FORMAT(2(1X,I5),3(1X,A4),1X,I2,1X,I3,3(1X,I2),1X,I3,1X,I2)
      END
