← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/MadLoop_output_from_the_interface/TIR_output/%ggttx_IOTest%SubProcesses%P0_gg_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/MadLoop_output_from_the_interface/TIR_output/%ggttx_IOTest%SubProcesses%P0_gg_ttx%CT_interface.f
6
6
C     
7
7
C     Interface between MG5 and CutTools.
8
8
C     
9
 
C     Process: g g > t t~ [ QCD ]
 
9
C     Process: g g > t t~ [ virt = QCD ]
10
10
C     
11
11
C     
12
12
C     CONSTANTS 
153
153
 
154
154
      SUBROUTINE ML5_0_LOOP_2_3(P1, P2, W1, W2, W3, M1, M2,  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
175
174
      INTEGER P1, P2
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
265
265
     $     ,LOOPNUM))
266
266
        ENDIF
267
267
      ELSE
268
 
        LOOPRES(1,SQUAREDSOINDEX,LOOPNUM)=0.0D0
269
 
        LOOPRES(2,SQUAREDSOINDEX,LOOPNUM)=0.0D0
270
 
        LOOPRES(3,SQUAREDSOINDEX,LOOPNUM)=0.0D0
 
268
        LOOPRES(1,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
 
269
        LOOPRES(2,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
 
270
        LOOPRES(3,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
271
271
        S(SQUAREDSOINDEX,LOOPNUM)=.TRUE.
272
272
      ENDIF
273
273
      END
274
274
 
275
275
      SUBROUTINE ML5_0_LOOP_4(W1, W2, W3, W4, M1, M2, M3, M4,  RANK
276
276
     $ , SQUAREDSOINDEX, LOOPNUM)
277
 
 
278
277
      INTEGER    NEXTERNAL
279
278
      PARAMETER (NEXTERNAL=4)
280
279
      INTEGER    NLOOPLINE
295
294
      COMPLEX*16 M1, M2, M3, M4
296
295
 
297
296
      INTEGER RANK, LSYMFACT
298
 
      INTEGER SQUAREDSOINDEX, LOOPNUM
 
297
      INTEGER LOOPNUM, SQUAREDSOINDEX
299
298
C     
300
299
C     LOCAL VARIABLES 
301
300
C     
323
322
      LOGICAL S(NSQUAREDSO,NLOOPGROUPS)
324
323
      COMMON/ML5_0_LOOPRES/LOOPRES,S
325
324
 
 
325
 
326
326
      COMPLEX*16 W(20,NWAVEFUNCS)
327
327
      COMMON/ML5_0_W/W
328
328
      REAL*8 LSCALE
391
391
     $     ,LOOPNUM))
392
392
        ENDIF
393
393
      ELSE
394
 
        LOOPRES(1,SQUAREDSOINDEX,LOOPNUM)=0.0D0
395
 
        LOOPRES(2,SQUAREDSOINDEX,LOOPNUM)=0.0D0
396
 
        LOOPRES(3,SQUAREDSOINDEX,LOOPNUM)=0.0D0
 
394
        LOOPRES(1,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
 
395
        LOOPRES(2,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
 
396
        LOOPRES(3,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
397
397
        S(SQUAREDSOINDEX,LOOPNUM)=.TRUE.
398
398
      ENDIF
399
399
      END
400
400
 
401
401
      SUBROUTINE ML5_0_LOOP_3_4(P1, P2, P3, W1, W2, W3, W4, M1, M2, M3
402
402
     $ ,  RANK, SQUAREDSOINDEX, LOOPNUM)
403
 
 
404
403
      INTEGER    NEXTERNAL
405
404
      PARAMETER (NEXTERNAL=4)
406
405
      INTEGER    NLOOPLINE
421
420
      COMPLEX*16 M1, M2, M3
422
421
      INTEGER P1, P2, P3
423
422
      INTEGER RANK, LSYMFACT
424
 
      INTEGER SQUAREDSOINDEX, LOOPNUM
 
423
      INTEGER LOOPNUM, SQUAREDSOINDEX
425
424
C     
426
425
C     LOCAL VARIABLES 
427
426
C     
449
448
      LOGICAL S(NSQUAREDSO,NLOOPGROUPS)
450
449
      COMMON/ML5_0_LOOPRES/LOOPRES,S
451
450
 
 
451
 
452
452
      COMPLEX*16 W(20,NWAVEFUNCS)
453
453
      COMMON/ML5_0_W/W
454
454
      REAL*8 LSCALE
515
515
     $     ,LOOPNUM))
516
516
        ENDIF
517
517
      ELSE
518
 
        LOOPRES(1,SQUAREDSOINDEX,LOOPNUM)=0.0D0
519
 
        LOOPRES(2,SQUAREDSOINDEX,LOOPNUM)=0.0D0
520
 
        LOOPRES(3,SQUAREDSOINDEX,LOOPNUM)=0.0D0
 
518
        LOOPRES(1,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
 
519
        LOOPRES(2,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
 
520
        LOOPRES(3,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
521
521
        S(SQUAREDSOINDEX,LOOPNUM)=.TRUE.
522
522
      ENDIF
523
523
      END
524
524
 
525
525
      SUBROUTINE ML5_0_LOOP_3(W1, W2, W3, M1, M2, M3,  RANK, SQUAREDSOI
526
526
     $ NDEX, LOOPNUM)
527
 
 
528
527
      INTEGER    NEXTERNAL
529
528
      PARAMETER (NEXTERNAL=4)
530
529
      INTEGER    NLOOPLINE
545
544
      COMPLEX*16 M1, M2, M3
546
545
 
547
546
      INTEGER RANK, LSYMFACT
548
 
      INTEGER SQUAREDSOINDEX, LOOPNUM
 
547
      INTEGER LOOPNUM, SQUAREDSOINDEX
549
548
C     
550
549
C     LOCAL VARIABLES 
551
550
C     
573
572
      LOGICAL S(NSQUAREDSO,NLOOPGROUPS)
574
573
      COMMON/ML5_0_LOOPRES/LOOPRES,S
575
574
 
 
575
 
576
576
      COMPLEX*16 W(20,NWAVEFUNCS)
577
577
      COMMON/ML5_0_W/W
578
578
      REAL*8 LSCALE
639
639
     $     ,LOOPNUM))
640
640
        ENDIF
641
641
      ELSE
642
 
        LOOPRES(1,SQUAREDSOINDEX,LOOPNUM)=0.0D0
643
 
        LOOPRES(2,SQUAREDSOINDEX,LOOPNUM)=0.0D0
644
 
        LOOPRES(3,SQUAREDSOINDEX,LOOPNUM)=0.0D0
 
642
        LOOPRES(1,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
 
643
        LOOPRES(2,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
 
644
        LOOPRES(3,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
645
645
        S(SQUAREDSOINDEX,LOOPNUM)=.TRUE.
646
646
      ENDIF
647
647
      END
648
648
 
649
649
      SUBROUTINE ML5_0_LOOP_2(W1, W2, M1, M2,  RANK, SQUAREDSOINDEX
650
650
     $ , LOOPNUM)
651
 
 
652
651
      INTEGER    NEXTERNAL
653
652
      PARAMETER (NEXTERNAL=4)
654
653
      INTEGER    NLOOPLINE
669
668
      COMPLEX*16 M1, M2
670
669
 
671
670
      INTEGER RANK, LSYMFACT
672
 
      INTEGER SQUAREDSOINDEX, LOOPNUM
 
671
      INTEGER LOOPNUM, SQUAREDSOINDEX
673
672
C     
674
673
C     LOCAL VARIABLES 
675
674
C     
697
696
      LOGICAL S(NSQUAREDSO,NLOOPGROUPS)
698
697
      COMMON/ML5_0_LOOPRES/LOOPRES,S
699
698
 
 
699
 
700
700
      COMPLEX*16 W(20,NWAVEFUNCS)
701
701
      COMMON/ML5_0_W/W
702
702
      REAL*8 LSCALE
761
761
     $     ,LOOPNUM))
762
762
        ENDIF
763
763
      ELSE
764
 
        LOOPRES(1,SQUAREDSOINDEX,LOOPNUM)=0.0D0
765
 
        LOOPRES(2,SQUAREDSOINDEX,LOOPNUM)=0.0D0
766
 
        LOOPRES(3,SQUAREDSOINDEX,LOOPNUM)=0.0D0
 
764
        LOOPRES(1,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
 
765
        LOOPRES(2,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
 
766
        LOOPRES(3,SQUAREDSOINDEX,LOOPNUM)=(0.0D0,0.0D0)
767
767
        S(SQUAREDSOINDEX,LOOPNUM)=.TRUE.
768
768
      ENDIF
769
769
      END