C 
C 
C 
      LOGICAL FUNCTION BITSET(L,N)
C 
      IMPLICIT INTEGER*4 (A-Z)
      COMMON /CONCOM/ COND(150)
C 
      BITSET=IBIT(COND(L),N).NE.0
      RETURN
      END