subroutine trginfo(trgofst)
*
*     read trigger information

      implicit none

      integer IBUFMORE(3) ! Store primary trigger info
      real RBUFMORE(3)
      equivalence (IBUFMORE(1), RBUFMORE(1))

      integer dsevtrig_ibuf(4) ! Store primary trigger info
      real dsevtrig_rbuf(4)
      equivalence (dsevtrig_ibuf(1), dsevtrig_rbuf(1))

      integer lbank,ndata

      real trgofst

      write(*,*) 'Reading MC trigger info...'

*     Attempt reading from MOREMCTRUEINFO bank
      CALL KZBLOC('MOREMCTRUEINFO',lbank)
      IF (lbank.le.0) THEN
         write(*,*) 'No MOREMCTRUEINFO bank!'
         goto 5201
      ENDIF

      call kzget1('MOREMCTRUEINFO',0,ndata,IBUFMORE)

      trgofst = RBUFMORE(1)
      goto 5202


 5201 continue
*     Attempt reading from DSTRGOFF bank
      call kzbloc('DSTRGOFF',lbank)
      if (lbank.le.0) then
        write(*,*) 'No DSTRGOFF bank!'
        trgofst=1000.
        goto 5202
      endif
      
      call kzget1('DSTRGOFF', 1, ndata, dsevtrig_ibuf)

*      write(*,*) '   primary trigger type: ',dsevtrig_ibuf(1)
*      write(*,*) '   primary trigger it0sk: ',dsevtrig_ibuf(2)
*      write(*,*) '   primary trigger dgeantt0: ',dsevtrig_rbuf(3)
*      write(*,*) '   primary trigger number: ',dsevtrig_ibuf(4)
      
      trgofst = 1000. - dsevtrig_rbuf(3)
      goto 5202


 5202 continue
      write(*,*) '  GEANT t0=',trgofst
      
      return
      end