C FORTRAN data retrieval routine to read the file named
C "station.inventory" (File 8, Tape 1).
C
C Unit 1 is input.
C Unit 6 (terminal) is output.
C
      INTEGER WMO, MINTFYR, MIDTFYR, MAXTFYR, PRCPFYR, LYR
      REAL LAT, LON, ELEV, MINTMISS, MIDTMISS, MAXTMISS, PRCPMISS
      CHARACTER NAME*25
      OPEN (UNIT=1, FILE='station.inventory')
   10 READ (1, 1, END=99) WMO, NAME, LAT, LON, ELEV, MINTFYR, MINTMISS,
     *MIDTFYR, MIDTMISS, MAXTFYR, MAXTMISS, PRCPFYR, PRCPMISS, LYR
    1 FORMAT (I5, 1X, A25, 1X, F5.2, 1X, F7.2, 1X, F6.1, 1X,
     *4(I4, 1X, F4.1, 1X), I4)
      GO TO 10
   99 STOP
      END