← Back to branch summary

~maddevelopers/mg5amcnlo/2.5.3

« back to all changes in this revision

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

  • Committer: olivier-mattelaer
  • Date: 2017-03-08 12:31:17 UTC
  • Revision ID: olivier-mattelaer-20170308123117-h0zkqjyh9sihsc61
empty version to have an effective freeze of the code

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOExportFKSTest/test_ppw_fksall/%SubProcesses%P0_udx_wp%get_color.f
1
 
      FUNCTION GET_COLOR(IPDG)
2
 
      IMPLICIT NONE
3
 
      INTEGER GET_COLOR, IPDG
4
 
 
5
 
      IF(IPDG.EQ.-24)THEN
6
 
        GET_COLOR=1
7
 
        RETURN
8
 
      ELSE IF(IPDG.EQ.-4)THEN
9
 
        GET_COLOR=-3
10
 
        RETURN
11
 
      ELSE IF(IPDG.EQ.-3)THEN
12
 
        GET_COLOR=-3
13
 
        RETURN
14
 
      ELSE IF(IPDG.EQ.-2)THEN
15
 
        GET_COLOR=-3
16
 
        RETURN
17
 
      ELSE IF(IPDG.EQ.-1)THEN
18
 
        GET_COLOR=-3
19
 
        RETURN
20
 
      ELSE IF(IPDG.EQ.1)THEN
21
 
        GET_COLOR=3
22
 
        RETURN
23
 
      ELSE IF(IPDG.EQ.2)THEN
24
 
        GET_COLOR=3
25
 
        RETURN
26
 
      ELSE IF(IPDG.EQ.3)THEN
27
 
        GET_COLOR=3
28
 
        RETURN
29
 
      ELSE IF(IPDG.EQ.4)THEN
30
 
        GET_COLOR=3
31
 
        RETURN
32
 
      ELSE IF(IPDG.EQ.21)THEN
33
 
        GET_COLOR=8
34
 
        RETURN
35
 
      ELSE IF(IPDG.EQ.24)THEN
36
 
        GET_COLOR=1
37
 
        RETURN
38
 
      ELSE IF(IPDG.EQ.7)THEN
39
 
C       This is dummy particle used in multiparticle vertices
40
 
        GET_COLOR=2
41
 
        RETURN
42
 
      ELSE
43
 
        WRITE(*,*)'Error: No color given for pdg ',IPDG
44
 
        GET_COLOR=0
45
 
        RETURN
46
 
      ENDIF
47
 
      END
48