Program create_table_file
      implicit none

      integer i,oldnum,j,jj,jjj

      real stnlat(10000),stnlon(10000),pptlat(10000),pptlon(10000)
   
      character oldfile*80,stnnm(10000)*8,pptfile*80,pptnm(10000)*8
      character buf*80

C      logical


      call getarg(1,oldfile)

      open(unit=11,name=oldfile,status='unknown',form='formatted')

      do 200 i = 1,10000
       read(11,101,err=200,end=201)stnnm(i),stnlat(i),stnlon(i)
 101   format(a8,48x,f4.0,1x,f6.0)
       stnlat(i) = stnlat(i)/100.
       stnlon(i) = stnlon(i)/100.
C       write(6,*)stnnm(i),stnlat(i),stnlon(i)
 200  continue
 201  continue
      close(unit=11)
      oldnum = i - 1
      write(6,*)'oldnum',oldnum

      open(unit=13,name='new.tbl',status='new',form='formatted')
      do i = 1,oldnum
       write(13,103)stnnm(i),int(100*stnlat(i)),int(100*stnlon(i))
 103   format(a8,1x,'999999',1x,'PPT STATION',22x,'UT US',2x,i4,1x,i6,
     X        '     0  0')
      enddo


      call getarg(2,pptfile)

      open(unit=12,name=pptfile,status='unknown',form='formatted')
 
      read(12,100)buf
 100  format(a80)
      jjj = 0
      do 300 i = 1,10000
       read(12,102,err=300,end=301)pptlat(i),pptlon(i),pptnm(i)
 102   format(1x,f5.2,3x,f6.2,8x,a8)
       pptlon(i) = -1.*pptlon(i)
       if (pptlon(i).le.(-100.)) then
        jj = 0
        do j = 1,oldnum
         if (pptnm(i).eq.stnnm(j)) then
          jj = jj + 1
         endif 
        enddo
        if (jj.eq.0) then
C         write(6,*)pptnm(i),pptlat(i),pptlon(i)
         write(13,103)pptnm(i),int(100*pptlat(i)),int(100*pptlon(i))
         jjj = jjj + 1
        endif
       endif
 300  continue
 301  continue
      write(6,*)'read through',i-1,' ppt stations'
      write(6,*)'wrote',jjj,' new ppt stations to table file'
      close(unit=12)
      close(unit=13)


      stop
      end