← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/long_ML_SMQCD_default/dux_mumvmxg/%..%..%Source%MODEL%model_functions.f

mwrge with 2.7.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/long_ML_SMQCD_default/dux_mumvmxg/%..%..%Source%MODEL%model_functions.f
182
182
      COMPLEX*32 FUNCTION MP_REGLOG(ARG)
183
183
      IMPLICIT NONE
184
184
      COMPLEX*32 TWOPII
185
 
      PARAMETER (TWOPII=2.0E0_16*3.14169258478796109557151794433593750E
186
 
     $0_16*(0.0E0_16,1.0E0_16))
 
185
      PARAMETER (TWOPII=2.0E0_16
 
186
     $ *3.14169258478796109557151794433593750E0_16*(0.0E0_16,1.0E0_16))
187
187
      COMPLEX*32 ARG
188
188
      IF(ARG.EQ.(0.0E0_16,0.0E0_16)) THEN
189
189
        MP_REGLOG=(0.0E0_16,0.0E0_16)
195
195
      COMPLEX*32 FUNCTION MP_REGLOGP(ARG)
196
196
      IMPLICIT NONE
197
197
      COMPLEX*32 TWOPII
198
 
      PARAMETER (TWOPII=2.0E0_16*3.14169258478796109557151794433593750E
199
 
     $0_16*(0.0E0_16,1.0E0_16))
 
198
      PARAMETER (TWOPII=2.0E0_16
 
199
     $ *3.14169258478796109557151794433593750E0_16*(0.0E0_16,1.0E0_16))
200
200
      COMPLEX*32 ARG
201
201
      IF(ARG.EQ.(0.0E0_16,0.0E0_16))THEN
202
202
        MP_REGLOGP=(0.0E0_16,0.0E0_16)
213
213
      COMPLEX*32 FUNCTION MP_REGLOGM(ARG)
214
214
      IMPLICIT NONE
215
215
      COMPLEX*32 TWOPII
216
 
      PARAMETER (TWOPII=2.0E0_16*3.14169258478796109557151794433593750E
217
 
     $0_16*(0.0E0_16,1.0E0_16))
 
216
      PARAMETER (TWOPII=2.0E0_16
 
217
     $ *3.14169258478796109557151794433593750E0_16*(0.0E0_16,1.0E0_16))
218
218
      COMPLEX*32 ARG
219
219
      IF(ARG.EQ.(0.0E0_16,0.0E0_16))THEN
220
220
        MP_REGLOGM=(0.0E0_16,0.0E0_16)
246
246
      COMPLEX*32 FUNCTION MP_GRREGLOG(LOGSW,EXPR1_IN,EXPR2_IN)
247
247
      IMPLICIT NONE
248
248
      COMPLEX*32 TWOPII
249
 
      PARAMETER (TWOPII=2.0E0_16*3.14169258478796109557151794433593750E
250
 
     $0_16*(0.0E0_16,1.0E0_16))
 
249
      PARAMETER (TWOPII=2.0E0_16
 
250
     $ *3.14169258478796109557151794433593750E0_16*(0.0E0_16,1.0E0_16))
251
251
      COMPLEX*32 EXPR1_IN,EXPR2_IN
252
252
      COMPLEX*32 EXPR1,EXPR2
253
253
      REAL*16 LOGSW