65 {
66
67loop:
71
77
79
80
82 double theta =angles.getHelAng(1);
83 double phi =angles.getHelAng(2);
84 double gamma=0;
85 double F0=1.;
86 double F1=sqrt(3.)*F0;
87 double F2=sqrt(6.)*F0;
88
89
90 int j1,j2,j3;
91 for(j1=0;j1<=4;){
92 for(j2=0;j2<=1;){
93 for(j3=0;j3<=2;){
94 vertex(j1,j2,j3,0.0);j3++;}
95j2++;}
96j1++;}
97
98
99 vertex(0,0,0,
Djmn(1, 1, 1,phi,theta,gamma)*F0);
100 vertex(0,0,1,
Djmn(1,-1, 1,phi,theta,gamma)*F0);
101 vertex(0,0,2,
Djmn(1, 0, 1,phi,theta,gamma)*F0);
102 vertex(0,1,0,
Djmn(1, 1,-1,phi,theta,gamma)*F0);
103 vertex(0,1,1,
Djmn(1,-1,-1,phi,theta,gamma)*F0);
104 vertex(0,1,2,
Djmn(1, 0,-1,phi,theta,gamma)*F0);
105
106 vertex(1,0,0,
Djmn(1, 1,-1,phi,theta,gamma)*F2);
107 vertex(1,0,1,
Djmn(1,-1,-1,phi,theta,gamma)*F2);
108 vertex(1,0,2,
Djmn(1, 0,-1,phi,theta,gamma)*F2);
109
110 vertex(2,1,0,
Djmn(1, 1, 1,phi,theta,gamma)*F2);
111 vertex(2,1,1,
Djmn(1,-1, 1,phi,theta,gamma)*F2);
112 vertex(2,1,2,
Djmn(1, 0, 1,phi,theta,gamma)*F2);
113
114 vertex(3,0,0,
Djmn(1, 1, 0,phi,theta,gamma)*F1);
115 vertex(3,0,1,
Djmn(1,-1, 0,phi,theta,gamma)*F1);
116 vertex(3,0,2,
Djmn(1, 0, 0,phi,theta,gamma)*F1);
117
118 vertex(4,1,0,
Djmn(1, 1, 0,phi,theta,gamma)*F1);
119 vertex(4,1,1,
Djmn(1,-1, 0,phi,theta,gamma)*F1);
120 vertex(4,1,2,
Djmn(1, 0, 0,phi,theta,gamma)*F1);
121
122
123 return ;
124}
EvtComplex Djmn(int j, int m, int n, double phi, double theta, double gamma)
**********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
void vertex(const EvtComplex &)
const EvtVector4R & getP4() const
EvtParticle * getDaug(int i)
double initializePhaseSpace(int numdaughter, EvtId *daughters, double poleSize=-1., int whichTwo1=0, int whichTwo2=1)