C FORTRAN RETRIEVAL CODE TO READ THE 65-STATION DATA SET
C FROM CDIAC NDP-039/R1
C
      INTEGER STANUM,YEAR,MON,PRES,MEANT,MEANMX,MEANMN,
     + PRECIP,SUN,CLD,RH,SNOW,WDIR,WSPD,WFREQ,EXMX,EXMN
C
      CHARACTER*1 RECF,PRESF,MEANTF,MXF,MNF,PRECF,SUNF,CLDF,
     + RHF,SNOWF,WDIRF,WSPDF,WFREQF,EXMXF,EXMNF  
C
    1 CONTINUE                        
C
      OPEN (UNIT=1, FILE='sta65.dat')
      READ(1,100,END=99)STANUM,YEAR,MON,RECF,PRES,PRESF,MEANT,
     + MEANTF,MEANMX,MXF,MEANMN,MNF,PRECIP,PRECF,SUN,SUNF,      
     + CLD,CLDF,RH,RHF,SNOW,SNOWF,WDIR,WDIRF,WSPD,WSPDF,  
     + WFREQ,WFREQF,EXMX,EXMXF,EXMN,EXMNF        
  100 FORMAT(1X,I5,1X,I4,1X,I2,1X,A1,14(I6,1X,A1))   
C
      GO TO 1 
   99 CONTINUE         
      STOP       
      END