40 {
41
48
49
50
51
54 double q2 = (
q.mass2());
55
56 double f1v,f1a,f2v,f2a;
58
61 q2,
62 m_meson,
63 &f1v,
64 &f1a,
65 &f2v,
66 &f2a);
67
69 p4b.
set(parent->
mass(),0.0,0.0,0.0);
70
73
76
79
82
85
88
97
106
115
124
125
126
128
130 if (l_num==EM||l_num==MUM||l_num==TAUM){
131
136 }
137 else{
138 if (l_num==EP||l_num==MUP||l_num==TAUP){
143 }
144 else{
145 report(
ERROR,
"EvtGen") <<
"Wrong lepton number"<<endl;
146 }
147 }
148
149 amp.
vertex(0,0,0,l1.
cont(temp_00_term1+temp_00_term2));
150 amp.
vertex(0,0,1,l2.
cont(temp_00_term1+temp_00_term2));
151
152 amp.
vertex(0,1,0,l1.
cont(temp_01_term1+temp_01_term2));
153 amp.
vertex(0,1,1,l2.
cont(temp_01_term1+temp_01_term2));
154
155 amp.
vertex(1,0,0,l1.
cont(temp_10_term1+temp_10_term2));
156 amp.
vertex(1,0,1,l2.
cont(temp_10_term1+temp_10_term2));
157
158 amp.
vertex(1,1,0,l1.
cont(temp_11_term1+temp_11_term2));
159 amp.
vertex(1,1,1,l2.
cont(temp_11_term1+temp_11_term2));
160
161 return;
162}
****INTEGER imax DOUBLE PRECISION m_pi *DOUBLE PRECISION m_amfin DOUBLE PRECISION m_Chfin DOUBLE PRECISION m_Xenph DOUBLE PRECISION m_sinw2 DOUBLE PRECISION m_GFermi DOUBLE PRECISION m_MfinMin DOUBLE PRECISION m_ta2 INTEGER m_out INTEGER m_KeyFSR INTEGER m_KeyQCD *COMMON c_Semalib $ !copy of input $ !CMS energy $ !beam mass $ !final mass $ !beam charge $ !final charge $ !smallest final mass $ !Z mass $ !Z width $ !EW mixing angle $ !Gmu Fermi $ alphaQED at q
EvtVector4C EvtLeptonVACurrent(const EvtDiracSpinor &d, const EvtDiracSpinor &dp)
ostream & report(Severity severity, const char *facility)
void vertex(const EvtComplex &)
static const EvtGammaMatrix & g0()
static const EvtGammaMatrix & g2()
static const EvtGammaMatrix & g1()
static const EvtGammaMatrix & g3()
static const EvtGammaMatrix & g5()
static EvtId getId(const std::string &name)
virtual EvtDiracSpinor spParentNeutrino() const
virtual EvtDiracSpinor spParent(int) const
const EvtVector4R & getP4() const
EvtParticle * getDaug(int i)
virtual EvtDiracSpinor sp(int) const
virtual void getbaryonff(EvtId parent, EvtId daught, double t, double m_meson, double *f1v, double *f1a, double *f2v, double *f2a)
void set(int, const EvtComplex &)
EvtComplex cont(const EvtVector4C &v4) const
void set(int i, double d)