← 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

  • Committer: olivier Mattelaer
  • Date: 2016-05-12 11:00:18 UTC
  • mfrom: (262.1.150 2.3.4)
  • Revision ID: olivier.mattelaer@uclouvain.be-20160512110018-sevb79f0wm4g8mpp
pass to 2.4.0

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
127
127
      IMPLICIT NONE
128
128
      COMPLEX*32 TWOPII
129
129
      PARAMETER (TWOPII=2.0E0_16*3.14169258478796109557151794433593750E
130
 
     $ 0_16*(0.0E0_16,1.0E0_16))
 
130
     $0_16*(0.0E0_16,1.0E0_16))
131
131
      COMPLEX*32 ARG
132
132
      IF(ARG.EQ.(0.0E0_16,0.0E0_16)) THEN
133
133
        MP_REGLOG=(0.0E0_16,0.0E0_16)
140
140
      IMPLICIT NONE
141
141
      COMPLEX*32 TWOPII
142
142
      PARAMETER (TWOPII=2.0E0_16*3.14169258478796109557151794433593750E
143
 
     $ 0_16*(0.0E0_16,1.0E0_16))
 
143
     $0_16*(0.0E0_16,1.0E0_16))
144
144
      COMPLEX*32 ARG
145
145
      IF(ARG.EQ.(0.0E0_16,0.0E0_16))THEN
146
146
        MP_REGLOGP=(0.0E0_16,0.0E0_16)
147
147
      ELSE
148
 
        IF(REAL(ARG,KIND=16).LT.0.0E0_16.AND.IMAGPART(ARG).LT.0.0E0_16
149
 
     $   )THEN
 
148
        IF(REAL(ARG,KIND=16).LT.0.0E0_16.AND.IMAGPART(ARG).LT.0.0E0_16)
 
149
     $   THEN
150
150
          MP_REGLOGP=LOG(ARG) + TWOPII
151
151
        ELSE
152
152
          MP_REGLOGP=LOG(ARG)
158
158
      IMPLICIT NONE
159
159
      COMPLEX*32 TWOPII
160
160
      PARAMETER (TWOPII=2.0E0_16*3.14169258478796109557151794433593750E
161
 
     $ 0_16*(0.0E0_16,1.0E0_16))
 
161
     $0_16*(0.0E0_16,1.0E0_16))
162
162
      COMPLEX*32 ARG
163
163
      IF(ARG.EQ.(0.0E0_16,0.0E0_16))THEN
164
164
        MP_REGLOGM=(0.0E0_16,0.0E0_16)
165
165
      ELSE
166
 
        IF(REAL(ARG,KIND=16).LT.0.0E0_16.AND.IMAGPART(ARG).GT.0.0E0_16
167
 
     $   )THEN
 
166
        IF(REAL(ARG,KIND=16).LT.0.0E0_16.AND.IMAGPART(ARG).GT.0.0E0_16)
 
167
     $   THEN
168
168
          MP_REGLOGM=LOG(ARG) - TWOPII
169
169
        ELSE
170
170
          MP_REGLOGM=LOG(ARG)