Program HAIL2GRADS
!       Convert HAIL claims data from text to a grads station file
        Implicit none
        integer,parameter :: nrep=9
        real :: lon(nrep),lat(nrep),tim=0.0
        integer :: nlev=0,nflag=1,ista,hgt(nrep),year(nrep),month(nrep),day(nrep)
        character :: csta*8,flag*1

        open(11,file="Absa.hail.claim2.txt")
        open(51,file="hail_absa.sta",form="unformatted",position="append")
        read(11,*) ! to skip the first line
        do ista=1,nrep
         read(11,*,end=90)year(ista),month(ista),day(ista),lat(ista),lon(ista),hgt(ista)
          print*, year(ista),month(ista),day(ista),lat(ista),lon(ista),hgt(ista),tim,nlev,nflag
          enddo
         write(csta,'(i3)') ista
         !print*,"ista,csta=",ista,csta
!!       Write out GrADS FILE
         !write(51) csta,lat,lon,tim,nlev,nflag,hail
         !print *, csta,lat,lon,tim,nlev,nflag,hail
         do ista=1,nrep
         write(51) year(ista),month(ista),day(ista),lat(ista),lon(ista),tim,nlev,nflag,hgt(ista)
         enddo
         write(51)  year(ista),month(ista),day(ista),lat(1),lon(1),tim,nlev,nflag
       ! Enddo
        !write(51) ista,lat,lon,tim,0,nflag
   90 continue
        END