Triggers and scalers: a code example

• subroutine AGUDIGI

• call hepevnt()

• call ecal_trigger()

• return

• end

• *

• subroutine ECAL_TRIGGER()

• +CDE,GCBANK,GCUNIT,SCLINK

• *KEEP,GCFLAG.

• COMMON/GCFLAG/IDEBUG,IDEMIN,IDEMAX,ITEST,IDRUN,IDEVT,IEORUN

• + ,IEOTRI,IEVENT,ISWIT(10),IFINIT(20),NEVENT,NRNDM(2)

• *

• COMMON/HTCHK/ CLHTS

• INTEGER CLHTS

• integer NUM(3) /1,1,1/

• integer NREJECT/0/

• integer LEN/7/, REJ_OFFSET/7/

• integer ia, L

Notes: