C FORTRAN PROGRAM TO READ "station.inv" in CDIAC's
C NDP048 
C
      INTEGER SEQNUM, WMO, BMONTH, BYEAR, EMONTH, EYEAR
      REAL LAT, LON, ELEV 
      CHARACTER NAME*25
      OPEN (UNIT=1, FILE='station.inv')
   10 READ (1,100,END=99)SEQNUM, WMO, NAME, LAT, LON, ELEV,
     *BMONTH, BYEAR, EMONTH, EYEAR
  100 FORMAT (I3, 1X, I5, 1X, A25, 1x, F5.2, 1x, F7.2, 1x,
     *        F6.1, 4x, I2, 1x, I4, 1x, i2, 1x, i4)
      GO TO 10
   99 STOP
      END