TEvtGen/EvtGenModels/EvtBTo3pi.inc

   1 c Basic matrix elements
   2       Complex *16
   3      >              Mat_S1,Mat_S2,Mat_S3,Mat_S4,Mat_S5
   4      >             ,Nat_S1,Nat_S2,Nat_S3,Nat_S4,Nat_S5
   5      >             ,MatKstarp,MatKstar0,MatKrho
   6      >             ,NatKstarp,NatKstar0,NatKrho
   7       Real*8        alphaCP,betaCP,pi,MB2,MC2,Mass_rho,Gam_rho,one,eno
   8       Real*8        M_B,M_pip,M_pim,M_pi0
   9       Real*8        M_Kp,Mass_Kstarp,Mass_Kstar0,Gam_Kstarp,Gam_Kstar0
  10       Real*8        DeltaM,Gam_B,xd
  11       Real*8        M_Upsi, BetaBabar,ptcut,coscut
  12       Common/Theory/
  13      >              Mat_S1,Mat_S2,Mat_S3,Mat_S4,Mat_S5
  14      >             ,Nat_S1,Nat_S2,Nat_S3,Nat_S4,Nat_S5
  15      >             ,MatKstarp,MatKstar0,MatKrho
  16      >             ,NatKstarp,NatKstar0,NatKrho
  17      >             ,alphaCP, betaCP, pi
  18      >             ,MB2,MC2,one,eno
  19      >             ,Mass_rho,Gam_rho
  20      >             ,M_B, M_pip,M_pim,M_pi0
  21      >             ,DeltaM,Gam_B,xd
  22      >             ,M_Upsi,BetaBabar
  23      >             ,ptcut,coscut
  24      >             ,M_Kp,Mass_Kstarp,Mass_Kstar0,Gam_Kstarp,Gam_Kstar0