Subroutine h_one_ev_hodo
*
* $Log: h_one_ev_hodo.f,v $
* Revision 1.3  1996/11/22 15:37:36  saw
* (SAW) Fix some startup errors
*
* Revision 1.2  1996/06/13 14:50:23  saw
* (SAW) Replace huge list of gsdet/gsdeth calls with do loops over the
* detector geometry.
*
* Revision 1.1  1995/09/18 14:38:53  cdaq
* Initial revision
*
      implicit none

      include 'hms_one_ev.par'

      integer iset, idet
      character*4 varinames(3)
      integer     varibits(3)
      integer     hodobits(3)
      real origin(3), factor(3)

      integer ihod,iplane,ipaddle

      character*4 specname
      character*4 hodoname(3)
      character*1 planenames(2)
      integer nhods,nplanes,npaddles(4)

      data specname /'HMS'/
      data planenames /'X','Y'/
      data nhods,nplanes,npaddles /2,2,16,10,16,10/

      data varinames /'x', 'y', 'z'/
      data varibits /32, 32, 32/
      data hodobits /2,2,5/
      data origin /HHUT_HEIGHT, HHUT_HEIGHT, HHUT_HEIGHT/
      data factor /1e3, 1e3, 1e3/

      do ihod=1,nhods
        write (hodoname(1),'("HOD",i1)') ihod
        do iplane=1,nplanes
          write (hodoname(2),'("HD",a1,i1)') planenames(iplane),ihod
          do ipaddle=1,npaddles((ihod-1)*2+iplane)
            write (hodoname(3),'("H",i1,a1,a1)') ihod,planenames(iplane)
     $           ,char(ichar('A')+ipaddle-1)
            call gsdet(specname,hodoname(3),3,hodoname,hodobits,
     $           2,100,100,iset,idet)
            call gsdeth(specname,hodoname(3),3,varinames,varibits,
     $           origin,factor)
          enddo
        enddo
      enddo

      return
      end