← Back to branch summary

~maddevelopers/mg5amcnlo/3.0.2-pineappl

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/short_ML_SMQCD_LoopInduced/gg_hh/%..%..%Source%MODEL%model_functions.f

  • Committer: marco zaro
  • Date: 2020-09-18 11:00:14 UTC
  • mfrom: (956.1.11 3.0.4)
  • Revision ID: marcozaro@pcteor1.mi.infn.it-20200918110014-5jc20pkwceijqspw
merged with 3.0.4 rev967

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/short_ML_SMQCD_LoopInduced/gg_hh/%..%..%Source%MODEL%model_functions.f
207
207
      COMPLEX*32 FUNCTION MP_REGLOG(ARG_IN)
208
208
      IMPLICIT NONE
209
209
      COMPLEX*32 TWOPII
210
 
      PARAMETER (TWOPII=2.0E0_16*3.14169258478796109557151794433593750E
211
 
     $0_16*(0.0E0_16,1.0E0_16))
 
210
      PARAMETER (TWOPII=2.0E0_16
 
211
     $ *3.14169258478796109557151794433593750E0_16*(0.0E0_16,1.0E0_16))
212
212
      COMPLEX*32 ARG_IN
213
213
      COMPLEX*32 ARG
214
214
      ARG=ARG_IN
228
228
      COMPLEX*32 FUNCTION MP_REGLOGP(ARG_IN)
229
229
      IMPLICIT NONE
230
230
      COMPLEX*32 TWOPII
231
 
      PARAMETER (TWOPII=2.0E0_16*3.14169258478796109557151794433593750E
232
 
     $0_16*(0.0E0_16,1.0E0_16))
 
231
      PARAMETER (TWOPII=2.0E0_16
 
232
     $ *3.14169258478796109557151794433593750E0_16*(0.0E0_16,1.0E0_16))
233
233
      COMPLEX*32 ARG_IN
234
234
      COMPLEX*32 ARG
235
235
      ARG=ARG_IN
254
254
      COMPLEX*32 FUNCTION MP_REGLOGM(ARG_IN)
255
255
      IMPLICIT NONE
256
256
      COMPLEX*32 TWOPII
257
 
      PARAMETER (TWOPII=2.0E0_16*3.14169258478796109557151794433593750E
258
 
     $0_16*(0.0E0_16,1.0E0_16))
 
257
      PARAMETER (TWOPII=2.0E0_16
 
258
     $ *3.14169258478796109557151794433593750E0_16*(0.0E0_16,1.0E0_16))
259
259
      COMPLEX*32 ARG_IN
260
260
      COMPLEX*32 ARG
261
261
      ARG=ARG_IN
294
294
      COMPLEX*32 FUNCTION MP_GRREGLOG(LOGSW,EXPR1_IN,EXPR2_IN)
295
295
      IMPLICIT NONE
296
296
      COMPLEX*32 TWOPII
297
 
      PARAMETER (TWOPII=2.0E0_16*3.14169258478796109557151794433593750E
298
 
     $0_16*(0.0E0_16,1.0E0_16))
 
297
      PARAMETER (TWOPII=2.0E0_16
 
298
     $ *3.14169258478796109557151794433593750E0_16*(0.0E0_16,1.0E0_16))
299
299
      COMPLEX*32 EXPR1_IN,EXPR2_IN
300
300
      COMPLEX*32 EXPR1,EXPR2
301
301
      REAL*16 LOGSW