C
C PWS HIGH RESOLUTION RECORD READ ROUTINE
C
      CHARACTER DSN*50
      INTEGER*2 INTDATA(24)
C
      WRITE(6,*)
      WRITE(6,*) 'ENTER INPUT DSN'
      READ(5,'(A)') DSN
      OPEN(50,FILE=DSN,STATUS='OLD',FORM='UNFORMATTED',READONLY)
      NREC = 0
   10 CONTINUE
         READ(50,END=100,ERR=10) (INTDATA(K),K=1,24)
         WRITE(6,800) (INTDATA(K),K=1,4)  ! writes time tag
         NREC = NREC + 1
      GOTO 10
  100 CONTINUE
      WRITE(6,*)
      WRITE(6,'(1X,I5.5,'' TOTAL RECORDS WRITTEN'')') NREC
C
      CLOSE(50)
      STOP
  800 FORMAT(4(1X,I4))
      END