← Back to branch summary

~amcblast/mg5amc-pineappl/trunk

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fksrealew/%SubProcesses%P0_dxd_ttx%sborn_sf.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_pptt_fksrealew/%SubProcesses%P0_dxd_ttx%sborn_sf.f
64
64
 
65
65
        WGT = WGT_COL * G**2
66
66
C       update the amp_split_soft, which is summed in sbornsoft
67
 
        AMP_SPLIT_SOFT(1:AMP_SPLIT_SIZE) = DBLE(AMP_SPLIT_CNT(1:AMP_SPL
68
 
     $IT_SIZE,1,QCD_POS)) * G**2
 
67
        AMP_SPLIT_SOFT(1:AMP_SPLIT_SIZE) =
 
68
     $    DBLE(AMP_SPLIT_CNT(1:AMP_SPLIT_SIZE,1,QCD_POS)) * G**2
69
69
 
70
70
      ELSE IF (NEED_CHARGE_LINKS) THEN
71
71
        CHARGEPROD = CHARGES_BORN(M) * CHARGES_BORN(N)
76
76
        IF (M.EQ.N) CHARGEPROD = CHARGEPROD / 2D0
77
77
        WGT = DBLE(ANS_CNT(1, QED_POS)) * CHARGEPROD * DBLE(GAL(1))**2
78
78
C       update the amp_split_soft, which is summed in sbornsoft
79
 
        AMP_SPLIT_SOFT(1:AMP_SPLIT_SIZE) = DBLE(AMP_SPLIT_CNT(1:AMP_SPL
80
 
     $IT_SIZE,1,QED_POS)) * CHARGEPROD * DBLE(GAL(1))**2
 
79
        AMP_SPLIT_SOFT(1:AMP_SPLIT_SIZE) =
 
80
     $    DBLE(AMP_SPLIT_CNT(1:AMP_SPLIT_SIZE,1,QED_POS)) * CHARGEPROD
 
81
     $    * DBLE(GAL(1))**2
81
82
      ENDIF
82
83
 
83
84
      RETURN