*--------1---------2---------3---------4---------5---------6---------7--
*
* This is a steering file for the mask simulation program.
*
      integer Criterion, MaskNumExp, Cut

      parameter (Criterion = 3, MaskNumExp = 1000, Cut = 98)

      integer Integral, Limit(12), SubSet(12)
      integer BookShelf(MaskNumExp, 12)

      real Yield(MaskNumExp, 12), Weight(MaskNumExp, 12)
      real SProject(MaskNumExp, 12)
      
      common /MASKS/ Integral, Limit, SubSet, BookShelf,
     +               Yield, Weight, SProject