C FORTRAN CODE TO READ THE PRC 65-STATION
C INVENTORY FILE FROM CDIAC NDP-039/R1;
C
      INTEGER SEQNUM,STANUM,LAT,LON,LON,BEGYR
      REAL ELEV
      CHARACTER*10 STNAME
C           
    1 CONTINUE 
      OPEN (UNIT=1, FILE='sta65.inv')
      READ(1,100,END=99)SEQNUM,STNAME,STANUM,LAT, 
     +LON,ELEV,BEGYR 
100   FORMAT(I2,1X,A10,1X,I5,1X,F5.2,1X,F6.2,1X,F6.1,1X,I4) 
C                
      GO TO 1  
   99 CONTINUE 
      STOP
      END