C FORTRAN program to read "station.his" in CDIAC's
C NDP048 
C
      INTEGER WMO, YEAR, MONTH, DAY
      CHARACTER TYPE*4, DIST*2, DIRECT*3
      OPEN (UNIT=1, FILE='station.his')
   10 READ (1,100,END=99) WMO, TYPE, YEAR, MONTH, DAY, DIST,    
     *         DIRECT
  100 FORMAT (I5, 1X, A4, 1X, A4, 1X, I2, 1X, I2, 1X, A2, 1X, A3)
      GO TO 10
   99 STOP
      END