PROGRAM READ_BAND
      INTEGER*4 DATE
      REAL*4 ARRAY(9)

      OPEN(11,FILE='temp_band_01mb.txt',STATUS='OLD',
     &     FORM='FORMATTED')

1     READ(11,*,END= 2) DATE, ARRAY
      WRITE(6, 1000) DATE
1000  FORMAT(I6.6)
      WRITE(6,2000) ARRAY
2000  FORMAT(8F10.2)
      GO TO 1

2     CONTINUE
      CLOSE(11)

      END