← Back to branch summary

~madteam/mg5amcnlo/series2.0

« 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: 2016-05-12 11:00:18 UTC
  • mfrom: (262.1.150 2.3.4)
  • Revision ID: olivier.mattelaer@uclouvain.be-20160512110018-sevb79f0wm4g8mpp
pass to 2.4.0

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