Program read_ppt_from_dlyprcp
      implicit none

      integer i

      real ppt,stnlat,stnlon

      character input*80,output*80,yymmdd*6,stnnm*8


      call getarg(1,input)
      open(unit=11,name=input,status='old',form='formatted')
      read(11,99)yymmdd
 99   format(37x,a6)
      if (yymmdd.ne.input(54:59)) then
       write(6,*)'Dates dont line up',yymmdd,' ',input(54:59)
       stop 10
      else
       write(6,*)'Dates line up - go ahead',yymmdd

       call getarg(2,output)
       open(unit=12,name=output,status='unknown',form='formatted')
       write(12,100)
 100   format(' PARM = P24I',/,/,'    STN      YYMMDD/HHMM      P24I')

       do 200 i = 1,10000
        read(11,101,err=200,end=201)stnlat,stnlon,ppt,stnnm
 101    format(1x,f5.2,3x,f6.2,2x,f5.2,1x,a8)
        if (stnlon.ge.(100.)) then
         write(12,102)stnnm,yymmdd,ppt
 102     format(4x,a8,1x,a6,'/1200',5x,f5.2)
        endif
 200   continue
 201   continue

       close(unit=12)
      endif

      close(unit=11)

      stop
      end