C FORTRAN data retrieval routine to read the files named
C "ussr*.data" (Files 10-15, Tape 1 and Files 1-3, Tape 2)
C
C Unit 1 is input.
C Unit 6 (terminal) is output.
C
      INTEGER WMO, YEAR, MONTH, DAY, NOBS, DATA(31)
      CHARACTER TYPE*4, FLAGA(31)*1, FLAGB(31)*1
      OPEN (UNIT=1, FILE='ussr*.data')
   10 DO DAY = 1, 31
        DATA(DAY) = 9999
        FLAGA(DAY) = '9'
        FLAGB(DAY) = '9'
      END DO
      READ (1, 1, END=99) WMO, TYPE, YEAR, MONTH, NOBS,
     *(DAY, DATA(DAY), FLAGA(DAY), FLAGB(DAY), I = 1, NOBS)
    1 FORMAT (I5, A4, I4, I2, I2, 31(I2, I4, A1, A1))
      GO TO 10
   99 STOP
      END