← Back to branch summary

~maddevelopers/mg5amcnlo/WWW5_caching

« back to all changes in this revision

Viewing changes to users/mardelcourt/PROC_970226/PROC_970226/SubProcesses/P0_gg_qq/get_color.f

  • Committer: John Doe
  • Date: 2013-03-25 20:27:02 UTC
  • Revision ID: john.doe@gmail.com-20130325202702-5sk3t1r8h33ca4p4
first clean version

Show diffs side-by-side

added added

removed removed

Lines of Context:
users/mardelcourt/PROC_970226/PROC_970226/SubProcesses/P0_gg_qq/get_color.f
 
1
      FUNCTION GET_COLOR(IPDG)
 
2
      IMPLICIT NONE
 
3
      INTEGER GET_COLOR, IPDG
 
4
 
 
5
      IF(IPDG.EQ.-3)THEN
 
6
        GET_COLOR=-3
 
7
        RETURN
 
8
      ELSE IF(IPDG.EQ.-2)THEN
 
9
        GET_COLOR=-3
 
10
        RETURN
 
11
      ELSE IF(IPDG.EQ.2)THEN
 
12
        GET_COLOR=3
 
13
        RETURN
 
14
      ELSE IF(IPDG.EQ.3)THEN
 
15
        GET_COLOR=3
 
16
        RETURN
 
17
      ELSE IF(IPDG.EQ.21)THEN
 
18
        GET_COLOR=8
 
19
        RETURN
 
20
      ELSE IF(IPDG.EQ.7)THEN
 
21
C       This is dummy particle used in multiparticle vertices
 
22
        GET_COLOR=2
 
23
        RETURN
 
24
      ELSE
 
25
        WRITE(*,*)'Error: No color given for pdg ',IPDG
 
26
        GET_COLOR=0
 
27
        RETURN
 
28
      ENDIF
 
29
      END
 
30