← Back to branch summary

~maddevelopers/mg5amcnlo/2.6.5_ewa

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_ppw_fksall/%SubProcesses%P0_dxu_wp%V0_dxu_wp%polynomial.f

  • Committer: olivier-mattelaer
  • Date: 2020-08-13 08:01:25 UTC
  • mfrom: (281.3.23 2.7.4)
  • Revision ID: olivier-mattelaer-20200813080125-dvgl90l47g9jekf1
merge with 2.7.4

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOExportFKSTest/test_ppw_fksall/%SubProcesses%P0_dxu_wp%V0_dxu_wp%polynomial.f
113
113
        CFTOT=CMPLX(CF_N(COLOR_ID,I)/(ONE*ABS(CF_D(COLOR_ID,I))),ZERO
114
114
     $   ,KIND=8)
115
115
        IF(CF_D(COLOR_ID,I).LT.0) CFTOT=CFTOT*IMAG1
116
 
        CONST(ML5SOINDEX_FOR_BORN_AMP(I))=CONST(ML5SOINDEX_FOR_BORN_AMP
117
 
     $(I))+CFTOT*CONJG(AMP(I))
 
116
        CONST(ML5SOINDEX_FOR_BORN_AMP(I))
 
117
     $   =CONST(ML5SOINDEX_FOR_BORN_AMP(I))+CFTOT*CONJG(AMP(I))
118
118
      ENDDO
119
119
 
120
120
      DO I=1,NAMPSO
232
232
        CFTOT=CMPLX(CF_N(COLOR_ID,I)/(ONE*ABS(CF_D(COLOR_ID,I))),ZERO
233
233
     $   ,KIND=16)
234
234
        IF(CF_D(COLOR_ID,I).LT.0) CFTOT=CFTOT*IMAG1
235
 
        CONST(ML5SOINDEX_FOR_BORN_AMP(I))=CONST(ML5SOINDEX_FOR_BORN_AMP
236
 
     $(I))+CFTOT*CONJG(AMP(I))
 
235
        CONST(ML5SOINDEX_FOR_BORN_AMP(I))
 
236
     $   =CONST(ML5SOINDEX_FOR_BORN_AMP(I))+CFTOT*CONJG(AMP(I))
237
237
      ENDDO
238
238
 
239
239
      DO I=1,NAMPSO