subroutine s_one_ev_wc
*
* $Log: s_one_ev_wc.f,v $
* Revision 1.1  1996/01/17 16:38:04  cdaq
* Initial revision
*

      implicit none
      include 'sos_one_ev.par'

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

      character*4 wire
      integer ichamber
      integer isector
      integer iwire
      integer iplane
      
      character*4 specname
      character*4 wcname(3)
      character*1 sectorthingy
      integer nchambers
      integer nplanes
      character*1 planenames(4)
      integer sectors(4),wires(4)

      data specname,nchambers /'SOS ',2/
      data nplanes /3/
      data planenames /'U','X','V',' '/
      data sectors /4,8,4,0/
      data wires /24,16,24,0/

      data varinames /'x','y','z'/
      data chambits /2,3,8/

      do i=1,3
        varibits(i)=32
        origin(i)=SHUT_HEIGHT
        factor(i)=1e3
      enddo

      do ichamber=1,nchambers
        write (wcname(1),'("WCH",a1)') char(64 + ichamber)
        do iplane=1,nplanes
          do isector=1,sectors(iplane)
            sectorthingy = 'A'
            if(isector.gt.sectors(iplane)/2) then
              sectorthingy = 'B'
            endif
            write(wcname(2),'("W",3a1)')  char(64 + ichamber)
     $           ,sectorthingy,planenames(iplane)
            do iwire = 1,wires(iplane)
              write (wire,'(a,a,a,a)') char(64 + ichamber)
     $             ,planenames(iplane),char(64 + isector)
     $             ,char(64 + iwire)
              wcname(3) = wire
              call gsdet(specname,wire,3,wcname,chambits,
     $             2, 100, 100, iset, idet)
              call gsdeth(specname,wire,3,varinames,varibits,origin,factor)
            enddo
          enddo
        enddo
      enddo

      return
      end