C *** Fortran program to read any of the original CRU data
C *** files from CDIAC's NDP-032
C
      INTEGER STANUM,LAT,LON,YEAR,JAN,FEB,MAR,APR,
     + MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC,ANN 
      CHARACTER NAME*22,POR*8
C 
      OPEN (UNIT=1, FILE='orig_tmean.dat')
C
   10 READ (1,100,END=99) STANUM, LAT, LON, NAME, POR
  100 FORMAT (1X,I5,1X,2I6,4X,A22,10X,A8)
C
      DO 11 I=1,100
      READ (1,101,END=99) YEAR,JAN,FEB,MAR,APR,MAY,JUN,
     + JUL,AUG,SEP,OCT,NOV,DEC,ANN
  101 FORMAT(I4,13I5)
   11 CONTINUE
C
      GO TO 10
   99 CLOSE (UNIT=1)
      STOP
      END