00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040
00041
00042
00043
00044
00045
00046 #include <iomanip>
00047
00048 #include "G4DensityEffectData.hh"
00049 #include "G4SystemOfUnits.hh"
00050
00051
00052
00053 G4DensityEffectData::G4DensityEffectData():index(0)
00054 {
00055 Initialize();
00056 }
00057
00058
00059
00060 G4DensityEffectData::~G4DensityEffectData()
00061 {
00062 }
00063
00064 void G4DensityEffectData::Initialize()
00065 {
00066
00067
00068
00069
00070
00071
00072
00073
00074 for (G4int i=0; i< NDENSELEM; ++i)
00075 {
00076 indexZ[i] = -1;
00077 state[i] = kStateSolid;
00078 }
00079
00080
00081 G4double M1[NDENSARRAY]={7.031,1.546,3.2632,0.4759,1.9215,0.13483,5.6249,0,0.021};
00082 AddMaterial(M1,"G4_lH2");
00083
00084
00085 G4double M0[NDENSARRAY]={0.263,1.412,9.5835,1.8639,3.2718,0.14092,5.7273,0.0,0.024};
00086 AddMaterial(M0,"G4_H");
00087 indexZ[1]=1;
00088 state[1]=kStateGas;
00089
00090
00091 G4double M2[NDENSARRAY]={0.263,1.7,11.1393,2.2017,3.6122,0.13443,5.8347,0,0.024};
00092 AddMaterial(M2,"G4_He");
00093 indexZ[2]=2;
00094 state[2]=kStateGas;
00095
00096
00097 G4double M3[NDENSARRAY]={13.844,1.535,3.1221,0.1304,1.6397,0.95136,2.4993,0.14,0.062};
00098 AddMaterial(M3,"G4_Li");
00099 indexZ[3]=3;
00100
00101
00102 G4double M4[NDENSARRAY]={26.096,1.908,2.7847,0.0392,1.6922,0.80392,2.4339,0.14,0.029};
00103 AddMaterial(M4,"G4_Be");
00104 indexZ[4]=4;
00105
00106
00107 G4double M5[NDENSARRAY]={30.17,2.32,2.8477,0.0305,1.9688,0.56224,2.4512,0.14,0.024};
00108 AddMaterial(M5,"G4_B");
00109 indexZ[5]=5;
00110
00111
00112 G4double M6[NDENSARRAY]={28.803,2.376,2.9925,-0.0351,2.486,0.2024,3.0036,0.1,0.038};
00113 AddMaterial(M6,"G4_C");
00114 indexZ[6]=6;
00115
00116
00117 G4double M7[NDENSARRAY]={0.695,1.984,10.5400,1.7378,4.1323,0.15349,3.2125,0.0,0.086};
00118 AddMaterial(M7,"G4_N");
00119 indexZ[7]=7;
00120 state[7]=kStateGas;
00121
00122
00123 G4double M8[NDENSARRAY]={0.744,2.314,10.7004,1.7541,4.3213,0.11778,3.2913,0.0,0.101};
00124 AddMaterial(M8,"G4_O");
00125 indexZ[8]=8;
00126 state[8]=kStateGas;
00127
00128
00129 G4double M9[NDENSARRAY]={0.788,2.450,10.9653,1.8433,4.4096,0.11083,3.2962,0.0,0.121};
00130 AddMaterial(M9,"G4_F");
00131 indexZ[9]=9;
00132 state[9]=kStateGas;
00133
00134
00135 G4double M10[NDENSARRAY]={0.587,2.577,11.9041,2.0735,4.6421,0.08064,3.5771,0.0,0.110};
00136 AddMaterial(M10,"G4_Ne");
00137 indexZ[10]=10;
00138 state[10]=kStateGas;
00139
00140
00141 G4double M11[NDENSARRAY]={19.641,2.648,5.0526,0.2880,3.1962,0.07772,3.6452,0.08,0.098};
00142 AddMaterial(M11,"G4_Na");
00143 indexZ[11]=11;
00144
00145
00146 G4double M12[NDENSARRAY]={26.708,2.331,4.5297,0.1499,3.0668,0.081163,3.6166,0.08,0.073};
00147 AddMaterial(M12,"G4_Mg");
00148 indexZ[12]=12;
00149
00150
00151 G4double M13[NDENSARRAY]={32.86,2.18,4.2395,0.1708,3.0127,0.08024,3.6345,0.12,0.061};
00152 AddMaterial(M13,"G4_Al");
00153 indexZ[13]=13;
00154
00155
00156 G4double M14[NDENSARRAY]={31.055,2.103,4.4351,0.2014,2.8715,0.14921,3.2546,0.14,0.059};
00157 AddMaterial(M14,"G4_Si");
00158 indexZ[14]=14;
00159
00160
00161 G4double M15[NDENSARRAY]={29.743,2.056,4.5214,0.1696,2.7815,0.2361,2.9158,0.14,0.057};
00162 AddMaterial(M15,"G4_P");
00163 indexZ[15]=15;
00164
00165
00166 G4double M16[NDENSARRAY]={28.789,2.131,4.6659,0.158,2.7159,0.33992,2.6456,0.14,0.059};
00167 AddMaterial(M16,"G4_S");
00168 indexZ[16]=16;
00169
00170
00171 G4double M17[NDENSARRAY]={1.092,1.734,11.1421,1.5555,4.2994,0.19849,2.9702,0.0,0.041};
00172 AddMaterial(M17,"G4_Cl");
00173 indexZ[17]=17;
00174 state[17]=kStateGas;
00175
00176
00177 G4double M18[NDENSARRAY]={0.789,1.753,11.9480,1.7635,4.4855,0.19714,2.9618,0.0,0.037};
00178 AddMaterial(M18,"G4_Ar");
00179 indexZ[18]=18;
00180 state[18]=kStateGas;
00181
00182
00183 G4double M19[NDENSARRAY]={18.65,1.830,5.6423,0.3851,3.1724,0.19827,2.9233,0.10,0.035};
00184 AddMaterial(M19,"G4_K");
00185 indexZ[19]=19;
00186
00187
00188 G4double M20[NDENSARRAY]={25.342,1.666,5.0396,0.3228,3.1191,0.15643,3.0745,0.14,0.031};
00189 AddMaterial(M20,"G4_Ca");
00190 indexZ[20]=20;
00191
00192
00193 G4double M21[NDENSARRAY]={34.050,1.826,4.6949,0.1640,3.0593,0.15754,3.0517,0.10,0.027};
00194 AddMaterial(M21,"G4_Sc");
00195 indexZ[21]=21;
00196
00197
00198 G4double M22[NDENSARRAY]={41.619,1.969,4.4450,0.0957,3.0386,0.15662,3.0302,0.12,0.025};
00199 AddMaterial(M22,"G4_Ti");
00200 indexZ[22]=22;
00201
00202
00203 G4double M23[NDENSARRAY]={47.861,2.070,4.2659,0.0691,3.0322,0.15436,3.0163,0.14,0.024};
00204 AddMaterial(M23,"G4_V");
00205 indexZ[23]=23;
00206
00207
00208 G4double M24[NDENSARRAY]={52.458,2.181,4.1781,0.0340,3.0451,0.15419,2.9896,0.14,0.023};
00209 AddMaterial(M24,"G4_Cr");
00210 indexZ[24]=24;
00211
00212
00213 G4double M25[NDENSARRAY]={53.022,2.347,4.2702,0.0447,3.1074,0.14973,2.9796,0.14,0.021};
00214 AddMaterial(M25,"G4_Mn");
00215 indexZ[25]=25;
00216
00217
00218 G4double M26[NDENSARRAY]={55.172,2.504,4.2911,-0.0012,3.1531,0.146,2.9632,0.12,0.021};
00219 AddMaterial(M26,"G4_Fe");
00220 indexZ[26]=26;
00221
00222
00223 G4double M27[NDENSARRAY]={58.188,2.626,4.2601,-0.0187,3.1790,0.14474,2.9502,0.12,0.019};
00224 AddMaterial(M27,"G4_Co");
00225 indexZ[27]=27;
00226
00227
00228 G4double M28[NDENSARRAY]={59.385,2.889,4.3115,-0.0566,3.1851,0.16496,2.843,0.10,0.020};
00229 AddMaterial(M28,"G4_Ni");
00230 indexZ[28]=28;
00231
00232
00233 G4double M29[NDENSARRAY]={58.270,2.956,4.4190,-0.0254,3.2792,0.14339,2.9044,0.08,0.019};
00234 AddMaterial(M29,"G4_Cu");
00235 indexZ[29]=29;
00236
00237
00238 G4double M30[NDENSARRAY]={52.132,3.142,4.6906,0.0049,3.3668,0.14714,2.8652,0.08,0.019};
00239 AddMaterial(M30,"G4_Zn");
00240 indexZ[30]=30;
00241
00242
00243 G4double M31[NDENSARRAY]={46.688,2.747,4.9353,0.2267,3.5434,0.09440,3.1314,0.14,0.019};
00244 AddMaterial(M31,"G4_Ga");
00245 indexZ[31]=31;
00246
00247
00248 G4double M32[NDENSARRAY]={44.141,2.461,5.1411,0.3376,3.6096,0.07188,3.3306,0.14,0.025};
00249 AddMaterial(M32,"G4_Ge");
00250 indexZ[32]=32;
00251
00252
00253 G4double M33[NDENSARRAY]={45.779,2.219,5.0510,0.1767,3.5702,0.06633,3.4176,0.00,0.030};
00254 AddMaterial(M33,"G4_As");
00255 indexZ[33]=33;
00256
00257
00258 G4double M34[NDENSARRAY]={40.112,2.104,5.3210,0.2258,3.6264,0.06568,3.4317,0.10,0.024};
00259 AddMaterial(M34,"G4_Se");
00260 indexZ[34]=34;
00261
00262
00263 G4double M35[NDENSARRAY]={1.604,1.845,11.7307,1.5262,4.9899,0.06335,3.467,0,0.022};
00264 AddMaterial(M35,"G4_Br");
00265 indexZ[35]=35;
00266 state[35]=kStateGas;
00267
00268
00269 G4double M36[NDENSARRAY]={1.114,1.77,12.5115,1.7158,5.0748,0.07446,3.4051,0,0.025};
00270 AddMaterial(M36,"G4_Kr");
00271 indexZ[36]=36;
00272 state[36]=kStateGas;
00273
00274
00275 G4double M37[NDENSARRAY]={23.467,1.823,6.4776,0.5737,3.7995,0.07261,3.4177,0.14,0.026};
00276 AddMaterial(M37,"G4_Ru");
00277 indexZ[37]=37;
00278
00279
00280 G4double M38[NDENSARRAY]={30.244,1.707,5.9867,0.4585,3.6778,0.07165,3.4435,0.14,0.026};
00281 AddMaterial(M38,"G4_Sr");
00282 indexZ[38]=38;
00283
00284
00285 G4double M39[NDENSARRAY]={40.346,1.649,5.4801,0.3608,3.5542,0.07138,3.4565,0.14,0.027};
00286 AddMaterial(M39,"G4_Y");
00287 indexZ[39]=39;
00288
00289
00290 G4double M40[NDENSARRAY]={48.671,1.638,5.1774,0.2957,3.489,0.07177,3.4533,0.14,0.028};
00291 AddMaterial(M40,"G4_Zr");
00292 indexZ[40]=40;
00293
00294
00295 G4double M41[NDENSARRAY]={56.039,1.734,5.0141,0.1785,3.2201,0.13883,3.093,0.14,0.036};
00296 AddMaterial(M41,"G4_Nb");
00297 indexZ[41]=41;
00298
00299
00300 G4double M42[NDENSARRAY]={60.951,1.658,4.8793,0.2267,3.2784,0.10525,3.2549,0.14,0.03};
00301 AddMaterial(M42,"G4_Mo");
00302 indexZ[42]=42;
00303
00304
00305 G4double M43[NDENSARRAY]={64.760,1.727,4.7769,0.0949,3.1253,0.16572,2.9738,0.14,0.040};
00306 AddMaterial(M43,"G4_Tc");
00307 indexZ[43]=43;
00308
00309
00310 G4double M44[NDENSARRAY]={66.978,1.780,4.7694,0.0599,3.0834,0.19342,2.8707,0.14,0.046};
00311 AddMaterial(M44,"G4_Ru");
00312 indexZ[44]=44;
00313
00314
00315 G4double M45[NDENSARRAY]={67.128,1.804,4.8008,0.0576,3.1069,0.19205,2.8633,0.14,0.046};
00316 AddMaterial(M45,"G4_Rh");
00317 indexZ[45]=45;
00318
00319
00320 G4double M46[NDENSARRAY]={65.683,1.911,4.9358,0.0563,3.0555,0.24178,2.7239,0.14,0.047};
00321 AddMaterial(M46,"G4_Pd");
00322 indexZ[46]=46;
00323
00324
00325 G4double M47[NDENSARRAY]={61.635,1.933,5.0630,0.0657,3.1074,0.24585,2.6899,0.14,0.052};
00326 AddMaterial(M47,"G4_Ag");
00327 indexZ[47]=47;
00328
00329
00330 G4double M48[NDENSARRAY]={55.381,1.895,5.2727,0.1281,3.1667,0.24609,2.6772,0.14,0.051};
00331 AddMaterial(M48,"G4_Cd");
00332 indexZ[48]=48;
00333
00334
00335 G4double M49[NDENSARRAY]={50.896,1.851,5.5211,0.2406,3.2032,0.23879,2.7144,0.14,0.044};
00336 AddMaterial(M49,"G4_In");
00337 indexZ[49]=49;
00338
00339
00340 G4double M50[NDENSARRAY]={50.567,1.732,5.5340,0.2879,3.2959,0.18689,2.8576,0.14,0.037};
00341 AddMaterial(M50,"G4_Sn");
00342 indexZ[50]=50;
00343
00344
00345 G4double M51[NDENSARRAY]={48.242,1.645,5.6241,0.3189,3.3489,0.16652,2.9319,0.14,0.034};
00346 AddMaterial(M51,"G4_Sb");
00347 indexZ[51]=51;
00348
00349
00350 G4double M52[NDENSARRAY]={45.952,1.577,5.7131,0.3296,3.4418,0.13815,3.0354,0.14,0.033};
00351 AddMaterial(M52,"G4_Te");
00352 indexZ[52]=52;
00353
00354
00355 G4double M53[NDENSARRAY]={41.348,1.498,5.9488,0.0549,3.2596,0.23766,2.7276,0.0,0.045};
00356 AddMaterial(M53,"G4_I");
00357 indexZ[53]=53;
00358
00359
00360 G4double M54[NDENSARRAY]={1.369,1.435,12.7281,1.563,4.7371,0.23314,2.7414,0,0.043};
00361 AddMaterial(M54,"G4_Xe");
00362 indexZ[54]=54;
00363 state[54]=kStateGas;
00364
00365
00366 G4double M55[NDENSARRAY]={25.37,1.462,6.9135,0.5473,3.5914,0.18233,2.8866,0.14,0.035};
00367 AddMaterial(M55,"G4_Cs");
00368 indexZ[55]=55;
00369
00370
00371 G4double M56[NDENSARRAY]={34.425,1.410,6.3153,0.4190,3.4547,0.18268,2.8906,0.14,0.035};
00372 AddMaterial(M56,"G4_Ba");
00373 indexZ[56]=56;
00374
00375
00376 G4double M57[NDENSARRAY]={45.792,1.392,5.7850,0.3161,3.3293,0.18591,2.8828,0.14,0.036};
00377 AddMaterial(M57,"G4_La");
00378 indexZ[57]=57;
00379
00380
00381 G4double M58[NDENSARRAY]={47.834,1.461,5.7837,0.2713,3.3432,0.18885,2.8592,0.14,0.040};
00382 AddMaterial(M58,"G4_Ce");
00383 indexZ[58]=58;
00384
00385
00386 G4double M59[NDENSARRAY]={48.301,1.520,5.8096,0.2333,3.2773,0.23265,2.7331,0.14,0.041};
00387 AddMaterial(M59,"G4_Pr");
00388 indexZ[59]=59;
00389
00390
00391 G4double M60[NDENSARRAY]={48.819,1.588,5.8290,0.1984,3.3063,0.23530,2.7050,0.14,0.044};
00392 AddMaterial(M60,"G4_Ne");
00393 indexZ[60]=60;
00394
00395
00396 G4double M61[NDENSARRAY]={50.236,1.672,5.8224,0.1627,3.3199,0.24280,2.6674,0.14,0.048};
00397 AddMaterial(M61,"G4_Pr");
00398 indexZ[61]=61;
00399
00400
00401 G4double M62[NDENSARRAY]={50.540,1.749,5.8597,0.1520,3.3460,0.24698,2.6403,0.14,0.053};
00402 AddMaterial(M62,"G4_Sa");
00403 indexZ[62]=62;
00404
00405
00406 G4double M63[NDENSARRAY]={42.484,1.838,6.2278,0.1888,3.4633,0.24448,2.6245,0.14,0.06};
00407 AddMaterial(M63,"G4_Eu");
00408 indexZ[63]=63;
00409
00410
00411 G4double M64[NDENSARRAY]={51.672,1.882,5.8738,0.1058,3.3932,0.25109,2.5977,0.14,0.061};
00412 AddMaterial(M64,"G4_Gd");
00413 indexZ[64]=64;
00414
00415
00416 G4double M65[NDENSARRAY]={52.865,1.993,5.9045,0.0947,3.4224,0.24453,2.6056,0.14,0.063};
00417 AddMaterial(M65,"G4_Tb");
00418 indexZ[65]=65;
00419
00420
00421 G4double M66[NDENSARRAY]={53.698,2.081,5.9183,0.0822,3.4474,0.24665,2.5849,0.14,0.061};
00422 AddMaterial(M66,"G4_Dy");
00423 indexZ[66]=66;
00424
00425
00426 G4double M67[NDENSARRAY]={54.467,2.197,5.9587,0.0761,3.4782,0.24638,2.5726,0.14,0.062};
00427 AddMaterial(M67,"G4_Ho");
00428 indexZ[67]=67;
00429
00430
00431 G4double M68[NDENSARRAY]={55.322,2.26,5.9521,0.0648,3.4922,0.24823,2.5573,0.14,0.061};
00432 AddMaterial(M68,"G4_Er");
00433 indexZ[68]=68;
00434
00435
00436 G4double M69[NDENSARRAY]={56.225,2.333,5.9677,0.0812,3.5085,0.24189,2.5469,0.14,0.062};
00437 AddMaterial(M69,"G4_Tm");
00438 indexZ[69]=69;
00439
00440
00441 G4double M70[NDENSARRAY]={47.546,2.505,6.3325,0.1199,3.6246,0.25295,2.5141,0.14,0.071};
00442 AddMaterial(M70,"G4_Yb");
00443 indexZ[70]=70;
00444
00445
00446 G4double M71[NDENSARRAY]={57.581,2.348,5.9785,0.1560,3.5218,0.24033,2.5643,0.14,0.054};
00447 AddMaterial(M71,"G4_Lu");
00448 indexZ[71]=71;
00449
00450
00451 G4double M72[NDENSARRAY]={66.770,2.174,5.7139,0.1965,3.4337,0.22918,2.6155,0.14,0.035};
00452 AddMaterial(M72,"G4_Hf");
00453 indexZ[72]=72;
00454
00455
00456 G4double M73[NDENSARRAY]={74.692,2.07,5.5262,0.2117,3.4805,0.17798,2.7623,0.14,0.03};
00457 AddMaterial(M73,"G4_Ta");
00458 indexZ[73]=73;
00459
00460
00461 G4double M74[NDENSARRAY]={80.315,1.997,5.4059,0.2167,3.496,0.15509,2.8447,0.14,0.027};
00462 AddMaterial(M74,"G4_W");
00463 indexZ[74]=74;
00464
00465
00466 G4double M75[NDENSARRAY]={83.846,1.976,5.3445,0.0559,3.4845,0.15184,2.8627,0.08,0.026};
00467 AddMaterial(M75,"G4_Re");
00468 indexZ[75]=75;
00469
00470
00471 G4double M76[NDENSARRAY]={86.537,1.947,5.3083,0.0891,3.5414,0.12751,2.9608,0.10,0.023};
00472 AddMaterial(M76,"G4_Os");
00473 indexZ[76]=76;
00474
00475
00476 G4double M77[NDENSARRAY]={86.357,1.927,5.3418,0.0819,3.5480,0.12690,2.9658,0.10,0.023};
00477 AddMaterial(M77,"G4_Ir");
00478 indexZ[77]=77;
00479
00480
00481 G4double M78[NDENSARRAY]={84.389,1.965,5.4732,0.1484,3.6212,0.11128,3.0417,0.12,0.021};
00482 AddMaterial(M78,"G4_Pt");
00483 indexZ[78]=78;
00484
00485
00486 G4double M79[NDENSARRAY]={80.215,1.926,5.5747,0.2021,3.6979,0.09756,3.1101,0.14,0.020};
00487 AddMaterial(M79,"G4_Au");
00488 indexZ[79]=79;
00489
00490
00491 G4double M80[NDENSARRAY]={66.977,1.904,5.9605,0.2756,3.7275,0.11014,3.0519,0.14,0.021};
00492 AddMaterial(M80,"G4_Hg");
00493 indexZ[80]=80;
00494
00495
00496 G4double M81[NDENSARRAY]={62.104,1.814,6.1365,0.3491,3.8044,0.09455,3.1450,0.14,0.019};
00497 AddMaterial(M81,"G4_Tl");
00498 indexZ[81]=81;
00499
00500
00501 G4double M82[NDENSARRAY]={61.072,1.755,6.2018,0.3776,3.8073,0.09359,3.1608,0.14,0.019};
00502 AddMaterial(M82,"G4_Pb");
00503 indexZ[82]=82;
00504
00505
00506 G4double M83[NDENSARRAY]={56.696,1.684,6.3505,0.4152,3.8248,0.0941,3.1671,0.14,0.02};
00507 AddMaterial(M83,"G4_Bi");
00508 indexZ[83]=83;
00509
00510
00511 G4double M84[NDENSARRAY]={55.773,1.637,6.4003,0.4267,3.8293,0.09282,3.183,0.14,0.02};
00512 AddMaterial(M84,"G4_Po");
00513 indexZ[84]=84;
00514
00515
00516 G4double M85[NDENSARRAY]={1.708,1.458,13.2839,1.5368,4.9889,0.20798,2.7409,0,0.057};
00517 AddMaterial(M85,"G4_Rn");
00518 indexZ[86]=85;
00519 state[86]=kStateGas;
00520
00521
00522 G4double M86[NDENSARRAY]={40.205,1.403,7.0452,0.5991,3.9428,0.08804,3.2454,0.14,0.022};
00523 AddMaterial(M86,"G4_Ra");
00524 indexZ[88]=86;
00525
00526
00527 G4double M87[NDENSARRAY]={57.254,1.380,6.3742,0.4559,3.7966,0.08567,3.2683,0.14,0.023};
00528 AddMaterial(M87,"G4_Ac");
00529 indexZ[89]=87;
00530
00531
00532 G4double M88[NDENSARRAY]={61.438,1.363,6.2473,0.4202,3.7681,0.08655,3.2610,0.14,0.025};
00533 AddMaterial(M88,"G4_Th");
00534 indexZ[90]=88;
00535
00536
00537 G4double M89[NDENSARRAY]={70.901,1.42,6.0327,0.3144,3.5079,.14770,2.9845,0.14,0.036};
00538 AddMaterial(M89,"G4_Pa");
00539 indexZ[91]=89;
00540
00541
00542 G4double M90[NDENSARRAY]={77.986,1.447,5.8694,0.2260,3.3721,.19677,2.8171,0.14,0.043};
00543 AddMaterial(M90,"G4_U");
00544 indexZ[92]=90;
00545
00546
00547 G4double M91[NDENSARRAY]={81.221,1.468,5.8149,0.1869,3.369,0.19741,2.8082,0.14,0.043};
00548 AddMaterial(M91,"G4_Np");
00549 indexZ[93]=91;
00550
00551
00552 G4double M92[NDENSARRAY]={80.486,1.519,5.8748,0.1557,3.3981,0.20419,2.7679,0.14,0.057};
00553 AddMaterial(M92,"G4_Pu");
00554 indexZ[94]=92;
00555
00556
00557 G4double M93[NDENSARRAY]={66.607,1.552,6.2813,0.2274,3.5021,0.20308,2.7615,0.14,0.056};
00558 AddMaterial(M93,"G4_Am");
00559 indexZ[95]=93;
00560
00561
00562 G4double M94[NDENSARRAY]={66.022,1.559,6.3097,0.2484,3.516,.20257,2.7579,0.14,0.056};
00563 AddMaterial(M94,"G4_Cm");
00564 indexZ[96]=94;
00565
00566
00567 G4double M95[NDENSARRAY]={67.557,1.574,6.2912,0.2378,3.5186,.20192,2.7560,0.14,0.062};
00568 AddMaterial(M95,"G4_Bk");
00569 indexZ[97]=95;
00570
00571
00572 G4double M96[NDENSARRAY]={22.667,1.950,3.1100,0.1329,2.6234,0.10783,3.4442,0,0.048};
00573 AddMaterial(M96,"G4_A-150_TISSUE");
00574
00575
00576 G4double M97[NDENSARRAY]={19.010,1.976,3.4341,0.2197,2.6928,0.11100,3.4047,0,0.069};
00577 AddMaterial(M97,"G4_ACETONE");
00578
00579
00580 G4double M98[NDENSARRAY]={0.700,1.784,9.8419,1.6017,4.0074,0.12167,3.4277,0,0.080};
00581 AddMaterial(M98,"G4_ACETYLENE");
00582
00583
00584 G4double M99[NDENSARRAY]={24.098,1.892,3.1724,0.1295,2.4219,0.20908,3.0271,0,0.052};
00585 AddMaterial(M99,"G4_ADENINE");
00586
00587
00588 G4double M100[NDENSARRAY]={20.655,1.987,3.2367,0.1827,2.6530,0.10278,3.4817,0,0.060};
00589 AddMaterial(M100,"G4_ADIPOSE_TISSUE_ICRP");
00590
00591
00592 G4double M101[NDENSARRAY]={0.707,2.054,10.5961,1.7418,4.2759,0.10914,3.3994,0,0.090};
00593 AddMaterial(M101,"G4_AIR");
00594
00595
00596 G4double M102[NDENSARRAY]={25.204,2.074,3.0965,0.1354,2.6336,0.11484,3.3526,0,0.056};
00597 AddMaterial(M102,"G4_ALANINE");
00598
00599
00600 G4double M103[NDENSARRAY]={40.206,2.394,3.5682,0.0402,2.8665,0.08500,3.5458,0,0.031};
00601 AddMaterial(M103,"G4_ALUMINIM_OXIDE");
00602
00603
00604 G4double M104[NDENSARRAY]={22.450,1.946,3.0701,0.1335,2.5610,0.11934,3.4098,0,0.053};
00605 AddMaterial(M104,"G4_AMBER");
00606
00607
00608 G4double M105[NDENSARRAY]={0.635,1.814,9.8763,1.6822,4.1158,0.08315,3.6464,0,0.102};
00609 AddMaterial(M105,"G4_AMMONIA");
00610
00611
00612 G4double M106[NDENSARRAY]={21.361,1.938,3.2622,0.1618,2.5805,0.13134,3.3434,0,0.052};
00613 AddMaterial(M106,"G4_ANILINE");
00614
00615
00616 G4double M107[NDENSARRAY]={23.704,1.954,3.1514,0.1146,2.5213,0.14677,3.2831,0,0.042};
00617 AddMaterial(M107,"G4_ANTHRACENE");
00618
00619
00620 G4double M108[NDENSARRAY]={25.199,2.013,3.4528,0.1252,3.042,0.05268,3.7365,0,0.043};
00621 AddMaterial(M108,"G4_B-100_BONE");
00622
00623
00624 G4double M109[NDENSARRAY]={23.408,2.046,3.2582,0.1471,2.6055,0.12713,3.347,0,0.052};
00625 AddMaterial(M109,"G4_BAKELITE");
00626
00627
00628 G4double M110[NDENSARRAY]={41.398,1.727,5.4122,-0.0098,3.3871,0.15991,2.8867,0,0.034};
00629 AddMaterial(M110,"G4_BARIUM_FLUORIDE");
00630
00631
00632 G4double M111[NDENSARRAY]={40.805,1.893,4.8923,-0.0128,3.4069,0.11747,3.0427,0,0.03};
00633 AddMaterial(M111,"G4_BARIUM_SULFATE");
00634
00635
00636 G4double M112[NDENSARRAY]={19.806,1.873,3.3269,0.171,2.5091,0.16519,3.2174,0,0.052};
00637 AddMaterial(M112,"G4_BENZENE");
00638
00639
00640 G4double M113[NDENSARRAY]={34.629,2.296,2.9801,0.0241,2.5846,0.10755,3.4927,0,0.031};
00641 AddMaterial(M113,"G4_BERYLLIUM_OXIDE");
00642
00643
00644 G4double M114[NDENSARRAY]={49.904,2.121,5.7409,0.0456,3.7816,0.09569,3.0781,0,0.023};
00645 AddMaterial(M114,"G4_BGO");
00646
00647
00648 G4double M115[NDENSARRAY]={22.001,2.184,3.4581,0.2239,2.8017,0.08492,3.5406,0,0.088};
00649 AddMaterial(M115,"G4_BLOOD_ICRP");
00650
00651
00652 G4double M116[NDENSARRAY]={28.536,2.091,3.3390,0.0944,3.0201,0.05822,3.6419,0,0.042};
00653 AddMaterial(M116,"G4_BONE_COMPACT_ICRU");
00654
00655
00656 G4double M117[NDENSARRAY]={28.298,2.118,3.6488,0.1161,3.0919,0.06198,3.5919,0,0.04};
00657 AddMaterial(M117,"G4_BONE_CORTICAL_ICRP");
00658
00659
00660 G4double M118[NDENSARRAY]={31.38,2.14,2.9859,0.0093,2.1006,0.37087,2.8076,0,0.022};
00661 AddMaterial(M118,"G4_BORON_CARBIDE");
00662
00663
00664 G4double M119[NDENSARRAY]={27.107,2.446,3.6027,0.1843,2.7379,0.11548,3.3832,0,0.053};
00665 AddMaterial(M119,"G4_BORON_OXIDE");
00666
00667
00668 G4double M120[NDENSARRAY]={21.772,2.162,3.4279,0.2206,2.8021,0.08255,3.5585,0,0.086};
00669 AddMaterial(M120,"G4_BRAIN_ICRP");
00670
00671
00672 G4double M121[NDENSARRAY]={1.101,1.727,8.5633,1.3788,3.7524,0.10852,3.4184,0,0.1};
00673 AddMaterial(M121,"G4_BUTANE");
00674
00675
00676 G4double M122[NDENSARRAY]={19.52,1.942,3.2425,0.1937,2.6439,0.10081,3.5139,0,0.065};
00677 AddMaterial(M122,"G4_N-BUTYL_ALCOHOL");
00678
00679
00680 G4double M123[NDENSARRAY]={27.023,2.128,3.3338,0.151,2.7083,0.10492,3.4344,0,0.053};
00681 AddMaterial(M123,"G4_C-552");
00682
00683
00684 G4double M124[NDENSARRAY]={46.314,1.935,5.9096,0.0438,3.2836,0.2484,2.6665,0,0.057};
00685 AddMaterial(M124,"G4_CADMIUM_TELLURIDE");
00686
00687
00688 G4double M125[NDENSARRAY]={52.954,2.289,5.3594,0.0123,3.5941,0.12861,2.915,0,0.027};
00689 AddMaterial(M125,"G4_CADMIUM_TUNGSTATE");
00690
00691
00692 G4double M126[NDENSARRAY]={34.08,2.141,3.7738,0.0492,3.0549,0.08301,3.412,0,0.037};
00693 AddMaterial(M126,"G4_CALCIUM_CARBONATE");
00694
00695
00696 G4double M127[NDENSARRAY]={35.849,2.127,4.0653,0.0676,3.1683,0.06942,3.5263,0,0.044};
00697 AddMaterial(M127,"G4_CALCIUM_FLUORIDE");
00698
00699
00700 G4double M128[NDENSARRAY]={36.988,1.973,4.1209,-0.0172,3.0171,0.12128,3.1936,0,0.024};
00701 AddMaterial(M128,"G4_CALCIUM_OXIDE");
00702
00703
00704 G4double M129[NDENSARRAY]={35.038,2.179,3.9388,0.0587,3.1229,0.07708,3.4495,0,0.021};
00705 AddMaterial(M129,"G4_CALCIUM_SULFATE");
00706
00707
00708 G4double M130[NDENSARRAY]={46.934,2.262,5.2603,0.0323,3.8932,0.0621,3.2649,0,0.021};
00709 AddMaterial(M130,"G4_CALCIUM_TUNGSTATE");
00710
00711
00712 G4double M131[NDENSARRAY]={0.874,2.118,10.1537,1.6294,4.1825,0.11768,3.3227,0,0.091};
00713 AddMaterial(M131,"G4_CARBON_DIOXIDE");
00714
00715
00716 G4double M132[NDENSARRAY]={25.234,1.742,4.7712,0.1773,2.9165,0.19018,3.0116,0,0.041};
00717 AddMaterial(M132,"G4_CARBON_TETRACHLORIDE");
00718
00719
00720 G4double M133[NDENSARRAY]={25.008,2.17,3.2647,0.158,2.6778,0.11151,3.381,0,0.06};
00721 AddMaterial(M133,"G4_CELLULOSE_CELLOPHANE");
00722
00723
00724 G4double M134[NDENSARRAY]={23.041,2.128,3.3497,0.1794,2.6809,0.11444,3.3738,0,0.056};
00725 AddMaterial(M134,"G4_CELLULOSE_BUTYRATE");
00726
00727
00728 G4double M135[NDENSARRAY]={25.224,2.252,3.4762,0.1897,2.7253,0.11813,3.3237,0,0.063};
00729 AddMaterial(M135,"G4_CELLULOSE_NITRATE");
00730
00731
00732 G4double M136[NDENSARRAY]={21.743,2.205,3.5212,0.2363,2.8769,0.07666,3.5607,0,0.095};
00733 AddMaterial(M136,"G4_CERIC_SULFATE");
00734
00735
00736 G4double M137[NDENSARRAY]={37.942,1.714,5.9046,0.0084,3.3374,0.22052,2.728,0,0.044};
00737 AddMaterial(M137,"G4_CESIUM_FLUORIDE");
00738
00739
00740 G4double M138[NDENSARRAY]={39.455,1.672,6.2807,0.0395,3.3353,0.25381,2.6657,0,0.067};
00741 AddMaterial(M138,"G4_CESIUM_IODIDE");
00742
00743
00744 G4double M139[NDENSARRAY]={21.752,1.889,3.8201,0.1714,2.9272,0.09856,3.3797,0,0.031};
00745 AddMaterial(M139,"G4_CHLOROBENZENE");
00746
00747
00748 G4double M140[NDENSARRAY]={24.462,1.734,4.7055,0.1786,2.9581,0.16959,3.0627,0,0.038};
00749 AddMaterial(M140,"G4_CHLOROFORM");
00750
00751
00752 G4double M141[NDENSARRAY]={30.986,2.322,3.9464,0.1301,3.0466,0.07515,3.5467,0,0.024};
00753 AddMaterial(M141,"G4_CONCRETE");
00754
00755
00756 G4double M142[NDENSARRAY]={19.207,1.861,3.1544,0.1728,2.5549,0.12035,3.4278,0,0.057};
00757 AddMaterial(M142,"G4_CYCLOHEXANE");
00758
00759
00760 G4double M143[NDENSARRAY]={23.354,1.862,4.0348,0.1587,2.8276,0.1601,3.0836,0,0.029};
00761 AddMaterial(M143,"G4_1,2-DICHLOROBENZENE");
00762
00763
00764 G4double M144[NDENSARRAY]={22.894,1.903,4.0135,0.1773,3.1586,0.06799,3.525,0,0.026};
00765 AddMaterial(M144,"G4_DICHLORODIETHYL_ETHER");
00766
00767
00768 G4double M145[NDENSARRAY]={22.764,1.618,4.1849,0.1375,2.9529,0.13383,3.1675,0,0.03};
00769 AddMaterial(M145,"G4_1,2-DICHLOROETHANE");
00770
00771
00772 G4double M146[NDENSARRAY]={18.326,1.951,3.3721,0.2231,2.6745,0.1055,3.4586,0,0.07};
00773 AddMaterial(M146,"G4_DIETHYL_ETHER");
00774
00775
00776 G4double M147[NDENSARRAY]={20.763,2.005,3.3311,0.1977,2.6686,0.1147,3.371,0,0.065};
00777 AddMaterial(M147,"G4_N,N-DIMETHYL_FORMAMIDE");
00778
00779
00780 G4double M148[NDENSARRAY]={22.173,2.075,3.9844,0.2021,3.1263,0.06619,3.5708,0,0.03};
00781 AddMaterial(M148,"G4_DIMETHYL_SULFOXIDE");
00782
00783
00784 G4double M149[NDENSARRAY]={0.789,1.69,9.1043,1.5107,3.8743,0.09627,3.6095,0,0.097};
00785 AddMaterial(M149,"G4_ETHANE");
00786
00787
00788 G4double M150[NDENSARRAY]={19.232,2.013,3.3699,0.2218,2.7052,0.09878,3.4834,0,0.071};
00789 AddMaterial(M150,"G4_ETHYL_ALCOHOL");
00790
00791
00792 G4double M151[NDENSARRAY]={22.594,2.065,3.2415,0.1683,2.6527,0.11077,3.4098,0,0.057};
00793 AddMaterial(M151,"G4_ETHYL_CELLULOSE");
00794
00795
00796 G4double M152[NDENSARRAY]={0.746,1.733,9.438,1.5528,3.9327,0.10636,3.5387,0,0.085};
00797 AddMaterial(M152,"G4_ETHYLENE");
00798
00799
00800 G4double M153[NDENSARRAY]={22.388,2.154,3.372,0.207,2.7446,0.0969,3.455,0,0.077};
00801 AddMaterial(M153,"G4_EYE_LENS_ICRP");
00802
00803
00804 G4double M154[NDENSARRAY]={45.331,2.747,4.2245,-0.0074,3.2573,0.10478,3.1313,0,0.026};
00805 AddMaterial(M154,"G4_FERRIC_OXIDE");
00806
00807
00808 G4double M155[NDENSARRAY]={52.546,2.726,4.2057,-0.0988,3.1749,0.12911,3.024,0,0.022};
00809 AddMaterial(M155,"G4_FERROBORIDE");
00810
00811
00812 G4double M156[NDENSARRAY]={47.327,2.769,4.3175,-0.0279,3.2002,0.12959,3.0168,0,0.022};
00813 AddMaterial(M156,"G4_FERROUS_OXIDE");
00814
00815
00816 G4double M157[NDENSARRAY]={21.69,2.208,3.5183,0.2378,2.8254,0.08759,3.4923,0,0.096};
00817 AddMaterial(M157,"G4_FERROUS_SULFATE");
00818
00819
00820 G4double M158[NDENSARRAY]={21.121,1.974,4.8251,0.3035,3.2659,0.07978,3.4626,0,0.025};
00821 AddMaterial(M158,"G4_FREON-12");
00822
00823
00824 G4double M159[NDENSARRAY]={25.877,2.195,5.7976,0.3406,3.7956,0.05144,3.5565,0,0.021};
00825 AddMaterial(M159,"G4_FREON-12B2");
00826
00827
00828 G4double M160[NDENSARRAY]={19.432,2.116,4.7483,0.3659,3.2337,0.07238,3.5551,0,0.05};
00829 AddMaterial(M160,"G4_FREON-13");
00830
00831
00832 G4double M161[NDENSARRAY]={23.849,2.233,5.3555,0.3522,3.7554,0.03925,3.7194,0,0.036};
00833 AddMaterial(M161,"G4_FREON-13B1");
00834
00835
00836 G4double M162[NDENSARRAY]={25.615,1.924,5.8774,0.2847,3.728,0.09112,3.1658,0,0.025};
00837 AddMaterial(M162,"G4_FREON-13I1");
00838
00839
00840 G4double M163[NDENSARRAY]={51.099,2.179,5.5347,-0.1774,3.4045,0.22161,2.63,0,0.056};
00841 AddMaterial(M163,"G4_GADOLINIUM_OXYSULFIDE");
00842
00843
00844 G4double M164[NDENSARRAY]={44.17,2.652,5.3299,0.1764,3.642,0.07152,3.3356,0,0.027};
00845 AddMaterial(M164,"G4_GALLIUM_ARSENIDE");
00846
00847
00848 G4double M165[NDENSARRAY]={24.058,2.156,3.2687,0.1709,2.7058,0.10102,3.4418,0,0.06};
00849 AddMaterial(M165,"G4_GEL_PHOTO_EMULSION");
00850
00851
00852 G4double M166[NDENSARRAY]={30.339,2.369,3.9708,0.1479,2.9933,0.0827,3.5224,0,0.022};
00853 AddMaterial(M166,"G4_Pyrex_Glass");
00854
00855
00856 G4double M167[NDENSARRAY]={46.631,2.085,5.8476,0.0614,3.8146,0.09544,3.074,0,0.025};
00857 AddMaterial(M167,"G4_GLASS_LEAD");
00858
00859
00860 G4double M168[NDENSARRAY]={31.481,2.329,4.0602,0.1237,3.0649,0.07678,3.5381,0,0.025};
00861 AddMaterial(M168,"G4_GLASS_PLATE");
00862
00863
00864 G4double M169[NDENSARRAY]={26.153,2.174,3.1649,0.1411,2.67,0.10783,3.3946,0,0.061};
00865 AddMaterial(M169,"G4_GLUCOSE");
00866
00867
00868 G4double M170[NDENSARRAY]={25.437,2.077,3.1167,0.1347,2.6301,0.11931,3.3254,0,0.055};
00869 AddMaterial(M170,"G4_GLUTAMINE");
00870
00871
00872 G4double M171[NDENSARRAY]={23.846,2.12,3.2267,0.1653,2.6862,0.10168,3.4481,0,0.067};
00873 AddMaterial(M171,"G4_GLYCEROL");
00874
00875
00876 G4double M172[NDENSARRAY]={26.022,1.97,3.1171,0.1163,2.4296,0.2053,3.0186,0,0.069};
00877 AddMaterial(M172,"G4_GUANINE");
00878
00879
00880 G4double M173[NDENSARRAY]={31.379,2.187,3.8382,0.0995,3.1206,0.06949,3.5134,0,0.038};
00881 AddMaterial(M173,"G4_GYPSUM");
00882
00883
00884 G4double M174[NDENSARRAY]={18.128,1.848,3.1978,0.1928,2.5706,0.11255,3.4885,0,0.059};
00885 AddMaterial(M174,"G4_N-HEPTANE");
00886
00887
00888 G4double M175[NDENSARRAY]={17.836,1.843,3.2156,0.1984,2.5757,0.11085,3.5027,0,0.061};
00889 AddMaterial(M175,"G4_N-HEXANE");
00890
00891
00892 G4double M176[NDENSARRAY]={24.586,2.109,3.3497,0.1509,2.5631,0.15972,3.1921,0,0.05};
00893 AddMaterial(M176,"G4_KAPTON");
00894
00895
00896 G4double M177[NDENSARRAY]={47.125,1.831,5.4666,-0.035,3.3288,0.1783,2.8457,0,0.04};
00897 AddMaterial(M177,"G4_LANTHANUM_OXYBROMIDE");
00898
00899
00900 G4double M178[NDENSARRAY]={45.394,1.681,5.6151,-0.0934,3.2741,0.22579,2.7075,0,0.065};
00901 AddMaterial(M178,"G4_LANTHANUM_OXYSULFIDE");
00902
00903
00904 G4double M179[NDENSARRAY]={56.488,2.012,6.2162,0.0356,3.5456,0.19645,2.7299,0,0.039};
00905 AddMaterial(M179,"G4_LEAD_OXIDE");
00906
00907
00908 G4double M180[NDENSARRAY]={22.609,1.74,2.7961,0.0198,2.5152,0.0874,3.7534,0,0.05};
00909 AddMaterial(M180,"G4_LITHIUM_AMIDE");
00910
00911
00912 G4double M181[NDENSARRAY]={29.217,2.246,3.2029,0.0551,2.6598,0.09936,3.5417,0,0.062};
00913 AddMaterial(M181,"G4_LITHIUM_CARBONATE");
00914
00915
00916 G4double M182[NDENSARRAY]={31.815,2.197,3.1667,0.0171,2.7049,0.07593,3.7478,0,0.084};
00917 AddMaterial(M182,"G4_LITHIUM_FLUORIDE");
00918
00919
00920 G4double M183[NDENSARRAY]={18.51,1.482,2.358,-0.0988,1.4515,0.90567,2.5849,0,0.035};
00921 AddMaterial(M183,"G4_LITHIUM_HYDRIDE");
00922
00923
00924 G4double M184[NDENSARRAY]={34.841,1.706,6.2671,0.0892,3.3702,0.23274,2.7146,0,0.043};
00925 AddMaterial(M184,"G4_LITHIUM_IODIDE");
00926
00927
00928 G4double M185[NDENSARRAY]={27.984,2.039,2.934,-0.0511,2.5874,0.08035,3.7878,0,0.043};
00929 AddMaterial(M185,"G4_LITHIUM_OXIDE");
00930
00931
00932 G4double M186[NDENSARRAY]={31.343,2.36,3.2093,0.0737,2.6502,0.11075,3.4389,0,0.048};
00933 AddMaterial(M186,"G4_LITHIUM_TETRABORATE");
00934
00935
00936 G4double M187[NDENSARRAY]={21.891,2.184,3.4708,0.2261,2.8001,0.08588,3.5353,0,0.089};
00937 AddMaterial(M187,"G4_LUNG_ICRP");
00938
00939
00940 G4double M188[NDENSARRAY]={22,1.975,3.254,0.1523,2.7529,0.07864,3.6412,0,0.044};
00941 AddMaterial(M188,"G4_M3_WAX");
00942
00943
00944 G4double M189[NDENSARRAY]={34.979,2.388,3.4319,0.086,2.7997,0.09219,3.5003,0,0.045};
00945 AddMaterial(M189,"G4_MAGNESIUM_CARBONATE");
00946
00947
00948 G4double M190[NDENSARRAY]={34.634,2.33,3.7105,0.1369,2.863,0.07934,3.6485,0,0.085};
00949 AddMaterial(M190,"G4_MAGNESIUM_FLUORIDE");
00950
00951
00952 G4double M191[NDENSARRAY]={38.407,2.412,3.6404,0.0575,2.858,0.08313,3.5968,0,0.055};
00953 AddMaterial(M191,"G4_MAGNESIUM_OXIDE");
00954
00955
00956 G4double M192[NDENSARRAY]={32.089,2.43,3.4328,0.1147,2.7635,0.09703,3.4893,0,0.044};
00957 AddMaterial(M192,"G4_MAGNESIUM_TETRABORATE");
00958
00959
00960 G4double M193[NDENSARRAY]={46.494,1.892,6.3787,0.104,3.4728,0.21513,2.7264,0,0.047};
00961 AddMaterial(M193,"G4_MERCURIC_IODIDE");
00962
00963
00964 G4double M194[NDENSARRAY]={0.588,1.662,9.5243,1.6263,3.9716,0.09253,3.6257,0,0.112};
00965 AddMaterial(M194,"G4_METHANE");
00966
00967
00968 G4double M195[NDENSARRAY]={19.214,2.125,3.516,0.2529,2.7639,0.0897,3.5477,0,0.08};
00969 AddMaterial(M195,"G4_METHANOL");
00970
00971
00972 G4double M196[NDENSARRAY]={21.547,1.905,3.078,0.1371,2.7145,0.0749,3.6823,0,0.047};
00973 AddMaterial(M196,"G4_MIX_D_WAX");
00974
00975
00976 G4double M197[NDENSARRAY]={21.153,2.07,3.5241,0.1997,2.8033,0.08294,3.6061,0,0.053};
00977 AddMaterial(M197,"G4_MS20_TISSUE");
00978
00979
00980 G4double M198[NDENSARRAY]={21.781,2.185,3.4809,0.2282,2.7999,0.08636,3.533,0,0.089};
00981 AddMaterial(M198,"G4_MUSCLE_SCELETAL_ICRP");
00982
00983
00984 G4double M199[NDENSARRAY]={21.795,2.174,3.4636,0.2249,2.8032,0.08507,3.5383,0,0.086};
00985 AddMaterial(M199,"G4_MUSCLE_STRIATED_ICRU");
00986
00987
00988 G4double M200[NDENSARRAY]={22.48,2.169,3.391,0.2098,2.755,0.09481,3.4699,0,0.08};
00989 AddMaterial(M200,"G4_MUSCLE_WITH_SUCROSE");
00990
00991
00992 G4double M201[NDENSARRAY]={22.109,2.173,3.4216,0.2187,2.768,0.09143,3.4982,0,0.056};
00993 AddMaterial(M201,"G4_MUSCLE_WITHOUT_SUCROSE");
00994
00995
00996 G4double M202[NDENSARRAY]={22.459,1.956,3.2274,0.1374,2.5429,0.14766,3.2654,0,0.051};
00997 AddMaterial(M202,"G4_NAPHTALENE");
00998
00999
01000 G4double M203[NDENSARRAY]={22.747,2.065,3.4073,0.1777,2.663,0.12727,3.3091,0,0.051};
01001 AddMaterial(M203,"G4_NITROBENZENE");
01002
01003
01004 G4double M204[NDENSARRAY]={0.872,2.059,10.1575,1.6477,4.1565,0.11992,3.3318,0,0.086};
01005 AddMaterial(M204,"G4_NITROUS_OXIDE");
01006
01007
01008 G4double M205[NDENSARRAY]={22.221,1.967,3.125,0.1503,2.6004,0.11513,3.4044,0,0.054};
01009 AddMaterial(M205,"G4_NYLON-8062");
01010
01011
01012 G4double M206[NDENSARRAY]={22.774,1.931,3.0634,0.1336,2.5834,0.11818,3.3826,0,0.051};
01013 AddMaterial(M206,"G4_NYLON-6-6");
01014
01015
01016 G4double M207[NDENSARRAY]={22.866,1.942,3.0333,0.1304,2.5681,0.11852,3.3912,0,0.05};
01017 AddMaterial(M207,"G4_NYLON-6-10");
01018
01019
01020 G4double M208[NDENSARRAY]={25.661,1.902,2.7514,0.0678,2.4281,0.14868,3.2576,0,0.044};
01021 AddMaterial(M208,"G4_NYLON-11_RILSAN");
01022
01023
01024 G4double M209[NDENSARRAY]={18.36,1.851,3.1834,0.1882,2.5664,0.11387,3.4776,0,0.057};
01025 AddMaterial(M209,"G4_OCTANE");
01026
01027
01028 G4double M210[NDENSARRAY]={21.031,1.844,2.9551,0.1289,2.5084,0.12087,3.4288,0,0.052};
01029 AddMaterial(M210,"G4_PARAFFIN");
01030
01031
01032 G4double M211[NDENSARRAY]={17.398,1.842,3.2504,0.2086,2.5855,0.10809,3.5265,0,0.064};
01033 AddMaterial(M211,"G4_N-PENTANE");
01034
01035
01036 G4double M212[NDENSARRAY]={37.946,2.264,5.3319,0.1009,3.4866,0.12399,3.0094,0,0.028};
01037 AddMaterial(M212,"G4_PHOTO_EMULSION");
01038
01039
01040 G4double M213[NDENSARRAY]={21.54,1.929,3.1997,0.1464,2.4855,0.16101,3.2393,0,0.05};
01041 AddMaterial(M213,"G4_PLASTIC_SC_VINYLTOLUENE");
01042
01043
01044 G4double M214[NDENSARRAY]={62.143,1.846,5.9719,-0.2311,3.5554,0.20594,2.6522,0,0.111};
01045 AddMaterial(M214,"G4_PLUTONIUM_DIOXIDE");
01046
01047
01048 G4double M215[NDENSARRAY]={22.642,1.955,3.2459,0.1504,2.5159,0.16275,3.1975,0,0.05};
01049 AddMaterial(M215,"G4_POLYACRYLONITRILE");
01050
01051
01052 G4double M216[NDENSARRAY]={22.915,2.06,3.3201,0.1606,2.6225,0.1286,3.3288,0,0.049};
01053 AddMaterial(M216,"G4_POLYCARBONATE");
01054
01055
01056 G4double M217[NDENSARRAY]={23.81,1.902,3.4659,0.1238,2.9241,0.0753,3.5441,0,0.029};
01057 AddMaterial(M217,"G4_POLYCHLOROSTYRENE");
01058
01059
01060 G4double M218[NDENSARRAY]={21.099,1.882,3.0016,0.137,2.5177,0.12108,3.4292,0,0.051};
01061 AddMaterial(M218,"G4_POLYETHYLENE");
01062
01063
01064 G4double M219[NDENSARRAY]={24.595,2.144,3.3262,0.1562,2.6507,0.12679,3.3076,0,0.052};
01065 AddMaterial(M219,"G4_MYLAR");
01066
01067
01068 G4double M220[NDENSARRAY]={23.086,2.173,3.3297,0.1824,2.6681,0.11433,3.3836,0,0.056};
01069 AddMaterial(M220,"G4_LUCITE");
01070
01071
01072 G4double M221[NDENSARRAY]={25.11,2.175,3.2514,0.1584,2.6838,0.10808,3.4002,0,0.063};
01073 AddMaterial(M221,"G4_POLYOXOMETHYLENE");
01074
01075
01076 G4double M222[NDENSARRAY]={20.457,1.884,3.1252,0.1534,2.4822,0.15045,3.2855,0,0.055};
01077 AddMaterial(M222,"G4_POLYPROPYLENE");
01078
01079
01080 G4double M223[NDENSARRAY]={21.754,2.027,3.2999,0.1647,2.5031,0.16454,3.2224,0,0.051};
01081 AddMaterial(M223,"G4_POLYSTYRENE");
01082
01083
01084 G4double M224[NDENSARRAY]={29.609,2.142,3.4161,0.1648,2.7404,0.10606,3.4046,0,0.073};
01085 AddMaterial(M224,"G4_TEFLON");
01086
01087
01088 G4double M225[NDENSARRAY]={28.955,2.094,3.8551,0.1714,3.0265,0.07727,3.5085,0,0.035};
01089 AddMaterial(M225,"G4_POLYTRIFLUOROCHLOROETHYLENE");
01090
01091
01092 G4double M226[NDENSARRAY]={22.978,2.116,3.3309,0.1769,2.6747,0.11442,3.3762,0,0.055};
01093 AddMaterial(M226,"G4_POLYVINYL_ACETATE");
01094
01095
01096 G4double M227[NDENSARRAY]={24.251,2.071,3.1115,0.1401,2.6315,0.11178,3.3893,0,0.056};
01097 AddMaterial(M227,"G4_PLOYVINYL_ALCOHOL");
01098
01099
01100 G4double M228[NDENSARRAY]={22.521,2.021,3.1865,0.1555,2.6186,0.11544,3.3983,0,0.054};
01101 AddMaterial(M228,"G4_POLYVINYL_BUTYRAL");
01102
01103
01104 G4double M229[NDENSARRAY]={23.51,1.84,4.0532,0.1559,2.9415,0.12438,3.2104,0,0.027};
01105 AddMaterial(M229,"G4_POLYVINYL_CHLORIDE");
01106
01107
01108 G4double M230[NDENSARRAY]={26.437,1.814,4.2506,0.1314,2.9009,0.15466,3.102,0,0.034};
01109 AddMaterial(M230,"G4_POLYVINYLIDENE_CHLORIDE");
01110
01111
01112 G4double M231[NDENSARRAY]={27.024,2.16,3.3793,0.1717,2.7375,0.10316,3.42,0,0.067};
01113 AddMaterial(M231,"G4_POLYVINYLIDENE_FLUORIDE");
01114
01115
01116 G4double M232[NDENSARRAY]={23.671,1.989,3.1017,0.1324,2.5867,0.12504,3.3326,0,0.031};
01117 AddMaterial(M232,"G4_POLYVINYL_PYRROLIDONE");
01118
01119
01120 G4double M233[NDENSARRAY]={33.575,1.784,6.1088,0.1044,3.3442,0.22053,2.7558,0,0.042};
01121 AddMaterial(M233,"G4_POTASSIUM_IODIDE");
01122
01123
01124 G4double M234[NDENSARRAY]={30.672,2.065,4.6463,0.048,3.011,0.16789,3.0121,0,0.027};
01125 AddMaterial(M234,"G4_POTASSIUM_OXIDE");
01126
01127
01128 G4double M235[NDENSARRAY]={0.959,1.708,8.7878,1.4326,3.7998,0.09916,3.592,0,0.093};
01129 AddMaterial(M235,"G4_PROPANE");
01130
01131
01132 G4double M236[NDENSARRAY]={14.509,1.844,3.5529,0.2861,2.6568,0.10329,3.562,0,0.068};
01133 AddMaterial(M236,"G4_lPROPANE");
01134
01135
01136 G4double M237[NDENSARRAY]={19.429,1.972,3.2915,0.2046,2.6681,0.09644,3.5415,0,0.07};
01137 AddMaterial(M237,"N-PROPYL_ALCOHOL");
01138
01139
01140 G4double M238[NDENSARRAY]={20.807,1.895,3.3148,0.167,2.5245,0.16399,3.1977,0,0.051};
01141 AddMaterial(M238,"G4_PYRIDINE");
01142
01143
01144 G4double M239[NDENSARRAY]={20.873,1.852,2.9915,0.1347,2.5154,0.12108,3.4296,0,0.051};
01145 AddMaterial(M239,"G4_RUBBER_BUTYL");
01146
01147
01148 G4double M240[NDENSARRAY]={20.644,1.889,3.1272,0.1512,2.4815,0.15058,3.2879,0,0.053};
01149 AddMaterial(M240,"G4_RUBBER_NATURAL");
01150
01151
01152 G4double M241[NDENSARRAY]={23.036,1.874,3.7911,0.1501,2.9461,0.09763,3.3632,0,0.026};
01153 AddMaterial(M241,"G4_RUBBER_NEOPRENE");
01154
01155
01156 G4double M242[NDENSARRAY]={31.014,2.335,4.0029,0.1385,3.0025,0.08408,3.5064,0,0.018};
01157 AddMaterial(M242,"G4_SILICON_DIOXIDE");
01158
01159
01160 G4double M243[NDENSARRAY]={48.448,2.271,5.6139,0.0352,3.2109,0.24582,2.682,0,0.043};
01161 AddMaterial(M243,"G4_SILVER_BROMIDE");
01162
01163
01164 G4double M244[NDENSARRAY]={45.405,2.096,5.3437,-0.0139,3.2022,0.22968,2.7041,0,0.062};
01165 AddMaterial(M244,"G4_SILVER_CHLORIDE");
01166
01167
01168 G4double M245[NDENSARRAY]={48.433,2.27,5.6166,0.0353,3.2117,0.24593,2.6814,0,0.043};
01169 AddMaterial(M245,"G4_SILVER_HALIDES");
01170
01171
01172 G4double M246[NDENSARRAY]={46.105,1.945,5.9342,0.0148,3.2908,0.25059,2.6572,0,0.071};
01173 AddMaterial(M246,"G4_SILVER_IODIDE");
01174
01175
01176 G4double M247[NDENSARRAY]={22.4,2.14,3.3546,0.2019,2.7526,0.09459,3.4643,0,0.076};
01177 AddMaterial(M247,"G4_SKIN_ICRP");
01178
01179
01180 G4double M248[NDENSARRAY]={32.117,2.557,3.7178,0.1287,2.8591,0.08715,3.5638,0,0.074};
01181 AddMaterial(M248,"G4_SODIUM_CARBONATE");
01182
01183
01184 G4double M249[NDENSARRAY]={36.057,1.857,6.0572,0.1203,3.592,0.12516,3.0398,0,0.031};
01185 AddMaterial(M249,"G4_SODIUM_IODIDE");
01186
01187
01188 G4double M250[NDENSARRAY]={30.205,2.689,4.1892,0.1652,2.9793,0.07501,3.6943,0,0.097};
01189 AddMaterial(M250,"G4_SODIUM_MONOXIDE");
01190
01191
01192 G4double M251[NDENSARRAY]={30.459,2.456,3.6502,0.1534,2.8221,0.09391,3.5097,0,0.081};
01193 AddMaterial(M251,"G4_SODIUM_NITRATE");
01194
01195
01196 G4double M252[NDENSARRAY]={20.719,1.963,3.368,0.1734,2.5142,0.16659,3.2168,0,0.052};
01197 AddMaterial(M252,"G4_STILBENE");
01198
01199
01200 G4double M253[NDENSARRAY]={26.416,2.167,3.1526,0.1341,2.6558,0.11301,3.363,0,0.057};
01201 AddMaterial(M253,"G4_SUCROSE");
01202
01203
01204 G4double M254[NDENSARRAY]={23.116,1.976,3.2639,0.1322,2.5429,0.14964,3.2685,0,0.043};
01205 AddMaterial(M254,"G4_TERPHENYL");
01206
01207
01208 G4double M255[NDENSARRAY]={21.815,2.185,3.4698,0.2274,2.7988,0.08533,3.5428,0,0.091};
01209 AddMaterial(M255,"G4_TESTES_ICRP");
01210
01211
01212 G4double M256[NDENSARRAY]={25.513,1.79,4.6619,0.1713,2.9083,0.18595,3.0156,0,0.038};
01213 AddMaterial(M256,"G4_TETRACHLOROETHYLENE");
01214
01215
01216 G4double M257[NDENSARRAY]={48.749,1.997,6.3009,0.0705,3.5716,0.18599,2.769,0,0.04};
01217 AddMaterial(M257,"G4_THALIUM_CHLORIDE");
01218
01219
01220 G4double M258[NDENSARRAY]={21.394,2.144,3.4354,0.2211,2.7799,0.08926,3.511,0,0.077};
01221 AddMaterial(M258,"G4_TISSUE_SOFT_ICRP");
01222
01223
01224 G4double M259[NDENSARRAY]={21.366,2.192,3.5087,0.2377,2.7908,0.09629,3.4371,0,0.092};
01225 AddMaterial(M259,"G4_TISSUE_SOFT_ICRU-4");
01226
01227
01228 G4double M260[NDENSARRAY]={0.697,1.89,9.95,1.6442,4.1399,0.09946,3.4708,0,0.098};
01229 AddMaterial(M260,"G4_TISSUE-METHANE");
01230
01231
01232 G4double M261[NDENSARRAY]={0.913,1.856,9.3529,1.5139,3.9916,0.09802,3.5159,0,0.092};
01233 AddMaterial(M261,"G4_TISSUE-PROPANE");
01234
01235
01236 G4double M262[NDENSARRAY]={41.022,2.307,3.9522,-0.0119,3.1647,0.08569,3.3267,0,0.027};
01237 AddMaterial(M262,"G4_TITANIUM_DIOXIDE");
01238
01239
01240 G4double M263[NDENSARRAY]={19.764,1.88,3.3026,0.1722,2.5728,0.13284,3.3558,0,0.052};
01241 AddMaterial(M263,"G4_TOLUENE");
01242
01243
01244 G4double M264[NDENSARRAY]={24.301,1.789,4.6148,0.1803,2.914,0.18272,3.0137,0,0.036};
01245 AddMaterial(M264,"G4_TRICHLOROETHYLENE");
01246
01247
01248 G4double M265[NDENSARRAY]={21.863,2.1,3.6242,0.2054,2.9428,0.06922,3.6302,0,0.049};
01249 AddMaterial(M265,"G4_TRIETHYL_PHOSPHATE");
01250
01251
01252 G4double M266[NDENSARRAY]={29.265,2.325,5.9881,0.302,4.2602,0.03658,3.5134,0,0.055};
01253 AddMaterial(M266,"G4_TUNGSTEN_HEXAFLUORIDE");
01254
01255
01256 G4double M267[NDENSARRAY]={60.969,1.703,6.0247,-0.2191,3.5208,0.2112,2.6577,0,0.12};
01257 AddMaterial(M267,"G4_URANIUM_DICARBIDE");
01258
01259
01260 G4double M268[NDENSARRAY]={66.602,1.68,6.121,-0.2524,3.4941,0.22972,2.6169,0,0.132};
01261 AddMaterial(M268,"G4_URANIUM_MONOCARBIDE");
01262
01263
01264 G4double M269[NDENSARRAY]={60.332,1.76,5.9605,-0.1938,3.5292,0.20463,2.6711,0,0.098};
01265 AddMaterial(M269,"G4_URANIUM_OXIDE");
01266
01267
01268 G4double M270[NDENSARRAY]={24.194,2.022,3.2032,0.1603,2.6225,0.11609,3.3461,0,0.06};
01269 AddMaterial(M270,"G4_UREA");
01270
01271
01272 G4double M271[NDENSARRAY]={23.622,2.024,3.1059,0.1441,2.6227,0.11386,3.3774,0,0.056};
01273 AddMaterial(M271,"G4_VALINE");
01274
01275
01276 G4double M272[NDENSARRAY]={26.948,2.227,3.5943,0.2106,2.7874,0.09965,3.4556,0,0.07};
01277 AddMaterial(M272,"G4_VITON");
01278
01279
01280 G4double M273[NDENSARRAY]={21.469,2.203,3.5017,0.24,2.8004,0.09116,3.4773,0,0.097};
01281 AddMaterial(M273,"G4_WATER");
01282
01283
01284 G4double M274[NDENSARRAY]={0.59,2.175,10.5962,1.7952,4.3437,0.08101,3.5901,0,0.121};
01285 AddMaterial(M274,"G4_WATER_VAPOR");
01286
01287
01288 G4double M275[NDENSARRAY]={19.866,1.882,3.2698,0.1695,2.5675,0.13216,3.3564,0,0.051};
01289 AddMaterial(M275,"G4_XYLENE");
01290
01291
01292 G4double M276[NDENSARRAY]={30.652,2.29,2.868,-0.0178,2.3415,0.26142,2.8697,0.12,0.038};
01293 AddMaterial(M276,"G4_GRAPHITE");
01294
01295
01296 G4double M277[NDENSARRAY]={26.555,2.49,3.155,0.048,2.5387,0.20762,2.9532,0.14,0.038};
01297 AddMaterial(M277,"G4_GRAPHITE_POROUS");
01298
01299 }
01300
01301 G4int G4DensityEffectData::GetElementIndex(G4int Z, G4State st)
01302 {
01303 G4int idx = -1;
01304 if(Z > 0 && Z < NDENSELEM) {
01305 if(st == state[Z]) { idx = indexZ[Z]; }
01306 else if(st == kStateUndefined) { idx = indexZ[Z]; }
01307 }
01308 return idx;
01309 }
01310
01311 G4int G4DensityEffectData::GetIndex(const G4String& matName)
01312 {
01313 G4int idx = -1;
01314
01315 for (G4int i=0; i<NDENSDATA; ++i) {
01316 if ( names[i] == matName ) {
01317 idx = i;
01318 break;
01319 }
01320 }
01321
01322 return idx;
01323 }
01324
01325 void G4DensityEffectData::AddMaterial(G4double* val, const G4String& matName)
01326 {
01327 data[index][0] = val[0]*eV;
01328 for(G4int i=1; i<NDENSARRAY; ++i) {
01329 data[index][i] = val[i];
01330 }
01331 names.push_back( matName );
01332 ++index;
01333 }
01334
01335 void G4DensityEffectData::PrintData(const G4String& matName)
01336 {
01337 if("" == matName || "all" == matName) {
01338 DumpData();
01339 return;
01340 }
01341 G4int idx = GetIndex(matName);
01342 if(idx >= 0) {
01343 G4cout << "G4DensityEffectData for <" << matName
01344 << "> index= " << idx << G4endl;
01345 G4cout << "Eplasma(eV)= " << data[idx][0]/eV
01346 << " rho= " << data[idx][1]
01347 << " -C= " << data[idx][2]
01348 << " x0= " << data[idx][3]
01349 << " x1= " << data[idx][4]
01350 << " a= " << data[idx][5]
01351 << " m= " << data[idx][6]
01352 << " d0= " << data[idx][7]
01353 << " err= " << data[idx][8]
01354 << G4endl;
01355 } else {
01356 G4cout << "G4DensityEffectData does not have <" << matName << ">" << G4endl;
01357 }
01358 }
01359
01360 void G4DensityEffectData::DumpData()
01361 {
01362 G4cout << "======================================================================"
01363 << G4endl;
01364 G4cout << " Material Eplasma(eV) rho -C x0 x1 a m d0 err"
01365 << G4endl;
01366 G4cout << "======================================================================"
01367 << G4endl;
01368 for(G4int i=0; i<NDENSDATA; ++i) {
01369 G4cout << std::setw(3) << i << ". " << std::setw(25) << names[i]
01370 << std::setw(8) << data[i][0]/eV;
01371 for(G4int j=1; j<NDENSARRAY; ++j) { G4cout << std::setw(8) << data[i][j]; }
01372 G4cout << G4endl;
01373 }
01374 G4cout << "======================================================================"
01375 << G4endl;
01376 }