2 ** 21-feb-2001 get from polar.ihep.su@DATA$STAR:[PAVLINOV.RSC]SGPDGE.CAR
4 *-- Author : David Adams 03/11/90
5 SUBROUTINE SGPDGE( I, PDGGEA )
6 CA)========================================(begin of short description)
7 C Converts a PDG particle number to a GEANT particle number.
8 CB)-----------------------------------------(begin of long description)
10 C Purpose and methods :
11 C Translates the PDG code I to the GEANT particle code PDGGEA.
12 C Zero is returned if the PDG code cannot be translated.
16 C Input arguments : I - PDG particle code
18 C Input/output arguments : none
20 C Output arguments: PDGGEA - GEANT particle code
22 C Side effects (other variables/banks modified, etc.)
24 C Created: dd-mmm-1990 David Adams
25 C Modified: 19-FEB-1991 David Adams - fixed bugs in particle codes.
27 CC)-------------------------------------------(end of long description)
28 CD)----------------------------------(declare common blocks, variables)
30 C Variables in argument list
33 INTEGER I, IABS, PDGGEA
36 C Local data statements
37 CE)===============================================(end of declarations)
43 IF ( IABS .LT. 20 ) THEN
48 ELSEIF ( I .EQ. -11 ) THEN
50 ELSEIF ( IABS .EQ. 12 ) THEN
54 ELSEIF ( I .EQ. 13 ) THEN
56 ELSEIF ( I .EQ. -13 ) THEN
58 ELSEIF ( IABS .EQ. 14 ) THEN
62 ELSEIF ( I .EQ. 15 ) THEN
64 ELSEIF ( I .EQ. -15 ) THEN
66 ELSEIF ( IABS .EQ. 16 ) THEN
74 ELSEIF ( IABS .LT. 100 ) THEN
79 ELSEIF ( I .EQ. 24 ) THEN
81 ELSEIF ( I .EQ. -24 ) THEN
83 ELSEIF ( I .EQ. 23 ) THEN
91 ELSEIF ( IABS .LT. 1000 ) THEN
94 IF ( I .EQ. 111 ) THEN
96 ELSEIF ( I .EQ. 211 ) THEN
98 ELSEIF ( I .EQ. -211 ) THEN
102 ELSEIF ( I .EQ. 130 ) THEN
104 ELSEIF ( I .EQ. 310 ) THEN
106 ELSEIF ( I .EQ. 321 ) THEN
108 ELSEIF ( I .EQ. -321 ) THEN
112 ELSEIF ( I .EQ. 130 ) THEN
114 ELSEIF ( I .EQ. 310 ) THEN
116 ELSEIF ( I .EQ. 321 ) THEN
118 ELSEIF ( I .EQ. -321 ) THEN
122 ELSEIF ( I .EQ. 221 ) THEN
125 C . D+, D-, D0, D0bar
126 ELSEIF ( I .EQ. 411 ) THEN
128 ELSEIF ( I .EQ. -411 ) THEN
130 ELSEIF ( I .EQ. 421 ) THEN
132 ELSEIF ( I .EQ. -421 ) THEN
135 C . DS+, DS- (previously F+, F-)
136 ELSEIF ( I .EQ. 431 ) THEN
138 ELSEIF ( I .EQ. -431 ) THEN
147 ELSEIF ( IABS .LT. 10000 ) THEN
150 IF ( I .EQ. 2112 ) THEN
152 ELSEIF ( I .EQ. -2112 ) THEN
154 ELSEIF ( I .EQ. 2212 ) THEN
156 ELSEIF ( I .EQ. -2212 ) THEN
159 C . lambda, antilambda
160 ELSEIF ( I .EQ. 3122 ) THEN
162 ELSEIF ( I .EQ. -3122 ) THEN
165 C . sigma +, 0, -, antisigma -, 0, +
166 ELSEIF ( I .EQ. 3222 ) THEN
168 ELSEIF ( I .EQ. 3212 ) THEN
170 ELSEIF ( I .EQ. 3112 ) THEN
172 ELSEIF ( I .EQ. -3222 ) THEN
174 ELSEIF ( I .EQ. -3212 ) THEN
176 ELSEIF ( I .EQ. -3112 ) THEN
179 C . xi 0, xi -, antixi 0, antixi +
180 ELSEIF ( I .EQ. 3322 ) THEN
182 ELSEIF ( I .EQ. 3312 ) THEN
184 ELSEIF ( I .EQ. -3322 ) THEN
186 ELSEIF ( I .EQ. -3312 ) THEN
190 ELSEIF ( I .EQ. 3334 ) THEN
192 ELSEIF ( I .EQ. -3334 ) THEN
196 ELSEIF ( I .EQ. 4122 ) THEN