← 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/gg_wmtbx/CT_interface.f

merged with 2.3 rev286

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/long_ML_SMQCD_default/gg_wmtbx/CT_interface.f
49
49
      COMMON/ML5_0_CT/LSCALE,CTMODE
50
50
 
51
51
      INTEGER WE(NEXTERNAL)
52
 
      INTEGER ID, SYMFACT, AMPLNUM
53
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT, AMPLNUM
 
52
      INTEGER ID, SYMFACT, MULTIPLIER, AMPLNUM
 
53
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT, MULTIPLIER, AMPLNUM
54
54
 
55
55
C     ----------
56
56
C     BEGIN CODE
153
153
 
154
154
      SUBROUTINE ML5_0_LOOP_3_3( LID, W1, W2, W3, M1,MP_M1, M2,MP_M2
155
155
     $ , M3,MP_M3, C1,MP_C1, C2,MP_C2, C3,MP_C3,  RANK, LSYMFACT
156
 
     $ , AMPLN, RES, STABLE)
 
156
     $ , LMULTIPLIER, AMPLN, RES, STABLE)
157
157
 
158
158
      INTEGER    NEXTERNAL
159
159
      PARAMETER (NEXTERNAL=5)
175
175
      COMPLEX*32 MP_C1, MP_C2, MP_C3
176
176
 
177
177
      COMPLEX*16 RES(3)
178
 
      INTEGER LID, RANK, LSYMFACT
 
178
      INTEGER LID, RANK, LSYMFACT, LMULTIPLIER
179
179
      INTEGER AMPLN
180
180
      LOGICAL STABLE
181
181
C     
189
189
C     GLOBAL VARIABLES
190
190
C     
191
191
      INTEGER WE(NEXTERNAL)
192
 
      INTEGER ID, SYMFACT, AMPLNUM
193
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT, AMPLNUM
 
192
      INTEGER ID, SYMFACT, MULTIPLIER, AMPLNUM
 
193
      COMMON/ML5_0_LOOP/WE,ID, SYMFACT, MULTIPLIER,AMPLNUM
194
194
 
195
195
      COMPLEX*16 LC(MAXLCOUPLINGS)
196
196
      COMPLEX*16 ML(NEXTERNAL+2)
238
238
      AMPLNUM=AMPLN
239
239
      ID=LID
240
240
      SYMFACT=LSYMFACT
 
241
      MULTIPLIER=LMULTIPLIER
241
242
      DO I=0,3
242
243
        TEMP=1
243
244
        DO J=1,NLOOPLINE
253
254
      END
254
255
 
255
256
      SUBROUTINE ML5_0_LOOP_2_2( LID, W1, W2, M1,MP_M1, M2,MP_M2, C1
256
 
     $ ,MP_C1, C2,MP_C2,  RANK, LSYMFACT, AMPLN, RES, STABLE)
 
257
     $ ,MP_C1, C2,MP_C2,  RANK, LSYMFACT, LMULTIPLIER, AMPLN, RES
 
258
     $ , STABLE)
257
259
 
258
260
      INTEGER    NEXTERNAL
259
261
      PARAMETER (NEXTERNAL=5)
275
277
      COMPLEX*32 MP_C1, MP_C2
276
278
 
277
279
      COMPLEX*16 RES(3)
278
 
      INTEGER LID, RANK, LSYMFACT
 
280
      INTEGER LID, RANK, LSYMFACT, LMULTIPLIER
279
281
      INTEGER AMPLN
280
282
      LOGICAL STABLE
281
283
C     
289
291
C     GLOBAL VARIABLES
290
292
C     
291
293
      INTEGER WE(NEXTERNAL)
292
 
      INTEGER ID, SYMFACT, AMPLNUM
293
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT, AMPLNUM
 
294
      INTEGER ID, SYMFACT, MULTIPLIER, AMPLNUM
 
295
      COMMON/ML5_0_LOOP/WE,ID, SYMFACT, MULTIPLIER,AMPLNUM
294
296
 
295
297
      COMPLEX*16 LC(MAXLCOUPLINGS)
296
298
      COMPLEX*16 ML(NEXTERNAL+2)
332
334
      AMPLNUM=AMPLN
333
335
      ID=LID
334
336
      SYMFACT=LSYMFACT
 
337
      MULTIPLIER=LMULTIPLIER
335
338
      DO I=0,3
336
339
        TEMP=1
337
340
        DO J=1,NLOOPLINE
348
351
 
349
352
      SUBROUTINE ML5_0_LOOP_3_4_3( LID, P1, P2, P3, W1, W2, W3, W4, M1
350
353
     $ ,MP_M1, M2,MP_M2, M3,MP_M3, C1,MP_C1, C2,MP_C2, C3,MP_C3,  RANK
351
 
     $ , LSYMFACT, AMPLN, RES, STABLE)
 
354
     $ , LSYMFACT, LMULTIPLIER, AMPLN, RES, STABLE)
