← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/short_ML_SMQCD_optimized/ddx_ttx/CT_interface.f

  • Committer: olivier Mattelaer
  • Date: 2015-03-05 00:14:16 UTC
  • mfrom: (258.1.9 2.3)
  • mto: (258.8.1 2.3)
  • mto: This revision was merged to the branch mainline in revision 259.
  • Revision ID: olivier.mattelaer@uclouvain.be-20150305001416-y9mzeykfzwnl9t0j
partial merge

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/short_ML_SMQCD_optimized/ddx_ttx/CT_interface.f
153
153
 
154
154
      SUBROUTINE ML5_0_LOOP_4(W1, W2, W3, W4, M1, M2, M3, M4,  RANK
155
155
     $ , SQUAREDSOINDEX, LOOPNUM)
156
 
 
157
156
      INTEGER    NEXTERNAL
158
157
      PARAMETER (NEXTERNAL=4)
159
158
      INTEGER    NLOOPLINE
174
173
      COMPLEX*16 M1, M2, M3, M4
175
174
 
176
175
      INTEGER RANK, LSYMFACT
177
 
      INTEGER SQUAREDSOINDEX, LOOPNUM
 
176
      INTEGER LOOPNUM, SQUAREDSOINDEX
178
177
C     
179
178
C     LOCAL VARIABLES 
180
179
C     
202
201
      LOGICAL S(NSQUAREDSO,NLOOPGROUPS)
203
202
      COMMON/ML5_0_LOOPRES/LOOPRES,S
204
203
 
 
204
 
205
205
      COMPLEX*16 W(20,NWAVEFUNCS)
206
206
      COMMON/ML5_0_W/W
207
207
      REAL*8 LSCALE
270
270
     $     ,LOOPNUM))
271
271
        ENDIF
272
272
      ELSE
273
 
        LOOPRES(1,SQUAREDSOINDEX,LOOPNUM)=0.0D0
274
 
        LOOPRES(2,SQUAREDSOINDEX,LOOPNUM)=0.0D0
275
 
        LOOPRES(3,SQUAREDSOINDEX,LOOPNUM)=0.0D0
 
273
        LOOPRES(1,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
 
274
        LOOPRES(2,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
 
275
        LOOPRES(3,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
276
276
        S(SQUAREDSOINDEX,LOOPNUM)=.TRUE.
277
277
      ENDIF
278
278
      END
279
279
 
280
280
      SUBROUTINE ML5_0_LOOP_3(W1, W2, W3, M1, M2, M3,  RANK, SQUAREDSOI
281
281
     $ NDEX, LOOPNUM)
282
 
 
283
282
      INTEGER    NEXTERNAL
284
283
      PARAMETER (NEXTERNAL=4)
285
284
      INTEGER    NLOOPLINE
300
299
      COMPLEX*16 M1, M2, M3
301
300
 
302
301
      INTEGER RANK, LSYMFACT
303
 
      INTEGER SQUAREDSOINDEX, LOOPNUM
 
302
      INTEGER LOOPNUM, SQUAREDSOINDEX
304
303
C     
305
304
C     LOCAL VARIABLES 
306
305
C     
328
327
      LOGICAL S(NSQUAREDSO,NLOOPGROUPS)
329
328
      COMMON/ML5_0_LOOPRES/LOOPRES,S
330
329
 
 
330
 
331
331
      COMPLEX*16 W(20,NWAVEFUNCS)
332
332
      COMMON/ML5_0_W/W
333
333
      REAL*8 LSCALE
394
394
     $     ,LOOPNUM))
395
395
        ENDIF
396
396
      ELSE
397
 
        LOOPRES(1,SQUAREDSOINDEX,LOOPNUM)=0.0D0
398
 
        LOOPRES(2,SQUAREDSOINDEX,LOOPNUM)=0.0D0
399
 
        LOOPRES(3,SQUAREDSOINDEX,LOOPNUM)=0.0D0
 
397
        LOOPRES(1,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
 
398
        LOOPRES(2,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
 
399
        LOOPRES(3,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
400
400
        S(SQUAREDSOINDEX,LOOPNUM)=.TRUE.
401
401
      ENDIF
402
402
      END
403
403
 
404
404
      SUBROUTINE ML5_0_LOOP_2(W1, W2, M1, M2,  RANK, SQUAREDSOINDEX
405
405
     $ , LOOPNUM)
406
 
 
407
406
      INTEGER    NEXTERNAL
408
407
      PARAMETER (NEXTERNAL=4)
409
408
      INTEGER    NLOOPLINE
424
423
      COMPLEX*16 M1, M2
425
424
 
426
425
      INTEGER RANK, LSYMFACT
427
 
      INTEGER SQUAREDSOINDEX, LOOPNUM
 
426
      INTEGER LOOPNUM, SQUAREDSOINDEX
428
427
C     
429
428
C     LOCAL VARIABLES 
430
429
C     
452
451
      LOGICAL S(NSQUAREDSO,NLOOPGROUPS)
453
452
      COMMON/ML5_0_LOOPRES/LOOPRES,S
454
453
 
 
454
 
455
455
      COMPLEX*16 W(20,NWAVEFUNCS)
456
456
      COMMON/ML5_0_W/W
457
457
      REAL*8 LSCALE
516
516
     $     ,LOOPNUM))
517
517
        ENDIF
518
518
      ELSE
519
 
        LOOPRES(1,SQUAREDSOINDEX,LOOPNUM)=0.0D0
520
 
        LOOPRES(2,SQUAREDSOINDEX,LOOPNUM)=0.0D0
521
 
        LOOPRES(3,SQUAREDSOINDEX,LOOPNUM)=0.0D0
 
519
        LOOPRES(1,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
 
520
        LOOPRES(2,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
 
521
        LOOPRES(3,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
522
522
        S(SQUAREDSOINDEX,LOOPNUM)=.TRUE.
523
523
      ENDIF
524
524
      END