104 {
105
106 int model = 1;
107
110
112 double shat2=shat*shat;
113
114 if (
119 )
120 {
121 if (model == 1) {
122
123 a1 = 0.294*
exp(0.656*shat+0.456*shat2);
124 a2 = 0.246*
exp(1.237*shat+0.822*shat2);
125 a0 = 0.412*
exp(1.543*shat+0.954*shat2);
126 v = 0.399*
exp(1.537*shat+1.123*shat2);
127
128 t1 = 0.334*
exp(1.575*shat+1.140*shat2);
129 t2 = 0.334*
exp(0.562*shat+0.481*shat2);
130 t3 = 0.234*
exp(1.230*shat+1.089*shat2);
131 }
132 if (model == 2) {
133
134 a1=0.337*
exp(0.602*shat+0.258*shat2);
135 a2=0.282*
exp(1.172*shat+0.567*shat2);
136 a0=0.471*
exp(1.505*shat+0.710*shat2);
137 v=0.457*
exp(1.482*shat+1.015*shat2);
138
139 t1=0.379*
exp(1.519*shat+1.030*shat2);
140 t2=0.379*
exp(0.517*shat+0.426*shat2);
141 t3=0.260*
exp(1.129*shat+1.128*shat2);
142 }
143 if (model == 3) {
144
145 a1 = 0.30*(1 - 0.023*
t);
146 a2 = 0.40*(1 + 0.034*
t);
147 a0 = 0.3/(1.-
t/(4.8*4.8));
148 v = 0.47/(1.-
t/(5.0*5.0));
149
150 t1 = 0.19/(1.-
t/(5.3*5.3));
151 t2 = 0.19*(1. - 0.02*
t);
152 t3 = -0.7*(1. + 0.005*
t);
153 }
154
155 if (model == 4) {
156
157 a1 = 1.6/(1 - 0.0288*
t + 0.00028*
t*
t); a1 = a1/(m+md);
158 a2 = (m+md)*0.036/(1. - 0.053*
t + 0.00082*
t*
t);
159 double aminus = 0.041/(1. - 0.055*
t + 0.00088*
t*
t);
160 double f = 1.60/(1. - 0.0288*
t + 0.00028*
t*
t);
161 double aplus = -0.036/(1. - 0.053*
t + 0.00082*
t*
t);
162 a0 = (
t*aminus + f + (m*m-md*md)*aplus)/(2.0*md);
163 v = (m+md)*0.048/(1. - 0.057*
t + 0.00085*
t*
t);
164
165 t1 = 0.28/(1. - 0.058*
t + 0.0009*
t*
t);
166 double gplus = -0.28/(1. - 0.058*
t + 0.0009*
t*
t);
167 double gminus = 0.24/(1. - 0.059*
t + 0.00096*
t*
t);
168 t2 = -gplus - (
t*gminus)/(m*m-md*md);
169 double h = 0.0037/(1. - 0.075*
t + 0.0016*
t*
t);
170 t3 = (m+md)*(m+md)*((gminus/(m*m-md*md) - h/2.));
171
172 }
173 if (model == 5) {
174 a1 = 0.337/(1. - 0.60*shat - 0.023*shat*shat);
175 a2 = 0.283/(1. - 1.18*shat + 0.281*shat*shat);
176 a0 = 0.470/(1. - 1.55*shat + 0.680*shat*shat);
177 v = 0.458/(1. - 1.55*shat + 0.575*shat*shat);
178 t1 = 0.379/(1. - 1.59*shat + 0.615*shat*shat);
179 t2 = 0.379/(1. - 0.49*shat - 0.241*shat*shat);
180 t3 = 0.261/(1. - 1.20*shat + 0.098*shat*shat);
181 }
182 }
183 else if
184 (
189 )
190 {
191
192 a1 = 0.261/(1. - 0.29*shat - 0.415*shat*shat);
193 a2 = 0.223/(1. - 0.93*shat - 0.092*shat*shat);
194 a0 = 0.372/(1. - 1.40*shat + 0.437*shat*shat);
195 v = 0.338/(1. - 1.37*shat + 0.315*shat*shat);
196 t1 = 0.285/(1. - 1.41*shat + 0.361*shat*shat);
197 t2 = 0.285/(1. - 0.28*shat - 0.500*shat*shat);
198 t3 = 0.202/(1. - 1.06*shat - 0.076*shat*shat);
199 }
200
201
202
203
204}
**********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