character*5 lat
         character*6 lon
         character*5 prcp
         character*5 stn,stnsel
         character*8 date
         character*12 flnm
         character*40 header
         integer ibeg, iend
         print*,'enter beginning date and ending date'
**         read (5,810) ibeg, iend
** 810     format (I8,1X,I8)
         ibeg = 19980101
         iend = 19980131
         print*,'enter stn to select'
         read (5,820) stnsel
 820     format (A5)
         open (unit=21)
         flnm = '1998dlyprcp-'
**         
** 4       read ('ibeg',888) date
** 888     format (A8)
**         print*,' date = ',date
 4       open (unit=11, file='e:\daily\'//flnm//'ibeg',
     +   form='formatted', access='sequential', status='unknown')
         print*,ibeg
         read (11,850) header
 850     format (A40)
 2       read (11,800,end=99) lat,lon,prcp,stn
 800     format (1X,A5,2X,A6,2X,A5,1X,A5)
         print*,ibeg,stn
         if (stn .eq. stnsel) then
         write (21,830) ibeg,lat,lon,prcp,stn
 830     format (I8,2X,A5,2X,A6,2X,A5,2X,A5)
         go to 2
         else
         go to 2
         end if
**
 99      ibeg=ibeg+1
         close (11)
         if (ibeg .le. iend) then
         go to 4
         else
         end if
         stop
         end