352
355
 
353
356
      INTEGER    NEXTERNAL
354
357
      PARAMETER (NEXTERNAL=5)
370
373
      COMPLEX*32 MP_C1, MP_C2, MP_C3
371
374
      INTEGER P1, P2, P3
372
375
      COMPLEX*16 RES(3)
373
 
      INTEGER LID, RANK, LSYMFACT
 
376
      INTEGER LID, RANK, LSYMFACT, LMULTIPLIER
374
377
      INTEGER AMPLN
375
378
      LOGICAL STABLE
376
379
C     
384
387
C     GLOBAL VARIABLES
385
388
C     
386
389
      INTEGER WE(NEXTERNAL)
387
 
      INTEGER ID, SYMFACT, AMPLNUM
388
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT, AMPLNUM
 
390
      INTEGER ID, SYMFACT, MULTIPLIER, AMPLNUM
 
391
      COMMON/ML5_0_LOOP/WE,ID, SYMFACT, MULTIPLIER,AMPLNUM
389
392
 
390
393
      COMPLEX*16 LC(MAXLCOUPLINGS)
391
394
      COMPLEX*16 ML(NEXTERNAL+2)
433
436
      AMPLNUM=AMPLN
434
437
      ID=LID
435
438
      SYMFACT=LSYMFACT
 
439
      MULTIPLIER=LMULTIPLIER
436
440
      DO I=0,3
437
441
        TEMP=1
438
442
        DO J=1,NLOOPLINE
448
452
      END
449
453
 
450
454
      SUBROUTINE ML5_0_LOOP_2_3_2( LID, P1, P2, W1, W2, W3, M1,MP_M1
451
 
     $ , M2,MP_M2, C1,MP_C1, C2,MP_C2,  RANK, LSYMFACT, AMPLN, RES
452
 
     $ , STABLE)
 
455
     $ , M2,MP_M2, C1,MP_C1, C2,MP_C2,  RANK, LSYMFACT, LMULTIPLIER
 
456
     $ , AMPLN, RES, STABLE)
453
457
 
454
458
      INTEGER    NEXTERNAL
455
459
      PARAMETER (NEXTERNAL=5)
471
475
      COMPLEX*32 MP_C1, MP_C2
472
476
      INTEGER P1, P2
473
477
      COMPLEX*16 RES(3)
474
 
      INTEGER LID, RANK, LSYMFACT
 
478
      INTEGER LID, RANK, LSYMFACT, LMULTIPLIER
475
479
      INTEGER AMPLN
476
480
      LOGICAL STABLE
477
481
C     
485
489
C     GLOBAL VARIABLES
486
490
C     
487
491
      INTEGER WE(NEXTERNAL)
488
 
      INTEGER ID, SYMFACT, AMPLNUM
489
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT, AMPLNUM
 
492
      INTEGER ID, SYMFACT, MULTIPLIER, AMPLNUM
 
493
      COMMON/ML5_0_LOOP/WE,ID, SYMFACT, MULTIPLIER,AMPLNUM
490
494
 
491
495
      COMPLEX*16 LC(MAXLCOUPLINGS)
492
496
      COMPLEX*16 ML(NEXTERNAL+2)
527
531
      AMPLNUM=AMPLN
528
532
      ID=LID
529
533
      SYMFACT=LSYMFACT
 
534
      MULTIPLIER=LMULTIPLIER
530
535
      DO I=0,3
531
536
        TEMP=1
532
537
        DO J=1,NLOOPLINE
543
548
 
544
549
      SUBROUTINE ML5_0_LOOP_4_5_4( LID, P1, P2, P3, P4, W1, W2, W3, W4
545
550
     $ , W5, M1,MP_M1, M2,MP_M2, M3,MP_M3, M4,MP_M4, C1,MP_C1, C2
546
 
     $ ,MP_C2, C3,MP_C3, C4,MP_C4,  RANK, LSYMFACT, AMPLN, RES, STABLE)
 
551
     $ ,MP_C2, C3,MP_C3, C4,MP_C4,  RANK, LSYMFACT, LMULTIPLIER, AMPLN
 
552
     $ , RES, STABLE)
547
553
 
548
554
      INTEGER    NEXTERNAL
549
555
      PARAMETER (NEXTERNAL=5)
565
571
      COMPLEX*32 MP_C1, MP_C2, MP_C3, MP_C4
566
572
      INTEGER P1, P2, P3, P4
567
573
      COMPLEX*16 RES(3)
568
 
      INTEGER LID, RANK, LSYMFACT
 
574
      INTEGER LID, RANK, LSYMFACT, LMULTIPLIER
569
575
      INTEGER AMPLN
570
576
      LOGICAL STABLE
571
577
C     
579
585
C     GLOBAL VARIABLES
580
586
C     
581
587
      INTEGER WE(NEXTERNAL)
