← Back to branch summary

~maddevelopers/mg5amcnlo/simple_unlops

« back to all changes in this revision

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

  • Committer: olivier-mattelaer
  • Date: 2021-11-12 09:29:31 UTC
  • mfrom: (967.1.15 3.3.0)
  • Revision ID: olivier-mattelaer-20211112092931-4ec9qfzgxkeovqog
version 3.3.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOExportFKSTest/test_ppw_fksall/%SubProcesses%P0_dxu_wp%get_color.f
41
41
        RETURN
42
42
      ELSE
43
43
        WRITE(*,*)'Error: No color given for pdg ',IPDG
44
 
        GET_COLOR=0
 
44
        STOP 1
 
45
        RETURN
 
46
      ENDIF
 
47
      END
 
48
 
 
49
      FUNCTION GET_SPIN(IPDG)
 
50
      IMPLICIT NONE
 
51
      INTEGER GET_SPIN, IPDG
 
52
 
 
53
      IF(IPDG.EQ.-24)THEN
 
54
        GET_SPIN=3
 
55
        RETURN
 
56
      ELSE IF(IPDG.EQ.-4)THEN
 
57
        GET_SPIN=2
 
58
        RETURN
 
59
      ELSE IF(IPDG.EQ.-3)THEN
 
60
        GET_SPIN=2
 
61
        RETURN
 
62
      ELSE IF(IPDG.EQ.-2)THEN
 
63
        GET_SPIN=2
 
64
        RETURN
 
65
      ELSE IF(IPDG.EQ.-1)THEN
 
66
        GET_SPIN=2
 
67
        RETURN
 
68
      ELSE IF(IPDG.EQ.1)THEN
 
69
        GET_SPIN=2
 
70
        RETURN
 
71
      ELSE IF(IPDG.EQ.2)THEN
 
72
        GET_SPIN=2
 
73
        RETURN
 
74
      ELSE IF(IPDG.EQ.3)THEN
 
75
        GET_SPIN=2
 
76
        RETURN
 
77
      ELSE IF(IPDG.EQ.4)THEN
 
78
        GET_SPIN=2
 
79
        RETURN
 
80
      ELSE IF(IPDG.EQ.21)THEN
 
81
        GET_SPIN=3
 
82
        RETURN
 
83
      ELSE IF(IPDG.EQ.24)THEN
 
84
        GET_SPIN=3
 
85
        RETURN
 
86
      ELSE IF(IPDG.EQ.7)THEN
 
87
C       This is dummy particle used in multiparticle vertices
 
88
        GET_SPIN=-2
 
89
        RETURN
 
90
      ELSE
 
91
        WRITE(*,*)'Error: No spin given for pdg ',IPDG
 
92
        STOP 1
45
93
        RETURN
46
94
      ENDIF
47
95
      END