← Back to branch summary

~maddevelopers/mg5amcnlo/3.0.2-pineappl

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_ppw_fksall/%SubProcesses%P0_udx_wp%V0_udx_wp%mp_helas_calls_ampb_1.f

  • Committer: marco zaro
  • Date: 2020-09-18 11:00:14 UTC
  • mfrom: (956.1.11 3.0.4)
  • Revision ID: marcozaro@pcteor1.mi.infn.it-20200918110014-5jc20pkwceijqspw
merged with 3.0.4 rev967

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOExportFKSTest/test_ppw_fksall/%SubProcesses%P0_udx_wp%V0_udx_wp%mp_helas_calls_ampb_1.f
83
83
      CALL MP_OXXXXX(P(0,2),ZERO,NHEL(2),-1*IC(2),W(1,2))
84
84
      CALL MP_VXXXXX(P(0,3),MDL_MW,NHEL(3),+1*IC(3),W(1,3))
85
85
C     Amplitude(s) for born diagram with ID 1
86
 
      CALL MP_FFV2_0(W(1,1),W(1,2),W(1,3),GC_47,AMP(1))
 
86
      CALL MP_FFV2_0(W(1,1),W(1,2),W(1,3),GC_11,AMP(1))
87
87
C     Counter-term amplitude(s) for loop diagram number 2
88
 
      CALL MP_FFV2_0(W(1,1),W(1,2),W(1,3),R2_SXCW,AMPL(1,1))
 
88
      CALL MP_FFV2_0(W(1,1),W(1,2),W(1,3),R2_BXTW,AMPL(1,1))
89
89
C     At this point, all CT amps needed for (QCD=2 QED=2), i.e. of
90
90
C      split order ID=1, are computed.
91
91
      IF(FILTER_SO.AND.SQSO_TARGET.EQ.1) GOTO 2000