582
 
      INTEGER ID, SYMFACT, AMPLNUM
583
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT, AMPLNUM
 
588
      INTEGER ID, SYMFACT, MULTIPLIER, AMPLNUM
 
589
      COMMON/ML5_0_LOOP/WE,ID, SYMFACT, MULTIPLIER,AMPLNUM
584
590
 
585
591
      COMPLEX*16 LC(MAXLCOUPLINGS)
586
592
      COMPLEX*16 ML(NEXTERNAL+2)
635
641
      AMPLNUM=AMPLN
636
642
      ID=LID
637
643
      SYMFACT=LSYMFACT
 
644
      MULTIPLIER=LMULTIPLIER
638
645
      DO I=0,3
639
646
        TEMP=1
640
647
        DO J=1,NLOOPLINE
651
658
 
652
659
      SUBROUTINE ML5_0_LOOP_4_4( LID, W1, W2, W3, W4, M1,MP_M1, M2
653
660
     $ ,MP_M2, M3,MP_M3, M4,MP_M4, C1,MP_C1, C2,MP_C2, C3,MP_C3, C4
654
 
     $ ,MP_C4,  RANK, LSYMFACT, AMPLN, RES, STABLE)
 
661
     $ ,MP_C4,  RANK, LSYMFACT, LMULTIPLIER, AMPLN, RES, STABLE)
655
662
 
656
663
      INTEGER    NEXTERNAL
657
664
      PARAMETER (NEXTERNAL=5)
673
680
      COMPLEX*32 MP_C1, MP_C2, MP_C3, MP_C4
674
681
 
675
682
      COMPLEX*16 RES(3)
676
 
      INTEGER LID, RANK, LSYMFACT
 
683
      INTEGER LID, RANK, LSYMFACT, LMULTIPLIER
677
684
      INTEGER AMPLN
678
685
      LOGICAL STABLE
679
686
C     
687
694
C     GLOBAL VARIABLES
688
695
C     
689
696
      INTEGER WE(NEXTERNAL)
690
 
      INTEGER ID, SYMFACT, AMPLNUM
691
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT, AMPLNUM
 
697
      INTEGER ID, SYMFACT, MULTIPLIER, AMPLNUM
 
698
      COMMON/ML5_0_LOOP/WE,ID, SYMFACT, MULTIPLIER,AMPLNUM
692
699
 
693
700
      COMPLEX*16 LC(MAXLCOUPLINGS)
694
701
      COMPLEX*16 ML(NEXTERNAL+2)
742
749
      AMPLNUM=AMPLN
743
750
      ID=LID
744
751
      SYMFACT=LSYMFACT
 
752
      MULTIPLIER=LMULTIPLIER
745
753
      DO I=0,3
746
754
        TEMP=1
747
755
        DO J=1,NLOOPLINE
758
766
 
759
767
      SUBROUTINE ML5_0_LOOP_5_5( LID, W1, W2, W3, W4, W5, M1,MP_M1, M2
760
768
     $ ,MP_M2, M3,MP_M3, M4,MP_M4, M5,MP_M5, C1,MP_C1, C2,MP_C2, C3
761
 
     $ ,MP_C3, C4,MP_C4, C5,MP_C5,  RANK, LSYMFACT, AMPLN, RES, STABLE)
 
769
     $ ,MP_C3, C4,MP_C4, C5,MP_C5,  RANK, LSYMFACT, LMULTIPLIER, AMPLN
 
770
     $ , RES, STABLE)
762
771
 
763
772
      INTEGER    NEXTERNAL
764
773
      PARAMETER (NEXTERNAL=5)
780
789
      COMPLEX*32 MP_C1, MP_C2, MP_C3, MP_C4, MP_C5
781
790
 
782
791
      COMPLEX*16 RES(3)
783
 
      INTEGER LID, RANK, LSYMFACT
 
792
      INTEGER LID, RANK, LSYMFACT, LMULTIPLIER
784
793
      INTEGER AMPLN
785
794
      LOGICAL STABLE
786
795
C     
794
803
C     GLOBAL VARIABLES
795
804
C     
796
805
      INTEGER WE(NEXTERNAL)
797
 
      INTEGER ID, SYMFACT, AMPLNUM
798
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT, AMPLNUM
 
806
      INTEGER ID, SYMFACT, MULTIPLIER, AMPLNUM
 
807
      COMMON/ML5_0_LOOP/WE,ID, SYMFACT, MULTIPLIER,AMPLNUM
799
808
 
800
809
      COMPLEX*16 LC(MAXLCOUPLINGS)
801
810
      COMPLEX*16 ML(NEXTERNAL+2)
855
864
      AMPLNUM=AMPLN
856
865
      ID=LID
857
866
      SYMFACT=LSYMFACT
 
867
      MULTIPLIER=LMULTIPLIER
858
868
      DO I=0,3
859
869
        TEMP=1
860
870
        DO J=1,NLOOPLINE