~maddevelopers/mg5amcnlo/simple_unlops

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/short_ML_SMQCD_default/gg_ttx/%..%..%Source%MODEL%mp_intparam_definition.inc

  • Committer: olivier-mattelaer
  • Date: 2021-05-31 14:46:34 UTC
  • mfrom: (965.1.13 3.1.1)
  • Revision ID: olivier-mattelaer-20210531144634-0qfepzcamyo7cy8u
pass to 3.1.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
8
8
 
9
9
        MP__G = 2 * SQRT(MP__AS*MP__PI)  ! for the first init
10
10
 
11
 
        MP__MDL_LHV = 1.000000E+00_16
 
11
        MP__MDL_CKM33 = 1.000000E+00_16
 
12
 
 
13
        MP__MDL_CKM22 = 1.000000E+00_16
12
14
 
13
15
        MP__MDL_CONJG__CKM3X3 = 1.000000E+00_16
14
16
 
15
17
        MP__MDL_CONJG__CKM22 = 1.000000E+00_16
16
18
 
17
 
        MP__MDL_CKM22 = 1.000000E+00_16
18
 
 
19
 
        MP__MDL_CKM33 = 1.000000E+00_16
20
 
 
21
19
        MP__MDL_CKM3X3 = 1.000000E+00_16
22
20
 
 
21
        MP__MDL_LHV = 1.000000E+00_16
 
22
 
23
23
        MP__MDL_NCOL = 3.000000E+00_16
24
24
 
25
25
        MP__MDL_CA = 3.000000E+00_16
165
165
 
166
166
      MP__MDL_G__EXP__2 = MP__G**2
167
167
 
 
168
      MP__MDL_G__EXP__3 = MP__G**3
 
169
 
 
170
      MP__MDL_MU_R__EXP__2 = MP__MU_R**2
 
171
 
 
172
C     
 
173
C     Parameters that should be updated for the loops.
 
174
C     
168
175
      MP__MDL_G_UVG_1EPS_ = -((MP__MDL_G__EXP__2)/(2.000000E+00_16
169
176
     $ *4.800000E+01_16*MP__PI**2))*1.100000E+01_16*MP__MDL_CA
170
177
 
171
178
      MP__MDL_G_UVB_1EPS_ = ((MP__MDL_G__EXP__2)/(2.000000E+00_16
172
179
     $ *4.800000E+01_16*MP__PI**2))*4.000000E+00_16*MP__MDL_TF
173
180
 
174
 
      MP__MDL_GWCFT_UV_B_1EPS_ = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
175
 
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
176
 
     $ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
177
 
     $ *MP__MDL_TF,KIND=16))
178
 
 
179
 
      MP__MDL_GWCFT_UV_T_1EPS_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
180
 
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
181
 
     $ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
182
 
     $ *MP__MDL_TF,KIND=16))
183
 
 
184
 
      MP__MDL_BWCFT_UV_1EPS_ = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
185
 
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
186
 
     $ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*3.000000E+00_16
187
 
     $ *MP__MDL_CF,KIND=16))
188
 
 
189
 
      MP__MDL_TWCFT_UV_1EPS_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
190
 
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
191
 
     $ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*3.000000E+00_16
192
 
     $ *MP__MDL_CF,KIND=16))
193
 
 
194
181
      MP__MDL_TMASS_UV_1EPS_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
195
182
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(MP__MDL_COMPLEXI
196
183
     $ *((MP__MDL_G__EXP__2)/(1.600000E+01_16*MP__PI**2))*3.000000E
197
184
     $ +00_16*MP__MDL_CF*MP__MDL_MT,KIND=16))
198
185
 
199
 
      MP__MDL_G__EXP__3 = MP__G**3
200
 
 
201
 
      MP__MDL_MU_R__EXP__2 = MP__MU_R**2
202
 
 
203
186
      MP__MDL_G_UVB_FIN_ = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
204
187
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
205
188
     $ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
212
195
     $ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2
213
196
     $ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))
214
197
 
215
 
      MP__MDL_GWCFT_UV_B_FIN_ = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
216
 
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)
217
 
     $ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
218
 
     $ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2
219
 
     $ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))
220
 
 
221
 
      MP__MDL_GWCFT_UV_T_FIN_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
222
 
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)
223
 
     $ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
224
 
     $ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2
225
 
     $ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))
226
 
 
227
 
      MP__MDL_BWCFT_UV_FIN_ = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
228
 
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
229
 
     $ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF
230
 
     $ *(4.000000E+00_16-3.000000E+00_16
231
 
     $ *MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2/MP__MDL_MU_R__EXP__2)
232
 
     $ ,KIND=16))),KIND=16))
233
 
 
234
 
      MP__MDL_TWCFT_UV_FIN_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
235
 
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
236
 
     $ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF
237
 
     $ *(4.000000E+00_16-3.000000E+00_16
238
 
     $ *MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2/MP__MDL_MU_R__EXP__2)
239
 
     $ ,KIND=16))),KIND=16))
240
 
 
241
198
      MP__MDL_TMASS_UV_FIN_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
242
199
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(MP__MDL_COMPLEXI
243
200
     $ *((MP__MDL_G__EXP__2)/(1.600000E+01_16*MP__PI**2))*MP__MDL_CF
248
205
C     
249
206
C     Definition of the EW coupling used in the write out of aqed
250
207
C     
251
 
      MP__GAL(1) = 2 * SQRT(MP__PI/MP__AEWM1)
 
208
      MP__GAL(1) = 2 * SQRT(MP__PI/ABS(MP__AEWM1))
252
209
      MP__GAL(2) = 1D0
253
210