Subroutine SET_HODO2

c_begin_doc

c  Documentation for subroutine sets_ec1

c  $Id: set_hodo2.f,v 1.1.1.1 2007/12/04 20:12:15 jones Exp $

c  Purpose:
c  --------
c  	creates Hodoscoc detector sets


c_end_doc
c  include files:
c  --------------
#include "gcbank.inc"
      include 'hodo2geom.inc'

c  local variables:
c  ----------------
      integer iali,nbitsv(1),nbitsh(5),nbitsd(4),nbitsa(5),get_idtype
      CHARACTER*4 namesv(1),namesh(5),namesd(4),namesa(5)
      REAL orig(5),fact(5),origa(5),facta(5)
C  Statement functions:        None
C  Local data statements:
      DATA namesv/'LAYE'/
      DATA nbitsv/28/
      DATA namesh/'X   ','Z   ','L   ','ELOS','TOF '/
      DATA nbitsh/16,16,16,32,32/
      DATA namesd/'ADC-','TDC-','ADC+','TDC+'/
      DATA nbitsd/16,16,16,16/
      DATA orig/500.,500.,500.,10.,10./
      DATA fact/10.,10.,10.,1000.,1000./
      DATA origa/500.,500.,4000.,4000.,4000./
      DATA facta/10.,10.,100.,100.,100./
c_end_var


c  executable code:
c  ----------------
      idtype_hodo2=det_idtype()
      CALL GSDET('LUC2','HODO',28,namesv,nbitsv,idtype_hodo2,1000,1000
     ,     ,iset_hodo2,idet_hodo2)
      CALL GSDETH('LUC2','HODO',5,namesh,nbitsh,orig,fact)
      CALL GSDETD('LUC2','HODO',4,namesd,nbitsd)

      return

      END