← Back to branch summary

~maddevelopers/mg5amcnlo/simple_unlops

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/long_ML_SMQCD_default/gg_wmtbx/mp_born_amps_and_wfs.f

  • Committer: olivier-mattelaer
  • Date: 2021-11-12 09:29:31 UTC
  • mfrom: (967.1.15 3.3.0)
  • Revision ID: olivier-mattelaer-20211112092931-4ec9qfzgxkeovqog
version 3.3.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/long_ML_SMQCD_default/gg_wmtbx/mp_born_amps_and_wfs.f
662
662
     $     *UVWFCT_B_0_1EPS)
663
663
C         Amplitude(s) for UVCT diagram with ID 136
664
664
          CALL MP_FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),GC_5,AMPL(1,238))
665
 
          AMPL(1,238)=AMPL(1,238)*(1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2
666
 
     $     +2.0D0*UVWFCT_G_1+1.0D0*UVWFCT_B_0)
 
665
          AMPL(1,238)=AMPL(1,238)*(2.0D0*UVWFCT_G_1+2.0D0*UVWFCT_G_2
 
666
     $     +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
667
667
C         Amplitude(s) for UVCT diagram with ID 137
668
668
          CALL MP_FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),GC_5,AMPL(2,239))
669
669
          AMPL(2,239)=AMPL(2,239)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
670
670
     $     *UVWFCT_B_0_1EPS)
671
671
C         Amplitude(s) for UVCT diagram with ID 138
672
672
          CALL MP_FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),GC_5,AMPL(1,240))
673
 
          AMPL(1,240)=AMPL(1,240)*(1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2
674
 
     $     +2.0D0*UVWFCT_G_1+1.0D0*UVWFCT_B_0)
 
673
          AMPL(1,240)=AMPL(1,240)*(2.0D0*UVWFCT_G_1+2.0D0*UVWFCT_G_2
 
674
     $     +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
675
675
C         Amplitude(s) for UVCT diagram with ID 139
676
676
          CALL MP_FFV2_0(W(1,10,H),W(1,9,H),W(1,3,H),GC_11,AMPL(2,241))
677
677
          AMPL(2,241)=AMPL(2,241)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
678
678
     $     *UVWFCT_B_0_1EPS)
679
679
C         Amplitude(s) for UVCT diagram with ID 140
680
680
          CALL MP_FFV2_0(W(1,10,H),W(1,9,H),W(1,3,H),GC_11,AMPL(1,242))
681
 
          AMPL(1,242)=AMPL(1,242)*(1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2
682
 
     $     +2.0D0*UVWFCT_G_1+1.0D0*UVWFCT_B_0)
 
681
          AMPL(1,242)=AMPL(1,242)*(2.0D0*UVWFCT_G_1+2.0D0*UVWFCT_G_2
 
682
     $     +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
683
683
C         Amplitude(s) for UVCT diagram with ID 141
684
684
          CALL MP_FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),GC_5,AMPL(2,243))
685
685
          AMPL(2,243)=AMPL(2,243)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
686
686
     $     *UVWFCT_B_0_1EPS)
687
687
C         Amplitude(s) for UVCT diagram with ID 142
688
688
          CALL MP_FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),GC_5,AMPL(1,244))
689
 
          AMPL(1,244)=AMPL(1,244)*(1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2
690
 
     $     +2.0D0*UVWFCT_G_1+1.0D0*UVWFCT_B_0)
 
689
          AMPL(1,244)=AMPL(1,244)*(2.0D0*UVWFCT_G_1+2.0D0*UVWFCT_G_2
 
690
     $     +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
691
691
C         Amplitude(s) for UVCT diagram with ID 143
692
692
          CALL MP_FFV2_0(W(1,11,H),W(1,12,H),W(1,3,H),GC_11,AMPL(2,245)
693
693
     $     )
696
696
C         Amplitude(s) for UVCT diagram with ID 144
697
697
          CALL MP_FFV2_0(W(1,11,H),W(1,12,H),W(1,3,H),GC_11,AMPL(1,246)
698
698
     $     )
699
 
          AMPL(1,246)=AMPL(1,246)*(1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2
700
 
     $     +2.0D0*UVWFCT_G_1+1.0D0*UVWFCT_B_0)
 
699
          AMPL(1,246)=AMPL(1,246)*(2.0D0*UVWFCT_G_1+2.0D0*UVWFCT_G_2
 
700
     $     +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
701
701
C         Amplitude(s) for UVCT diagram with ID 145
702
702
          CALL MP_FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),GC_5,AMPL(2,247))
703
703
          AMPL(2,247)=AMPL(2,247)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
704
704
     $     *UVWFCT_B_0_1EPS)
705
705
C         Amplitude(s) for UVCT diagram with ID 146
706
706
          CALL MP_FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),GC_5,AMPL(1,248))
707
 
          AMPL(1,248)=AMPL(1,248)*(1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2
708
 
     $     +2.0D0*UVWFCT_G_1+1.0D0*UVWFCT_B_0)
 
707
          AMPL(1,248)=AMPL(1,248)*(2.0D0*UVWFCT_G_1+2.0D0*UVWFCT_G_2
 
708
     $     +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
709
709
C         Amplitude(s) for UVCT diagram with ID 147
710
710
          CALL MP_FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),GC_5,AMPL(2,249))
711
711
          AMPL(2,249)=AMPL(2,249)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
712
712
     $     *UVWFCT_B_0_1EPS)
713
713
C         Amplitude(s) for UVCT diagram with ID 148
714
714
          CALL MP_FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),GC_5,AMPL(1,250))
715
 
          AMPL(1,250)=AMPL(1,250)*(1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2
716
 
     $     +2.0D0*UVWFCT_G_1+1.0D0*UVWFCT_B_0)
 
715
          AMPL(1,250)=AMPL(1,250)*(2.0D0*UVWFCT_G_1+2.0D0*UVWFCT_G_2
 
716
     $     +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
717
717
C         Amplitude(s) for UVCT diagram with ID 149
718
718
          CALL MP_FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),GC_5,AMPL(2,251))
719
719
          AMPL(2,251)=AMPL(2,251)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
720
720
     $     *UVWFCT_B_0_1EPS)
721
721
C         Amplitude(s) for UVCT diagram with ID 150
722
722
          CALL MP_FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),GC_5,AMPL(1,252))
723
 
          AMPL(1,252)=AMPL(1,252)*(1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2
724
 
     $     +2.0D0*UVWFCT_G_1+1.0D0*UVWFCT_B_0)
 
723
          AMPL(1,252)=AMPL(1,252)*(2.0D0*UVWFCT_G_1+2.0D0*UVWFCT_G_2
 
724
     $     +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
725
725
C         Copy the qp wfs to the dp ones as they are used to setup the
726
726
C          CT calls.
727
727
          DO I=1,NWAVEFUNCS