c *** fortran code to read and write the contents
c *** of the NDP059 inventory of snowdepth stations 
c
      integer yrbeg,yrend 
      real lat, lon, elev
      character*2 state
      character*14 sta_name 
      character*6 staid
      character*5 wban 
      character*1 flag
c
c *** open the station inventory file
      open (unit=5, file='invent.dat')
c *** open the output file 
      open (unit=7, file='invent.out')
c
    1 continue
      read(5,100,end=99)state,sta_name,staid,wban,lat,lon,elev,
     + yrbeg,yrend,flag
  100 format(a2,1x,a14,1x,a6,1x,a5,3x,f6.2,2(2x,f7.2),2(1x,i4),1x,a1)
c
      write(7,100) state,sta_name,staid,wban,lat,lon,elev,
     + yrbeg,yrend,flag
c
      go to 1
   99 continue
      stop
      end