← Back to branch summary

~maddevelopers/mg5amcnlo/simple_unlops

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/long_ML_SMQCD_default/dux_mumvmxg/%..%..%Source%MODEL%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:
tests/input_files/IOTestsComparison/long_ML_SMQCD_default/dux_mumvmxg/%..%..%Source%MODEL%intparam_definition.inc
8
8
 
9
9
        G = 2 * DSQRT(AS*PI)  ! for the first init
10
10
 
11
 
        MDL_LHV = 1.000000D+00
 
11
        MDL_CKM33 = 1.000000D+00
 
12
 
 
13
        MDL_CKM22 = 1.000000D+00
12
14
 
13
15
        MDL_CONJG__CKM3X3 = 1.000000D+00
14
16
 
15
17
        MDL_CONJG__CKM22 = 1.000000D+00
16
18
 
17
 
        MDL_CKM22 = 1.000000D+00
18
 
 
19
 
        MDL_CKM33 = 1.000000D+00
20
 
 
21
19
        MDL_CKM3X3 = 1.000000D+00
22
20
 
 
21
        MDL_LHV = 1.000000D+00
 
22
 
23
23
        MDL_NCOL = 3.000000D+00
24
24
 
25
25
        MDL_CA = 3.000000D+00
154
154
 
155
155
      MDL_G__EXP__2 = G**2
156
156
 
157
 
      MDL_R2MIXEDFACTOR_FIN_ = -(MDL_G__EXP__2*(1.000000D+00+MDL_LHV)
158
 
     $ *(MDL_NCOL__EXP__2-1.000000D+00))/(2.000000D+00*MDL_NCOL
159
 
     $ *1.600000D+01*PI**2)
160
 
 
161
 
      MDL_G_UVG_1EPS_ = -((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01
162
 
     $ *PI**2))*1.100000D+01*MDL_CA
163
 
 
164
 
      MDL_G_UVB_1EPS_ = ((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI
165
 
     $ **2))*4.000000D+00*MDL_TF
166
 
 
167
 
      MDL_GWCFT_UV_B_1EPS_ = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
168
 
     $ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
169
 
     $ *4.000000D+00*MDL_TF))
170
 
 
171
 
      MDL_GWCFT_UV_T_1EPS_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
172
 
     $ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
173
 
     $ *4.000000D+00*MDL_TF))
174
 
 
175
 
      MDL_BWCFT_UV_1EPS_ = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
176
 
     $ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*1.600000D+01*PI**2))
177
 
     $ *3.000000D+00*MDL_CF))
178
 
 
179
 
      MDL_TWCFT_UV_1EPS_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
180
 
     $ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*1.600000D+01*PI**2))
181
 
     $ *3.000000D+00*MDL_CF))
182
 
 
183
157
      MDL_G__EXP__3 = G**3
184
158
 
185
159
      MDL_MU_R__EXP__2 = MU_R**2
186
160
 
187
 
      MDL_G_UVB_FIN_ = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
188
 
     $ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
189
 
     $ *4.000000D+00*MDL_TF*REGLOG(DCMPLX(MDL_MB__EXP__2
190
 
     $ /MDL_MU_R__EXP__2))))
191
 
 
192
 
      MDL_G_UVT_FIN_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
193
 
     $ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
194
 
     $ *4.000000D+00*MDL_TF*REGLOG(DCMPLX(MDL_MT__EXP__2
195
 
     $ /MDL_MU_R__EXP__2))))
196
 
 
197
 
      MDL_GWCFT_UV_B_FIN_ = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
198
 
     $ ,DCMPLX(((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
199
 
     $ *4.000000D+00*MDL_TF*REGLOG(DCMPLX(MDL_MB__EXP__2
200
 
     $ /MDL_MU_R__EXP__2))))
201
 
 
202
 
      MDL_GWCFT_UV_T_FIN_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
203
 
     $ ,DCMPLX(((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
204
 
     $ *4.000000D+00*MDL_TF*REGLOG(DCMPLX(MDL_MT__EXP__2
205
 
     $ /MDL_MU_R__EXP__2))))
206
 
 
207
 
      MDL_BWCFT_UV_FIN_ = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
208
 
     $ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*1.600000D+01*PI**2))
209
 
     $ *MDL_CF*(4.000000D+00-3.000000D+00*REGLOG(DCMPLX(MDL_MB__EXP__2
210
 
     $ /MDL_MU_R__EXP__2)))))
211
 
 
212
 
      MDL_TWCFT_UV_FIN_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
213
 
     $ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*1.600000D+01*PI**2))
214
 
     $ *MDL_CF*(4.000000D+00-3.000000D+00*REGLOG(DCMPLX(MDL_MT__EXP__2
215
 
     $ /MDL_MU_R__EXP__2)))))
216
 
 
 
161
C     
 
162
C     Parameters that should be updated for the loops.
 
163
C     
 
164
      IF (UPDATELOOP) THEN
 
165
        MDL_R2MIXEDFACTOR_FIN_ = -(MDL_G__EXP__2*(1.000000D+00+MDL_LHV)
 
166
     $   *(MDL_NCOL__EXP__2-1.000000D+00))/(2.000000D+00*MDL_NCOL
 
167
     $   *1.600000D+01*PI**2)
 
168
 
 
169
        MDL_G_UVG_1EPS_ = -((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01
 
170
     $   *PI**2))*1.100000D+01*MDL_CA
 
171
 
 
172
        MDL_G_UVB_1EPS_ = ((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01
 
173
     $   *PI**2))*4.000000D+00*MDL_TF
 
174
 
 
175
        MDL_G_UVB_FIN_ = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
 
176
     $   ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
 
177
     $   *4.000000D+00*MDL_TF*REGLOG(DCMPLX(MDL_MB__EXP__2
 
178
     $   /MDL_MU_R__EXP__2))))
 
179
 
 
180
        MDL_G_UVT_FIN_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
 
181
     $   ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
 
182
     $   *4.000000D+00*MDL_TF*REGLOG(DCMPLX(MDL_MT__EXP__2
 
183
     $   /MDL_MU_R__EXP__2))))
 
184
 
 
185
      ENDIF
217
186
C     
218
187
C     Definition of the EW coupling used in the write out of aqed
219
188
C     
220
 
      GAL(1) = 3.5449077018110318D0 / DSQRT(AEWM1)
 
189
      GAL(1) = 3.5449077018110318D0 / DSQRT(ABS(AEWM1))
221
190
      GAL(2) = 1D0
222
191