~maddevelopers/mg5amcnlo/2.7.1.3

« back to all changes in this revision

Viewing changes to madgraph/iolibs/template_files/matrix_madevent_v4.inc

  • Committer: olivier-mattelaer
  • Date: 2020-01-20 14:53:46 UTC
  • mfrom: (283.1.26 2.7.0)
  • Revision ID: olivier-mattelaer-20200120145346-uosfwy1zhg4ikp1x
pass to 2.7.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
37
37
    LOGICAL GOODHEL(NCOMB)
38
38
    INTEGER NTRY
39
39
    common/BLOCK_GOODHEL/NTRY,GOODHEL
 
40
    integer nb_spin_state(2)
 
41
    data  nb_spin_state /%(nb_spin_state1)i,%(nb_spin_state2)i/
 
42
    common /nb_hel_state/ nb_spin_state
40
43
C  
41
44
C LOCAL VARIABLES 
42
45
C  
102
105
               T=MATRIX%(proc_id)s(P ,NHEL(1,I),JC(1))            
103
106
             DO JJ=1,nincoming
104
107
               IF(POL(JJ).NE.1d0.AND.NHEL(JJ,I).EQ.INT(SIGN(1d0,POL(JJ)))) THEN
105
 
                 T=T*ABS(POL(JJ))
 
108
                 T=T*ABS(POL(JJ))*NB_SPIN_STATE(JJ)/2d0 ! NB_SPIN_STATE(JJ)/2d0 is added for polarised beam
106
109
               ELSE IF(POL(JJ).NE.1d0)THEN
107
 
                 T=T*(2d0-ABS(POL(JJ)))
 
110
                 T=T*(2d0-ABS(POL(JJ)))*NB_SPIN_STATE(JJ)/2d0
108
111
               ENDIF
109
112
             ENDDO
110
113
                         IF (ISUM_HEL.NE.0) then