C FORTRAN RETRIEVAL CODE TO READ THE MONTHLY TEMPERATURE 
C AND/OR PRECIPITATION FILES FROM THE 205-STATION PRC
C DATABASE CONTAINED IN CDIAC NDP-039/R1
C
      INTEGER STANUM,YEAR,DATA(12) 
      CHARACTER*1 RFLAG, DFLAG(12)
C
    1 CONTINUE 
C
C UNCOMMENT ONE OF THE TWO OPEN STMTS. BELOW TO READ THE DESIRED
C DATA SET
C     OPEN (UNIT=1, FILE='temp205.dat')
C     OPEN (UNIT=1, FILE='prec205.dat')
      READ(1,100,END=99)STANUM,YEAR,RFLAG, 
     + (DATA(I),DFLAG(I), I=1,12)   
  100 FORMAT(2I6,1X,A1,12(I6,1X,A1)) 
C
      GO TO 1     
   99 CONTINUE 
      STOP   
      END