73 elH=
new G4Element(name=
"Hydrogen",symbol=
"H2",z=1.,a);
76 elD=
new G4Element(name=
"Deuterium",symbol=
"D",z=1.,a);
79 elHe=
new G4Element(name=
"Helium",symbol=
"He",z=2.,a);
82 elLi=
new G4Element(name=
"Lithium",symbol=
"Li",z=3.,a);
85 elBe=
new G4Element(name=
"Berillium",symbol=
"Be",z=4.,a);
88 elC=
new G4Element(name=
"Carbon",symbol=
"C",z=6.,a);
91 elN=
new G4Element(name=
"Nitrogen",symbol=
"N2",z=7.,a);
94 elO=
new G4Element(name=
"Oxygen",symbol=
"O2",z=8.,a);
97 elNe=
new G4Element(name=
"Neon",symbol=
"Ne",z=10.,a);
100 elNa=
new G4Element(name=
"Sodium",symbol=
"Na",z=11.,a);
103 elAl=
new G4Element(name=
"Aluminium",symbol=
"Al",z=13.,a);
106 elSi=
new G4Element(name=
"Silicon",symbol=
"Si",z=14.,a);
109 elCa=
new G4Element(name=
"Calcium",symbol=
"Ca",z=20.,a);
112 elFe=
new G4Element(name=
"Iron",symbol=
"Fe",z=26.,a);
115 elCu=
new G4Element(name=
"Copper",symbol=
"Cu",z=29.,a);
118 elW=
new G4Element(name=
"Tungstenm",symbol=
"W",z=74.,a);
121 elPb=
new G4Element(name=
"Lead",symbol=
"Pb",z=82.,a);
124 elU=
new G4Element(name=
"Uranium",symbol=
"U",z=92.,a);
133 Aluminium =
new G4Material(name=
"Aluminium",z=13.,a,density);
135 density = 7.87*
g/
cm3;
137 Iron =
new G4Material(name=
"Iron",z=26.,a,density);
139 density = 8.96*
g/
cm3;
141 Copper =
new G4Material(name=
"Copper",z=29.,a,density);
143 density = 19.3*
g/
cm3;
145 Tungsten =
new G4Material(name=
"Tungsten",z=74.,a,density);
147 density = 11.35*
g/
cm3;
149 Lead =
new G4Material(name=
"Lead",z=82.,a,density);
153 LiquidArgon =
new G4Material(name=
"LiquidArgon",z=18.,a,density);
155 density = 0.002*
g/
cm3;
157 ArgonGas =
new G4Material(name=
"ArgonGas",z=18.,a,density);
159 density = 8.96*
g/
cm3;
161 Nickel =
new G4Material(name=
"Nickel",z=28.,a,density);
168 density = 1.290*
mg/
cm3;
169 Air =
new G4Material(name=
"Air",density, nel=2);
176 density = 1.e-5*
g/
cm3;
179 Vacuum =
new G4Material(name=
"Vacuum", density, nel=1,
184 density = 0.002*
g/
cm3;
185 CO2 =
new G4Material(name=
"CO2",density,nel=2);
189 density = 1.42*
g/
cm3;
190 Kapton =
new G4Material(name=
"Kapton",density, nel=4);
191 Kapton->
AddElement(elH, fractionmass = 0.0273);
192 Kapton->
AddElement(elC, fractionmass = 0.7213);
193 Kapton->
AddElement(elN, fractionmass = 0.0765);
194 Kapton->
AddElement(elO, fractionmass = 0.1749);
196 density = 1.032*
g/
cm3;
197 Polystyrene =
new G4Material(name=
"Polystyrene",density,nel=2);
201 density = 5.185*
g/
cm3;
202 FCAL1CuArKap =
new G4Material(name=
"FCAL1CuArKap",density,nel=3);
203 FCAL1CuArKap->
AddMaterial(Copper, fractionmass = 0.864);
204 FCAL1CuArKap->
AddMaterial(Kapton, fractionmass = 0.068);
205 FCAL1CuArKap->
AddMaterial(LiquidArgon, fractionmass = 0.068);
207 density = 8.701*
g/
cm3;
208 FCAL1CuAr =
new G4Material(name=
"FCAL1CuAr",density,nel=2);
209 FCAL1CuAr->
AddMaterial(Copper, fractionmass = 0.994);
210 FCAL1CuAr->
AddMaterial(LiquidArgon, fractionmass = 0.006);
212 density = 5.185*
g/
cm3;
213 FCAL2CuArKap =
new G4Material(name=
"FCAL2CuArKap",density,nel=3);
214 FCAL2CuArKap->
AddMaterial(Copper, fractionmass = 0.864);
215 FCAL2CuArKap->
AddMaterial(Kapton, fractionmass = 0.068);
216 FCAL2CuArKap->
AddMaterial(LiquidArgon, fractionmass = 0.068);
218 density = 18.6*
g/
cm3;
219 FCAL2WFeNi =
new G4Material(name=
"FCAL2WFeNi",density,nel=3);
220 FCAL2WFeNi->
AddMaterial(Tungsten, fractionmass = 0.97);
221 FCAL2WFeNi->
AddMaterial(Iron, fractionmass = 0.01);
222 FCAL2WFeNi->
AddMaterial(Nickel, fractionmass = 0.02);
224 density = 15.366*
g/
cm3;
225 FCAL2WFeNiCuAr =
new G4Material(name=
"FCAL2WFeNiCuAr",density,nel=3);
226 FCAL2WFeNiCuAr->
AddMaterial(FCAL2WFeNi, fractionmass = 0.913);
227 FCAL2WFeNiCuAr->
AddMaterial(Copper, fractionmass = 0.077);
228 FCAL2WFeNiCuAr->
AddMaterial(LiquidArgon, fractionmass = 0.01);
230 density = 0.002*
g/
cm3;
231 MWPCArCO2 =
new G4Material(name=
"MWPCArCO2",density,nel=2);
233 MWPCArCO2->
AddMaterial(ArgonGas, fractionmass = 0.8);
239 ShieldingConcrete =
new G4Material(name=
"ShieldingConcrete",density,nel=6);
240 ShieldingConcrete->
AddElement(elO, fractionmass = 0.52);
241 ShieldingConcrete->
AddElement(elSi, fractionmass = 0.325);
242 ShieldingConcrete->
AddElement(elCa, fractionmass = 0.06);
243 ShieldingConcrete->
AddElement(elNa, fractionmass = 0.015);
244 ShieldingConcrete->
AddElement(elFe, fractionmass = 0.04);
245 ShieldingConcrete->
AddElement(elAl, fractionmass = 0.04);
249 density = 8.96*
g/
cm3;
250 StainlessSteel =
new G4Material(name=
"StainlessSteel",density,nel=1);
251 StainlessSteel->
AddElement(elO, fractionmass = 1.);
266 if(what ==
"Air") material = Air;
267 if(what ==
"Vacuum") material = Vacuum;
268 if(what ==
"LiquidArgon") material = LiquidArgon;
269 if(what ==
"Aluminium") material = Aluminium;
270 if(what ==
"Iron") material = Iron;
271 if(what ==
"Copper") material = Copper;
272 if(what ==
"Tungsten") material = Tungsten;
273 if(what ==
"Lead") material = Lead;
274 if(what ==
"CO2") material = CO2;
275 if(what ==
"ArgonGas") material = ArgonGas;
276 if(what ==
"ShieldingConcrete") material = ShieldingConcrete;
277 if(what ==
"Polystyrene") material = Polystyrene;
278 if(what ==
"StainlessSteel") material = StainlessSteel;
279 if(what ==
"Nickel") material = Nickel;
280 if(what ==
"FCAL1CuArKap") material = FCAL1CuArKap;
281 if(what ==
"FCAL1CuAr") material = FCAL1CuAr;
282 if(what ==
"FCAL2CuArKap") material = FCAL2CuArKap;
283 if(what ==
"FCAL2WFeNi") material = FCAL2WFeNi;
284 if(what ==
"FCAL2WFeNiCuAr") material = FCAL2WFeNiCuAr;
285 if(what ==
"MWPCArCO2") material = MWPCArCO2;
286 if(what ==
"RhoaCell") material = RhoaCell;
void AddMaterial(G4Material *material, G4double fraction)
static FCALMaterialConsultant * construct()
static FCALMaterialConsultant * theFCALMaterialConsultant
G4Material * Material(G4String)
void AddElement(G4Element *element, G4int nAtoms)