80 {
81
82loop:
84
88
96
97
99 if(Lpt.
d3mag()<0.0001){
101 } else{
103 }
105 double c0,c2,c4,c6,c8,c10;
106 c0=0;c2=0;c4=0;c6=0;c8=0;c10=0;
107 if(narg==2) {
110 } else if (narg==3){
114 } else if (narg==4){
119 } else if (narg==5){
125 } else if (narg==6){
132 }
133
135 double costheta4= costheta2*costheta2;
136 double costheta6= costheta4*costheta2;
137 double costheta8= costheta6*costheta2;
138 double costheta10= costheta8*costheta2;
139
140 double amp1=(c0+c2*costheta2+c4*costheta4+c6*costheta6+c8*costheta8+c10*costheta10);
141 double a0,a2,a4,a6,a8,a10;
142 double ampflag;
143 if(c0<0) {
a0=0;}
else{
a0=c0;}
144 if(c2<0) {a2=0;}else{a2=c2;}
145 if(c4<0) {a4=0;}else{a4=c4;}
146 if(c6<0) {a6=0;}else{a6=c6;}
147 if(c8<0) {a8=0;}else{a8=c8;}
148 if(c10<0) {a10=0;}else{a10=c10;}
149 ampflag=
a0+a2+a4+a6+a8+a10;
150 if( ampflag<=0 ) {
151 report(
ERROR,
"EvtGen")<<
" The maxium value of amplitude square should be positive, but it is "<< ampflag<<endl;
152 ::abort();
153 }
154 ampflag = amp1/ampflag;
156 if(rd1>=ampflag) goto loop;
157 return ;
158}
character *LEPTONflag integer iresonances real zeta5 real a0
ostream & report(Severity severity, const char *facility)
**********Class see also m_nmax DOUBLE PRECISION m_amel DOUBLE PRECISION m_x2 DOUBLE PRECISION m_alfinv DOUBLE PRECISION m_Xenph INTEGER m_KeyWtm INTEGER m_idyfs DOUBLE PRECISION m_zini DOUBLE PRECISION m_q2 DOUBLE PRECISION m_Wt_KF DOUBLE PRECISION m_WtCut INTEGER m_KFfin *COMMON c_KarLud $ !Input CMS energy[GeV] $ !CMS energy after beam spread beam strahlung[GeV] $ !Beam energy spread[GeV] $ !z boost due to beam spread $ !electron beam mass *ff pair spectrum $ !minimum v
const EvtVector4R & getP4() const
EvtParticle * getDaug(int i)
double initializePhaseSpace(int numdaughter, EvtId *daughters, double poleSize=-1., int whichTwo1=0, int whichTwo2=1)
EvtVector4R cross(const EvtVector4R &v2)