C
C READ HDR1 RECORD
C
      CHARACTER TFLAG*4,RECTYPE*4,FLTID*4,TIMEFMT*4,TELFMT*4,
     &          RUNTYPE*8,COORD*4,RUNTIME*9,RUNMONTH*4,
     &          ZERODSN*8,SENSDSN*8,ZERONAME*8,SENSNAME*8,
     &          EDRDSN(10)*8,SEDRDSN(6)*8,EDRNAME(10)*8,SEDRNAME(6)*8,
     &          DSN*50
      INTEGER*2 EDRTIME(6),TIME(6),DATAID(2),WORD32(2)
      INTEGER*4 RUNDAY,RUNYEAR,CALDAY
      LOGICAL*1 MAGSYS(32),EDRSYS(32),REC(2272)
      REAL*4 HDR1(100),SUMMARY(568)
C
      EQUIVALENCE (REC(1),SUMMARY(1)),   (HDR1(1),SUMMARY(1)),
     &            (HDR1(1),RECTYPE),     (HDR1(2),TELFMT),
     &            (HDR1(3),FLTID),       (HDR1(4),TIME(1)),
     &            (HDR1(7),RUNYEAR),     (HDR1(8),CALDAY),
     &            (HDR1(9),RUNMONTH),    (HDR1(10),RUNDAY),
     &            (HDR1(11),RUNTYPE),    (HDR1(13),COORD),
     &            (HDR1(17),DATAID(1)),  (HDR1(32),WORD32(1)),
     &            (HDR1(33),EDRNAME(1)), (HDR1(53),SEDRNAME(1)),
     &            (HDR1(69),EDRSYS),     (HDR1(77),MAGSYS),    
     &            (HDR1(93),ZERONAME),   (HDR1(95),SENSNAME)
C
      WRITE(6,*)
      WRITE(6,*) 'ENTER INPUT SUMMARY DSN'
      READ(5,'(Q,A50)') NAME,DSN
      OPEN(10,FILE=DSN,STATUS='OLD',FORM='FORMATTED',
     &     RECORDTYPE='VARIABLE',RECL=8191,READONLY)
C
   10 CONTINUE
       READ(10,'(Q,<LEN>A1)',END=100,ERR=10) LEN,(REC(I),I=1,LEN)
       IF ( RECTYPE.NE.'HDR1' ) GOTO 10
       WRITE(6,*)
       WRITE(6,'(1X,''SUMMARY DSN:  '',A<NAME>)') DSN(1:NAME)
       WRITE(6,'(1X,''RECORD LENGTH (BYTES):  '',I4)') LEN
       WRITE(6,'(1X,''RECORD TYPE:  '',A4)') RECTYPE
       WRITE(6,'(1X,''TELEMETRY FORMAT:  '',A4)') TELFMT
       WRITE(6,'(1X,''FLIGHT ID:  '',A4)') FLTID
       WRITE(6,'(1X,''TIME:  '',I2,1X,I3.3,3(1X,I2.2),1X,I3.3)') TIME
       WRITE(6,'(1X,''RUN YEAR:  '',I4)') RUNYEAR
       WRITE(6,'(1X,''RUN DAY OF YEAR:  '',I4)') CALDAY
       WRITE(6,'(1X,''RUN MONTH: '',A4)') RUNMONTH
       WRITE(6,'(1X,''RUN DAY OF MONTH:  '',I4)') RUNDAY
       WRITE(6,'(1X,''RUN TYPE:  '',A8)') RUNTYPE
       WRITE(6,'(1X,''COORDINATE SYSTEM:  '',A4)') COORD
       WRITE(6,'(1X,''WORD(32):  '',I4)') WORD32(1)
       WRITE(6,'(1X,''# WORDS-32:  '',I4)') WORD32(2)
       WRITE(6,'(1X,''EDR NAME:  '',A8)') EDRNAME(1)
       WRITE(6,'(1X,''SEDR NAME:  '',A8)') SEDRNAME(1)
       WRITE(6,'(16X,A32)') '12345678901234567890123456789012'
       WRITE(6,'(1X,''MAGSYS FLAGS:  '',32L1)') MAGSYS
       WRITE(6,'(1X,''ZEROES DSN:  '',A8)') ZERONAME
       WRITE(6,'(1X,''SENSITIVITIES DSN:  '',A8)') SENSNAME
       WRITE(6,*)
       GOTO 10
  100 CONTINUE
C
      STOP
      END