#
#
#
#
#
Define dm 0.472e12
Define dgog 0.0
Define magqop 1.0
Define beta 0.425
Define minustwobeta -0.85
Define gamma 1.6265
Define minusgamma -1.6265
Define alpha 1.09

Define minusTwoBeta -0.85
Define Rdp 0.6
Define minusRdp -0.6
## Delta=0.5 and Gamma 1.0
Define DeltaMinusGamma -0.5
Define DeltaPlusGamma 1.5
Define MinusGamma -0.0
Define PlusGamma   0.0
#
Alias MyB0 B0
Alias Myanti-B0 anti-B0
#
#turn off photos so that we can count daughthers to determine
#which B is the CP decay and which is the tag B.
noPhotos
#
Decay Upsilon(4S)
#0.500  B0 Myanti-B0     VSS;
0.500  anti-B0 MyB0     VSS;
Enddecay
#
Decay MyB0
#1.000   K_S0  J/psi VERBOSE  SSD_CP dm 0.0 1.0 minustwobeta 1.0 0.0 -1.0 0.0;
#1.000   J/psi K_S0 VERBOSE  SVS_CP beta dm -1 1.0 0.0 1.0 0.0;
#
#1.000   K_S0  eta_c VERBOSE  SSD_CP dm 0.0 1.0 minustwobeta 1.0 0.0 -1.0 0.0;
#1.000   eta_c K_S0 VERBOSE  SSS_CP beta dm -1 1.0 0.0 1.0 0.0;
#
#1.000   K_S0  chi_c2 VERBOSE  SSD_CP dm 0.0 1.0 minustwobeta 1.0 0.0 1.0 0.0;
#1.000   chi_c2 K_S0 VERBOSE  STS_CP beta dm 1 1.0 0.0 1.0 0.0;
#
#1.0  D*+   D-      SSD_CP dm 0.0 1.0 minustwobeta 1.0 0.0 1.0 0.0;
#1.000   pi+  pi- VERBOSE  SSD_CP dm 0.0 1.0 minustwobeta 1.0 gamma 1.0 minusgamma;
#1.000   pi+  pi- VERBOSE  SSS_CP alpha dm 1 1.0 0.0 1.0 0.0;
#
#1.000   pi0  rho0 VERBOSE  SSD_CP dm 0.0 1.0 minustwobeta 1.0 gamma -1.0 minusgamma;
#1.000   rho0  pi0 VERBOSE  SVS_CP alpha dm -1 1.0 0.0 1.0 0.0;
1.000  D- pi+ SSD_CP dm 0.0 1.0 minusTwoBeta 
         	             1.0 0.0 
                	     Rdp PlusGamma 
                             Rdp MinusGamma 
                             1.0 0.0;
#1.000  D- pi+ SSD_CP dm 0.0 1.0 minusTwoBeta 
#                            1.0 0.0 
#                            Rdp DeltaMinusGamma 
#                            Rdp DeltaPlusGamma 
#                            1.0 0.0;

Enddecay
#
Decay Myanti-B0
#1.000   K_S0  J/psi VERBOSE  SSD_CP dm 0.0 1.0 minustwobeta 1.0 0.0 -1.0 0.0;
#1.000   J/psi K_S0 VERBOSE  SVS_CP beta dm -1 1.0 0.0 1.0 0.0;
#
#1.000   K_S0  eta_c VERBOSE  SSD_CP dm 0.0 1.0 minustwobeta 1.0 0.0 -1.0 0.0;
#1.000   eta_c K_S0 VERBOSE  SSS_CP beta dm -1 1.0 0.0 1.0 0.0;
#
#1.000   K_S0  chi_c2 VERBOSE  SSD_CP dm 0.0 1.0 minustwobeta 1.0 0.0 1.0 0.0;
#1.000   chi_c2 K_S0 VERBOSE  STS_CP beta dm 1 1.0 0.0 1.0 0.0;
#
#1.0  D*-   D+      SSD_CP dm 0.0 1.0 minustwobeta 1.0 0.0 1.0 0.0;
#1.000   pi+  pi- VERBOSE  SSD_CP dm 0.0 1.0 minustwobeta 1.0 gamma 1.0 minusgamma;
#1.000   pi+  pi- VERBOSE  SSS_CP alpha dm 1 1.0 0.0 1.0 0.0;
#
#1.000   pi0  rho0 VERBOSE  SSD_CP dm 0.0 1.0 minustwobeta 1.0 gamma -1.0 minusgamma;
#1.000   rho0  pi0 VERBOSE  SVS_CP alpha dm -1 1.0 0.0 1.0 0.0;
1.000  D+ pi- SSD_CP dm 0.0 1.0 minusTwoBeta 
                            1.0 0.0 Rdp DeltaMinusGamma 
                            Rdp DeltaPlusGamma 1.0 0.0;

Enddecay
#
Decay J/psi
1.00 mu+ mu- VLL;
Enddecay
#
Decay B0
1.00 D*-    e+   nu_e           PHOTOS HQET 0.92 1.18 0.72;
Enddecay
#
Decay anti-B0
1.00 D*+    e-   anti-nu_e           PHOTOS HQET 0.92 1.18 0.72;
Enddecay
#
End