C *** FORTRAN CODE TO READ THE STATION INVENTORY FILE FROM
C     CDIAC'S NDP-070
C
      INTEGER STCODE,CNI,ELEV,MOTMAX,YRTMAX,MOTMIN,YRTMIN,
     + MOPRCP,YRPRCP,MOSNOW,YRSNOW,MOSNWD,YRSNWD
      REAL LAT,LON
      CHARACTER*2 STATE
      CHARACTER*30 STNAME
C     
      OPEN (UNIT=5, FILE='invent.txt')
    1 CONTINUE
C    
      READ(5,100,END=99)STATE,STCODE,CNI,STNAME,LAT,LON,
     + ELEV,MOTMAX,YRTMAX,MOTMIN,YRTMIN,MOPRCP,YRPRCP,
     + MOSNOW,YRSNOW,MOSNWD,YRSNWD
  100 FORMAT(A2,1X,I2,I4,1X,A30,1X,F5.2,1X,F7.2,2X,
     +       I4,5(1X,I2,1X,I4))
C                                                                               
      write (6, 100) STATE,STCODE,CNI,STNAME,LAT,LON,
     + ELEV,MOTMAX,YRTMAX,MOTMIN,YRTMIN,MOPRCP,YRPRCP,
     + MOSNOW,YRSNOW,MOSNWD,YRSNWD
C
      GO TO 1                                                                   
   99 CONTINUE                                                                  
      STOP                                                                      
      END