********************************************************
*                                                      *
*                 S I L N O I S . C D E                *
*                                                      *
********************************************************
C---
C--- Common block for silicon noisy channels
C---
C--- NOISY (IPAD,ILAY,ISLAB) = 1 for noisy channels ( to be suppressed )
C--- NSILNOIS   # of noisy channels
C--- LSILNOIS(1,n) = pad number
C--- LSILNOIS(2,n) = Layer
C--- LSILNOIS(3,n) = Slab number
C--- SILNOISE(n)   = Fraction of events with channel on
      INTEGER NSILNOIS,LSILNOIS(3,1000), NOISY(96,4,12)
      REAL SILNOISE(1000)
      COMMON / SILNOIS / NSILNOIS,LSILNOIS, NOISY,SILNOISE