C FORTRAN CODE TO READ THE PRC 205-STATION INVENTORY FILE 
C FROM CDIAC NDP-039/R1;
C 
      INTEGER SEQNUM,STANUM,LAT,LON,TBEGYR,PBEGYR
      REAL ELEV
      CHARACTER*20 STNAME
C 
    1 CONTINUE
C 
      OPEN (UNIT=5, FILE='sta205.inv')
      READ(5,100,END=99)SEQNUM,STNAME,STANUM,LAT,
     + LON,ELEV,TBEGYR,PBEGYR
100   FORMAT(I3,1X,A20,1X,I5,1X,F5.2,1X,F6.2,1X,F6.1,2(1X,I4))
C
      GO TO 1
   99 CONTINUE
      STOP
      END