00001 c Basic matrix elements
00002 Complex *16
00003 > Mat_S1,Mat_S2,Mat_S3,Mat_S4,Mat_S5
00004 > ,Nat_S1,Nat_S2,Nat_S3,Nat_S4,Nat_S5
00005 > ,MatKstarp,MatKstar0,MatKrho
00006 > ,NatKstarp,NatKstar0,NatKrho
00007 Real*8 alphaCP,betaCP,pi,MB2,MC2,Mass_rho,Gam_rho,one,eno
00008 Real*8 M_B,M_pip,M_pim,M_pi0
00009 Real*8 M_Kp,Mass_Kstarp,Mass_Kstar0,Gam_Kstarp,Gam_Kstar0
00010 Real*8 DeltaM,Gam_B,xd
00011 Real*8 M_Upsi, BetaBabar,ptcut,coscut
00012 Common/Theory/
00013 > Mat_S1,Mat_S2,Mat_S3,Mat_S4,Mat_S5
00014 > ,Nat_S1,Nat_S2,Nat_S3,Nat_S4,Nat_S5
00015 > ,MatKstarp,MatKstar0,MatKrho
00016 > ,NatKstarp,NatKstar0,NatKrho
00017 > ,alphaCP, betaCP, pi
00018 > ,MB2,MC2,one,eno
00019 > ,Mass_rho,Gam_rho
00020 > ,M_B, M_pip,M_pim,M_pi0
00021 > ,DeltaM,Gam_B,xd
00022 > ,M_Upsi,BetaBabar
00023 > ,ptcut,coscut
00024 > ,M_Kp,Mass_Kstarp,Mass_Kstar0,Gam_Kstarp,Gam_Kstar0
