← Back to branch summary

~useakat/cfmc/gg_4g_cfmc

« back to all changes in this revision

Viewing changes to hml/hml/ilqpdg.f

  • Committer: useakat at gmail
  • Date: 2012-10-01 07:45:50 UTC
  • mfrom: (4.1.13 gg_3g_cfmc_dev)
  • Revision ID: useakat@gmail.com-20121001074550-zs09eu30khm4yvyx
independent ver.

Show diffs side-by-side

added added

removed removed

Lines of Context:
hml/hml/ilqpdg.f
 
1
      INTEGER FUNCTION ILQPDG(IDPDG0)
 
2
 
 
3
      IMPLICIT NONE
 
4
 
 
5
      INTEGER IDPDG0,IDPDG
 
6
 
 
7
      INCLUDE 'hmptcl.inc'
 
8
 
 
9
      INTEGER I
 
10
 
 
11
      INTEGER ILQLST(NPPTCL)
 
12
c     DATA ILQLST/ NPPTCL*0/
 
13
      DATA (ILQLST(I),I=1,6)/
 
14
C          d      u      s      c      b      t
 
15
     &     2,     2,     2,     2,     2,     2/
 
16
      DATA (ILQLST(I),I=11,16)/
 
17
C         e-     nue    mu-    num    tau-   nut
 
18
     &     1,     1,     1,     1,     1,     1/
 
19
      DATA (ILQLST(I),I=41,46)/
 
20
C         d~L    u~L    s~L    c~L    b~L    t~L
 
21
     &     2,     2,     2,     2,     2,     2/
 
22
      DATA (ILQLST(I),I=51,56)/
 
23
C        e-~L   nue~L  mu-~L  num~L  tau-~L nut~L
 
24
     &     1,     1,     1,     1,     1,     1/
 
25
      DATA (ILQLST(I),I=61,66)/
 
26
C         d~R    u~R    s~R    c~R    b~R    t~R
 
27
     &     2,     2,     2,     2,     2,     2/
 
28
      DATA (ILQLST(I),I=71,76)/
 
29
C        e-~R   nue~R  mu-~R  num~R  tau-~R nut~R
 
30
     &     1,     1,     1,     1,     1,     1/
 
31
 
 
32
      IDPDG = IABS(IDPDG0)
 
33
 
 
34
      IF(IDPDG.LE.0 .OR. IDPDG.GT.NPPTCL) THEN
 
35
         CALL MSGOUT('ILQPDG','Wrong particle code',IDPDG)
 
36
         ILQPDG = -1
 
37
         RETURN
 
38
      END IF
 
39
 
 
40
      ILQPDG = ILQLST(IDPDG)
 
41
 
 
42
      RETURN
 
43
      END