Subroutine ZES_GSLT_FILL
c
c  extract the essential part of the GSLT global decision,
c  as well as the subtrigger decisions for subtriggers 1-6
c
c  subtrigtype(3) contains the subtrigger bits before prescale,
c  but they are not used by the TLT
c
c  Nichol Brummer
c

      implicit none
 
#include "partap.inc"
#include "zescommon.inc"
#include "o2dec.inc"
#include "o2sdec.inc"

      integer ii,jj,subtrigwords(4,0:9),passtrig,pw(3)
      
      Call Fettab(O2DEC,ID,1)
     
      do ii=0,9
      do jj=1,4
         subtrigwords(jj,ii)=0
      enddo
      enddo 
      do ii=1,Coutab(O2SDEC)
         call Fettab(O2SDEC,ID,ii)
         subtrigwords(1,O2SDEC_SubtrigNo) = O2SDEC_SubtrigType(1)
         subtrigwords(2,O2SDEC_SubtrigNo) = O2SDEC_SubtrigType(2)
         subtrigwords(3,O2SDEC_SubtrigNo) = O2SDEC_SubtrigType(3)
         subtrigwords(4,O2SDEC_SubtrigNo) = O2SDEC_SubtrigType(4)
      enddo

      ZES_GSLT_global = O2DEC_Triggertype
 
      ZES_GSLT_subtrw1(1) = subtrigwords(1,1)
      ZES_GSLT_subtrw1(2) = subtrigwords(1,2)
      ZES_GSLT_subtrw1(3) = subtrigwords(1,3)
      ZES_GSLT_subtrw1(4) = subtrigwords(1,4)
      ZES_GSLT_subtrw1(5) = subtrigwords(1,5)
      ZES_GSLT_subtrw1(6) = subtrigwords(1,6)

C     set bits in global triggertype as planned for 1998

      if (btest(O2DEC_triggertype,25)) then
         if     (btest(O2DEC_triggertype,10)) then
c           flt bit passthrough as marked from 1998
         elseif (btest(O2DEC_triggertype,11)) then
c           gslt passthrough as marked from 1998
         elseif (btest(O2DEC_triggertype,12)) then
c           error passthrough as marked from 1998
         else
c           passthrough type unmarked before 1998
c           error passthrough type did not exist yet
            if     (btest(O2DEC_triggertype,3)) then
               passtrig = 3 ! from halfway 1997
            elseif (btest(O2DEC_triggertype,4)) then
               passtrig = 4 ! from 1996
            elseif (btest(O2DEC_triggertype,1)) then
               passtrig = 1 ! till 1995
            endif
            pw(1) = subtrigwords(1,passtrig)
            pw(2) = subtrigwords(2,passtrig)
            pw(3) = subtrigwords(3,passtrig)
c           sbit(word,1) sets bit 0 in word!
            if (pw(1).ne.0) call sbit1(ZES_GSLT_global,12)
            if (pw(2).ne.0) call sbit1(ZES_GSLT_global,12)
            if (pw(3).ne.0) call sbit1(ZES_GSLT_global,13)
         endif
      endif

      end