C FORTRAN data retrieval routine to read the file named
C "station.history" (File 9, Tape 1).
C
C Unit 1 is input.
C Unit 6 (terminal) is output.
C
      INTEGER WMO, YEAR, MONTH, DAY
      CHARACTER TYPE*4, DIST*2, DIRECT*3
      OPEN (UNIT=1, FILE='station.history')
   10 READ (1, 1, END=99) WMO, TYPE, YEAR, MONTH, DAY, DIST, DIRECT
    1 FORMAT (I5, 1X, A4, 1X, I4, 1X, I2, 1X, I2, 1X, A2, 1X, A3)
      GO TO 10
   99 STOP
      END