← Back to branch summary

~maddevelopers/mg5amcnlo/simple_unlops

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fks_loonly/%SubProcesses%P0_gg_ttx%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_pptt_fks_loonly/%SubProcesses%P0_gg_ttx%get_color.f
17
17
        RETURN
18
18
      ELSE
19
19
        WRITE(*,*)'Error: No color given for pdg ',IPDG
20
 
        GET_COLOR=0
 
20
        STOP 1
 
21
        RETURN
 
22
      ENDIF
 
23
      END
 
24
 
 
25
      FUNCTION GET_SPIN(IPDG)
 
26
      IMPLICIT NONE
 
27
      INTEGER GET_SPIN, IPDG
 
28
 
 
29
      IF(IPDG.EQ.-6)THEN
 
30
        GET_SPIN=2
 
31
        RETURN
 
32
      ELSE IF(IPDG.EQ.6)THEN
 
33
        GET_SPIN=2
 
34
        RETURN
 
35
      ELSE IF(IPDG.EQ.21)THEN
 
36
        GET_SPIN=3
 
37
        RETURN
 
38
      ELSE IF(IPDG.EQ.7)THEN
 
39
C       This is dummy particle used in multiparticle vertices
 
40
        GET_SPIN=-2
 
41
        RETURN
 
42
      ELSE
 
43
        WRITE(*,*)'Error: No spin given for pdg ',IPDG
 
44
        STOP 1
21
45
        RETURN
22
46
      ENDIF
23
47
      END