character*8 stnid
      real prcp,lon,lat
      open(12, file='aws_kabini_rcumul.dat',form='unformatted'
     &       ,status='old',recl=4,access='direct')
      open(21, file='aws_kabini.stn', form='unformatted'
     &      , status='unknown',access='stream')
      
      
      do it=1,3744
      

      do i=1,58
      open(11, file='aws_latlon_kabini.txt', form='formatted'
     &       , status='old')
      read(11,'(5x,a3,7x,f7.4,7x,f7.4)') stnid,lat,lon
      time=1
      nlev=1
      nflag=1
      read(12,rec=(it-1)*58+i) prcp
      write(21) stnid,lat,lon,time,nlev,nflag,prcp
      enddo
      close(11)
      
      nlev=0
      write(21) stnid,lat,lon,time,nlev,nflag

      enddo
      stop
      end