]> git.uio.no Git - u/mrichter/AliRoot.git/blame - GEANT321/gcons/gpions.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Make the default config without ZDC
[u/mrichter/AliRoot.git] / GEANT321 / gcons / gpions.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1995/10/24 10:20:15 cernlib
6* Geant
7*
8*
9#include "geant321/pilot.h"
10*CMZ : 3.21/02 29/03/94 15.41.19 by S.Giani
11*-- Author :
12 SUBROUTINE GPIONS
13C.
14C. *******************************************************************
15C. * *
16C. * Define a subset of the 'stable' most common elements *
17C. * in the Nature *
18C. * *
19C. * ==>Called by : <USER>, UGINIT *
20C. * Author B.Grosdidier (Strasbourg) ***** *
21C. * *
22C. *******************************************************************
23C.
24 DIMENSION UBUF(1)
25 DATA UBUF/0./
26*
27* The Geant particle identification begin to IPART = 61
28 CALL GSPART( 61,'LI6 ',8, 5.60305, 3., 1000., UBUF,0)
29 CALL GSPART( 62,'LI7 ',8, 6.53536, 3., 1000., UBUF,0)
30 CALL GSPART( 63,'BE7 ',8, 6.53622, 4., 1000., UBUF,0)
31 CALL GSPART( 64,'BE9 ',8, 8.39479, 4., 1000., UBUF,0)
32 CALL GSPART( 65,'B10 ',8, 9.32699, 5., 1000., UBUF,0)
33 CALL GSPART( 66,'B11 ',8, 10.25510, 5., 1000., UBUF,0)
34 CALL GSPART( 67,'C12 ',8, 11.17793, 6., 1000., UBUF,0)
35 CALL GSPART( 68,'N14 ',8, 13.04378, 7., 1000., UBUF,0)
36 CALL GSPART( 69,'O16 ',8, 14.89917, 8., 1000., UBUF,0)
37 CALL GSPART( 70,'F19 ',8, 17.69690, 9., 1000., UBUF,0)
38 CALL GSPART( 71,'NE20 ',8, 18.62284, 10., 1000., UBUF,0)
39 CALL GSPART( 72,'NA23 ',8, 21.41483, 11., 1000., UBUF,0)
40 CALL GSPART( 73,'MG24 ',8, 22.34193, 12., 1000., UBUF,0)
41 CALL GSPART( 74,'AL27 ',8, 25.13314, 13., 1000., UBUF,0)
42 CALL GSPART( 75,'SI28 ',8, 26.06034, 14., 1000., UBUF,0)
43 CALL GSPART( 76,'P31 ',8, 28.85188, 15., 1000., UBUF,0)
44 CALL GSPART( 77,'S32 ',8, 29.78180, 16., 1000., UBUF,0)
45 CALL GSPART( 78,'CL35 ',8, 32.57328, 17., 1000., UBUF,0)
46 CALL GSPART( 79,'AR36 ',8, 33.50356, 18., 1000., UBUF,0)
47 CALL GSPART( 80,'K39 ',8, 36.29447, 19., 1000., UBUF,0)
48 CALL GSPART( 81,'CA40 ',8, 37.22492, 20., 1000., UBUF,0)
49 CALL GSPART( 82,'SC45 ',8, 41.87617, 21., 1000., UBUF,0)
50 CALL GSPART( 83,'TI48 ',8, 44.66324, 22., 1000., UBUF,0)
51 CALL GSPART( 84,'V51 ',8, 47.45401, 23., 1000., UBUF,0)
52 CALL GSPART( 85,'CR52 ',8, 48.38228, 24., 1000., UBUF,0)
53 CALL GSPART( 86,'MN55 ',8, 51.17447, 25., 1000., UBUF,0)
54 CALL GSPART( 87,'FE56 ',8, 52.10307, 26., 1000., UBUF,0)
55 CALL GSPART( 88,'CO59 ',8, 54.89593, 27., 1000., UBUF,0)
56 CALL GSPART( 89,'NI58 ',8, 53.96644, 28., 1000., UBUF,0)
57 CALL GSPART( 90,'CU63 ',8, 58.61856, 29., 1000., UBUF,0)
58 CALL GSPART( 91,'ZN64 ',8, 59.54963, 30., 1000., UBUF,0)
59 CALL GSPART( 92,'GE74 ',8, 68.85715, 32., 1000., UBUF,0)
60 CALL GSPART( 93,'SE80 ',8, 74.44178, 34., 1000., UBUF,0)
61 CALL GSPART( 94,'KR84 ',8, 78.16309, 36., 1000., UBUF,0)
62 CALL GSPART( 95,'SR88 ',8, 81.88358, 38., 1000., UBUF,0)
63 CALL GSPART( 96,'ZR90 ',8, 83.74571, 40., 1000., UBUF,0)
64 CALL GSPART( 97,'MO98 ',8, 91.19832, 42., 1000., UBUF,0)
65 CALL GSPART( 98,'PD106',8, 98.64997, 46., 1000., UBUF,0)
66 CALL GSPART( 99,'CD114',8, 106.10997, 48., 1000., UBUF,0)
67 CALL GSPART(100,'SN120',8, 111.68821, 50., 1000., UBUF,0)
68 CALL GSPART(101,'XE132',8, 122.86796, 54., 1000., UBUF,0)
69 CALL GSPART(102,'BA138',8, 128.45793, 56., 1000., UBUF,0)
70 CALL GSPART(103,'CE140',8, 130.32111, 58., 1000., UBUF,0)
71 CALL GSPART(104,'SM152',8, 141.51236, 62., 1000., UBUF,0)
72 CALL GSPART(105,'DY164',8, 152.69909, 66., 1000., UBUF,0)
73 CALL GSPART(106,'YB174',8, 162.02245, 70., 1000., UBUF,0)
74 CALL GSPART(107,'W184 ',8, 171.34924, 74., 1000., UBUF,0)
75 CALL GSPART(108,'PT194',8, 180.67513, 78., 1000., UBUF,0)
76 CALL GSPART(109,'AU197',8, 183.47324, 79., 1000., UBUF,0)
77 CALL GSPART(110,'HG202',8, 188.13451, 80., 1000., UBUF,0)
78 CALL GSPART(111,'PB208',8, 193.72907, 82., 1000., UBUF,0)
79 CALL GSPART(112,'U238 ',8, 221.74295, 92., 1000., UBUF,0)
80*
81 END