6 #include "geant321/gcbank.inc"
8 dimension aair(2),zair(2),wair(2)
9 dimension aco2(2),zco2(2),wco2(2)
10 dimension ah2o(2),zh2o(2),wh2o(2)
11 dimension ag10(4),zg10(4),wg10(4)
12 dimension asci(2),zsci(2),wsci(2)
15 DATA aair/14.01, 16.00/
17 DATA wair/ 0.7 , 0.3 /
20 DATA aco2/12.01, 16.00/
25 DATA ah2o/ 1.01, 16.00/
30 DATA ag10/ 1.01, 12.00, 16.00, 28.00/
31 DATA zg10/ 1. , 6. , 8. , 14. /
32 DATA wg10/ 3. , 3. , 2. , 1. /
35 DATA asci/12.01, 1.01/
41 CALL gsmixt( 1,
'Air' , aair ,zair, 1.29
e-3, 2 , wair)
42 CALL gsmixt( 2,
'CO2 gas' , aco2 ,zco2, 27.0
e-3,-2 , wco2)
43 CALL gsmate( 3,
'H2 Liquid', 1.008, 1., 0.0708 , 865., 790., 0,0)
44 CALL gsmixt( 4,
'Water' , ah2o ,zh2o, 1.0 ,-2 , wh2o)
45 CALL gsmate( 5,
'Liquid Ar', 39.95, 18., 1.39 , 14.0, 84.0, 0,0)
46 CALL gsmate( 6,
'Aluminium', 26.98, 13., 2.7 , 8.9, 37.2, 0,0)
47 CALL gsmate( 7,
'Iron ', 55.85, 26., 7.87 , 1.76, 17.1, 0,0)
48 CALL gsmate( 8,
'Lead ',207.19, 82., 11.35 , 0.56, 18.5, 0,0)
49 CALL gsmate( 9,
'Uranium ',238.03, 92., 18.95 , 0.32, 12. , 0,0)
50 CALL gsmate(10,
'Silicon ', 28.09, 14., 2.33 , 9.36, 45.5, 0,0)
51 CALL gsmate(11,
'Tungsten ',183.85, 74., 19.30 , 0.35, 9.6, 0,0)
52 CALL gsmixt(12,
'NemaG10' , ag10 ,zg10, 1.7 ,-4 , wg10)
53 CALL gsmate(13,
'Copper ', 63.55, 29., 8.96 , 1.43, 15.0, 0,0)
54 CALL gsmixt(14,
'Scintilla', asci ,zsci, 1.032 ,-2 , wsci)
55 CALL gsmate(15,
'Gold ',196.97, 79., 19.32 , 0.33, 9.6, 0,0)
75 CALL gstmed(im,
'tracking medium',im, 0 ,ifield,fieldm,tmaxfd,
76 * stemax,deemax,epsil,stmin, 0 , 0 )