#
# $Id: BSemiExclPath.tcl,v 1.20 2003/10/10 16:07:24 fnc Exp $
#
# defines B->D*X - semi excl filter path
#
global BtaCandLists
global writeUsrDataForSkim
path create BSemiExclPath

mod clone TagFilterByName BSemiExclFilter
path append BSemiExclPath  BSemiExclFilter
talkto BSemiExclFilter {
#common tag
    andList set isBCMultiHadron

# D0
    orList set BToD0SemiExclNeat
    orList set BToD0SemiExclClean
    orList set BToD0SemiExclDirty
# do not save the dirtiest modes
#    orList set BToD0SemiExclOther

# Dc
    orList set BToDcSemiExclNeat
    orList set BToDcSemiExclClean
    orList set BToDcSemiExclDirty
# do not save the dirtiest modes
#    orList set BToDcSemiExclOther

# Dstar
    orList set BToDstarSemiExclNeat
    orList set BToDstarSemiExclClean
    orList set BToDstarSemiExclDirty
# do not save the dirtiest modes
#    orList set BToDstarSemiExclOther

# Dstar0
    orList set BToDstar0SemiExclNeat
    orList set BToDstar0SemiExclClean
    orList set BToDstar0SemiExclDirty
# do not save the dirtiest modes
#    orList set BToDstar0SemiExclOther
}

# Add lists of composites to write
lappend BtaCandLists NeatBToD0  CleanBToD0  DirtyBToD0
lappend BtaCandLists NeatBToDc CleanBToDc DirtyBToDc 
lappend BtaCandLists NeatBToDstar0 CleanBToDstar0 DirtyBToDstar0
lappend BtaCandLists NeatBToDstar CleanBToDstar DirtyBToDstar
 
set writeUsrDataForSkim 1