C *** Fortran program to read any of the NDP-032 data
C *** files reformatted by CDIAC
C
      INTEGER STANUM,YEAR,JAN,FEB,MAR,APR,
     + MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC,ANN 
C 
      OPEN (UNIT=1, FILE='tmean.dat')
C
   10 READ (1,100,END=99) STANUM,YEAR,JAN,FEB,MAR,APR,MAY,JUN,
     + JUL,AUG,SEP,OCT,NOV,DEC,ANN
  100 FORMAT(2I5,13I6)
C
      GO TO 10
   99 CLOSE (UNIT=1)
      STOP
      END