CLAS: Select events with certain classification word

Format

CLAS ibit1, ibit2, ... , ibitn read events with bit ibit1 and/or ibit2 etc. = 1

It is also possible to make more complicated selections based on the event classification word by supplying a new version of the routine BSELEC. This routine should be extracted from the BOS77 library and modified. The default version of BSELEC, shown below, checks to see if a MASK has been supplied with the CLAS card. If so, it checks to see if the event classification word IWORD and MASK have any bits in common. Events are read in only if BSELEC is .TRUE. The line KCLASW=IWORD should not be changed; this line allows access to the event directory classification word inside of ALPHA ( e.g., inside QUEVNT).

      LOGICAL FUNCTION BSELEC (IWORD,MASK)
      INCLUDE 'PHYINC:QCDE.INC'
      BSELEC = .TRUE.
      IF (MASK.NE.0 .AND. IAND(MASK,IWORD).EQ.0) BSELEC = .FALSE.
      KCLASW=IWORD
      END