← Back to branch summary

~maddevelopers/mg5amcnlo/2.7.3-lepcoll

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_tdecay_fksreal/%SubProcesses%P0_t_budx%b_sf_007.f

  • Committer: olivier-mattelaer
  • Date: 2021-04-15 15:00:34 UTC
  • mfrom: (287.1.10 madgraph5)
  • Revision ID: olivier-mattelaer-20210415150034-3rvq7b3bpntxixwe
merge up to 2.9.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOExportFKSTest/test_tdecay_fksreal/%SubProcesses%P0_t_budx%b_sf_007.f
111
111
C     LOCAL VARIABLES 
112
112
C     
113
113
      INTEGER I,J
114
 
      REAL*8 DENOM(NCOLOR1), CF(NCOLOR2,NCOLOR1)
 
114
      REAL*8  CF(NCOLOR2,NCOLOR1)
115
115
      COMPLEX*16 ZTEMP, AMP(NGRAPHS), JAMP1(NCOLOR1), JAMP2(NCOLOR2)
 
116
      COMPLEX*16 TMP_JAMP(0)
116
117
C     
117
118
C     GLOBAL VARIABLES
118
119
C     
123
124
C     
124
125
C     COLOR DATA
125
126
C     
126
 
      DATA DENOM(1)/1/
127
 
      DATA (CF(I,  1),I=  1,  2) /    9,    3/
 
127
      DATA (CF(I,  1),I=  1,  2) /9.000000000000000D+00
 
128
     $ ,3.000000000000000D+00/
128
129
C     ----------
129
130
C     BEGIN CODE
130
131
C     ----------
137
138
          AMP(I)=SAVEAMP(I,HELL)
138
139
        ENDDO
139
140
      ENDIF
140
 
      JAMP1(1)=-AMP(1)
141
 
      JAMP2(1)=+1D0/2D0*(-1D0/3D0*AMP(1))
142
 
      JAMP2(2)=+1D0/2D0*(+AMP(1))
 
141
      JAMP1(1) = (-1.000000000000000D+00)*AMP(1)
 
142
      JAMP2(1) = (-1.666666666666667D-01)*AMP(1)
 
143
      JAMP2(2) = (5.000000000000000D-01)*AMP(1)
143
144
      B_SF_007 = 0.D0
144
145
      DO I = 1, NCOLOR1
145
146
        ZTEMP = (0.D0,0.D0)
146
147
        DO J = 1, NCOLOR2
147
148
          ZTEMP = ZTEMP + CF(J,I)*JAMP2(J)
148
149
        ENDDO
149
 
        B_SF_007 =B_SF_007+ZTEMP*DCONJG(JAMP1(I))/DENOM(I)
 
150
        B_SF_007 =B_SF_007+ZTEMP*DCONJG(JAMP1(I))
150
151
      ENDDO
151
152
      END
152
153