Ignore:
Timestamp:
May 29, 2009, 3:55:14 PM (15 years ago)
Author:
garnier
Message:

file release beta

Location:
trunk/source/materials/src
Files:
2 added
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/source/materials/src/G4IronStoppingICRU73.cc

    r986 r1058  
    2525//
    2626//
    27 // $Id: G4IronStoppingICRU73.cc,v 1.3 2008/12/18 12:57:52 gunter Exp $
    28 // GEANT4 tag $Name: geant4-09-02-ref-02 $
     27// $Id: G4IronStoppingICRU73.cc,v 1.7 2009/05/07 18:51:01 vnivanch Exp $
     28// GEANT4 tag $Name: geant4-09-03-beta-cand-01 $
    2929
    3030//---------------------------------------------------------------------------
    … …  
    3737//
    3838// Modifications:
     39// 29.04.2009 A.Ivantchenko added data for G4WATER
     40//            provided by  Prof.P.Sigmund Univ. Southern Denmark
    3941//
    4042//----------------------------------------------------------------------------
    … …  
    5254{
    5355  spline = splineFlag;
    54   lowerEnergyBoundary = 0.025 * MeV;
    55   upperEnergyBoundary = 1000. * MeV;
    56   Initialise();
     56
     57  G4int matZ[17] = {1,2,4,6,7,8,10,13,14,18,22,26,28,29,32,36,1000};
     58
     59  G4String matName[17] = {"G4_H", "G4_He", "G4_Be", "G4_C", "G4_N", "G4_O", "G4_Ne", "G4_Al", "G4_Si", "G4_Ar", "G4_Ti", "G4_Fe", "G4_Ni", "G4_Cu", "G4_Ge", "G4_Kr","G4_WATER"};
     60
     61  for( size_t i = 0; i < 17; i++ ) {
     62      atomicNumbersMat.push_back( matZ[i] );
     63      namesMat.push_back( matName[i] );
     64  }
    5765}
    5866
    … …  
    6068
    6169G4IronStoppingICRU73::~G4IronStoppingICRU73()
    62 {}
    63 
    64 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
    65 
    66 G4double G4IronStoppingICRU73::GetDEDX(G4int idxMaterial, G4double kinEnergy)
    67 {
    68   G4double res = 0.0;
    69   if(idxMaterial < 0 || idxMaterial > 15) return res;
    70   G4bool b;
    71   G4double scaledEnergy = kinEnergy/56.; /*55.847*/;
    72   G4double emin = .025*MeV;
    73   if(scaledEnergy < emin) {
    74     res = (dedx[idxMaterial])->GetValue(emin, b)*std::sqrt(scaledEnergy/emin);
    75   } else {
    76     res = (dedx[idxMaterial])->GetValue(scaledEnergy, b);
    77   }
    78   return res;
    79 }
    80 
    81 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
    82 
    83 
    84 void G4IronStoppingICRU73::AddData(G4double* energy, G4double* stoppower,
    85                                    G4double factor)
     70{
     71  size_t nmb = dedx.size();
     72
     73  for(size_t i = 0; i < nmb; i++) delete dedx[i];
     74
     75  dedx.clear();
     76  dedxKeys.clear();
     77  atomicNumbersMat.clear();
     78  namesMat.clear();
     79}
     80
     81//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
     82
     83inline G4bool
     84G4IronStoppingICRU73::IsApplicable(G4int ionZ, G4int matZ)
     85{
     86  G4bool isApplicable = false;
     87
     88  if( ionZ == 26 ) {
     89
     90     size_t nmbMat =  atomicNumbersMat.size();
     91
     92     for( size_t i = 0; i < nmbMat; i++ ) {
     93
     94         if( atomicNumbersMat[i] == matZ ) { isApplicable = true; break; }
     95     }
     96  }
     97
     98  return isApplicable;
     99}
     100
     101//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
     102
     103inline G4bool
     104G4IronStoppingICRU73::IsApplicable(G4int ionZ, const G4String& matName)
     105{
     106  G4bool isApplicable = false;
     107
     108  if( ionZ == 26 ) {
     109
     110     size_t nmbMat =  namesMat.size();
     111
     112     for( size_t i = 0; i < nmbMat; i++ ) {
     113
     114         if( namesMat[i] == matName ) { isApplicable = true; break; }
     115     }
     116  }
     117
     118  return isApplicable; 
     119}
     120
     121//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
     122
     123G4double G4IronStoppingICRU73::GetDEDX(G4double kinEnergyPerNucleon,
     124                                                 G4int ionZ,
     125                                                 G4int matZ) {
     126
     127  G4double dedxValue = -1.0;
     128
     129  size_t nmbMat =  atomicNumbersMat.size();
     130
     131  for( size_t i = 0; i < nmbMat; i++ ) {
     132
     133     if( atomicNumbersMat[i] == matZ ) {
     134        dedxValue = GetDEDX(kinEnergyPerNucleon, ionZ, namesMat[i]);
     135        break;
     136     }
     137  }
     138
     139  return dedxValue;
     140}
     141
     142//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
     143
     144G4double G4IronStoppingICRU73::GetDEDX(G4double kinEnergyPerNucleon,
     145                                       G4int ionZ,
     146                                       const G4String& matName)
     147{
     148  G4double dedxValue = -1.0;
     149
     150  if(ionZ != 26) return dedxValue;
     151
     152  G4PhysicsVector* physicsVector = GetPhysicsVector(ionZ, matName);
     153 
     154  if(physicsVector != 0) {
     155
     156     size_t nmbBins = physicsVector -> GetVectorLength();
     157     G4double lowerEnergyEdge = physicsVector -> GetLowEdgeEnergy(0);
     158     G4double upperEnergyEdge = physicsVector -> GetLowEdgeEnergy(nmbBins-1);
     159
     160     if(kinEnergyPerNucleon <= upperEnergyEdge) {
     161          G4bool b;
     162 
     163        if(kinEnergyPerNucleon < lowerEnergyEdge) {
     164           dedxValue = physicsVector -> GetValue(lowerEnergyEdge, b) *
     165                         std::sqrt(kinEnergyPerNucleon / lowerEnergyEdge);
     166        }
     167        else {
     168           dedxValue = physicsVector -> GetValue(kinEnergyPerNucleon, b);
     169        }
     170     }
     171  } 
     172
     173  return dedxValue;
     174}
     175
     176//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
     177
     178G4PhysicsVector* G4IronStoppingICRU73::CreatePhysicsVector(
     179                                       G4double* energy,
     180                                       G4double* stoppower,
     181                                       G4double factor)
    86182{
    87183  G4LPhysicsFreeVector* pv = new G4LPhysicsFreeVector(53,energy[0],energy[52]);
    88184  pv->SetSpline(spline);
    89   dedx.push_back(pv);
    90   for(G4int i=0;i<53;i++) {
     185
     186  for( G4int i = 0; i < 53; i++ ) {
    91187    pv->PutValues(i,energy[i],stoppower[i]*factor);
    92188  }
    93 }
    94 
    95 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
    96 
    97 void G4IronStoppingICRU73::Initialise()
    98 {
    99 G4int i, j=0;
    100 dedx.reserve(1*16);
    101 
    102 //..List of ions
    103 G4double factor = 1000.*MeV/cm;
    104 G4double dens[16]={8.988E-05, 1.785E-04, 1.848, 1.9, .00125, .001429, 8.99E-04, 2.699, 2.329, .0017837, 4.508, 7.873, 8.907, 8.933, 5.323, .003743};
    105 G4String NameMaterial[16]={"G4_H", "G4_He", "G4_Be", "G4_C", "G4_N", "G4_O", "G4_Ne", "G4_Al", "G4_Si", "G4_Ar", "G4_Ti", "G4_Fe", "G4_Ni", "G4_Cu", "G4_Ge", "G4_Kr"};
    106  
    107 for(i=0;i<16;i++){
    108 MatName[i]=NameMaterial[i];
    109 Density[i]=dens[i]*gram/cm3;
    110 }
    111 
    112   //..Reduced energies
    113 G4double E[53] = {.025,.03,.04,.05,.06,.07,0.08,0.09,0.1,0.15,0.2,0.25,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1,1.5,2,2.5,3,4,5,6,7,8,9,10,15,20,25,30,40,50,60,70,80,90,100,150,200,250,300,400,500,600,700,800,900,1000};
    114 for(i=0; i<53; i++) {E[i] *= MeV;}
    115 
    116 G4double H_Fe[53] ={2.760E+01, 3.046E+01, 3.563E+01, 4.023E+01, 4.441E+01, 4.828E+01, 5.191E+01, 5.535E+01, 5.862E+01, 7.281E+01, 8.345E+01, 9.110E+01, 9.654E+01, 1.032E+02, 1.068E+02, 1.085E+02, 1.093E+02, 1.095E+02, 1.092E+02, 1.086E+02, 1.041E+02, 9.890E+01, 9.387E+01, 8.923E+01, 8.115E+01, 7.443E+01, 6.878E+01, 6.397E+01, 5.981E+01, 5.619E+01, 5.300E+01, 4.143E+01, 3.416E+01, 2.915E+01, 2.550E+01, 2.053E+01, 1.731E+01, 1.505E+01, 1.338E+01, 1.209E+01, 1.107E+01, 1.024E+01, 7.662E+00, 6.326E+00, 5.510E+00, 4.960E+00, 4.272E+00, 3.864E+00, 3.597E+00, 3.412E+00, 3.279E+00, 3.180E+00, 3.104E+00};
    117  AddData(E,H_Fe,dens[j]*factor);j++;
    118 
    119 G4double He_Fe[53] ={9.071E+00, 9.992E+00, 1.168E+01, 1.322E+01, 1.465E+01, 1.601E+01, 1.731E+01, 1.856E+01, 1.977E+01, 2.534E+01, 3.009E+01, 3.392E+01, 3.691E+01, 4.096E+01, 4.337E+01, 4.482E+01, 4.569E+01, 4.620E+01, 4.645E+01, 4.653E+01, 4.569E+01, 4.406E+01, 4.229E+01, 4.053E+01, 3.730E+01, 3.447E+01, 3.202E+01, 2.988E+01, 2.801E+01, 2.635E+01, 2.489E+01, 1.948E+01, 1.603E+01, 1.365E+01, 1.192E+01, 9.560E+00, 8.040E+00, 6.981E+00, 6.200E+00, 5.601E+00, 5.126E+00, 4.741E+00, 3.553E+00, 2.939E+00, 2.563E+00, 2.310E+00, 1.994E+00, 1.806E+00, 1.684E+00, 1.599E+00, 1.538E+00, 1.493E+00, 1.458E+00};
    120  AddData(E,He_Fe,dens[j]*factor);j++;
    121 
    122 G4double Be_Fe[53] ={7.231E+00, 8.001E+00, 9.429E+00, 1.074E+01, 1.198E+01, 1.315E+01, 1.426E+01, 1.532E+01, 1.632E+01, 2.070E+01, 2.417E+01, 2.687E+01, 2.894E+01, 3.186E+01, 3.377E+01, 3.507E+01, 3.597E+01, 3.657E+01, 3.697E+01, 3.722E+01, 3.722E+01, 3.633E+01, 3.519E+01, 3.398E+01, 3.163E+01, 2.948E+01, 2.756E+01, 2.585E+01, 2.431E+01, 2.294E+01, 2.171E+01, 1.705E+01, 1.402E+01, 1.190E+01, 1.035E+01, 8.254E+00, 6.906E+00, 5.972E+00, 5.289E+00, 4.768E+00, 4.357E+00, 4.025E+00, 3.010E+00, 2.489E+00, 2.172E+00, 1.960E+00, 1.693E+00, 1.535E+00, 1.432E+00, 1.361E+00, 1.310E+00, 1.272E+00, 1.243E+00};
    123  AddData(E,Be_Fe,dens[j]*factor);j++;
    124 
    125 G4double C_Fe[53] ={6.513E+00, 7.256E+00, 8.631E+00, 9.900E+00, 1.109E+01, 1.222E+01, 1.329E+01, 1.431E+01, 1.528E+01, 1.972E+01, 2.371E+01, 2.695E+01, 2.943E+01, 3.276E+01, 3.481E+01, 3.617E+01, 3.708E+01, 3.770E+01, 3.813E+01, 3.842E+01, 3.865E+01, 3.799E+01, 3.701E+01, 3.592E+01, 3.370E+01, 3.160E+01, 2.969E+01, 2.795E+01, 2.638E+01, 2.496E+01, 2.368E+01, 1.874E+01, 1.545E+01, 1.313E+01, 1.142E+01, 9.087E+00, 7.588E+00, 6.550E+00, 5.792E+00, 5.215E+00, 4.761E+00, 4.396E+00, 3.282E+00, 2.714E+00, 2.369E+00, 2.137E+00, 1.848E+00, 1.677E+00, 1.565E+00, 1.488E+00, 1.433E+00, 1.392E+00, 1.361E+00};
    126  AddData(E,C_Fe,dens[j]*factor);j++;
    127 
    128 G4double N_Fe[53] ={7.196E+00, 7.991E+00, 9.457E+00, 1.080E+01, 1.207E+01, 1.328E+01, 1.443E+01, 1.552E+01, 1.657E+01, 2.116E+01, 2.497E+01, 2.817E+01, 3.072E+01, 3.422E+01, 3.634E+01, 3.768E+01, 3.855E+01, 3.912E+01, 3.948E+01, 3.969E+01, 3.965E+01, 3.883E+01, 3.774E+01, 3.657E+01, 3.426E+01, 3.212E+01, 3.017E+01, 2.840E+01, 2.682E+01, 2.538E+01, 2.407E+01, 1.907E+01, 1.573E+01, 1.337E+01, 1.163E+01, 9.250E+00, 7.718E+00, 6.657E+00, 5.883E+00, 5.293E+00, 4.831E+00, 4.458E+00, 3.323E+00, 2.746E+00, 2.396E+00, 2.161E+00, 1.868E+00, 1.694E+00, 1.581E+00, 1.503E+00, 1.447E+00, 1.405E+00, 1.374E+00};
    129  AddData(E,N_Fe,dens[j]*factor);j++;
    130 
    131 G4double O_Fe[53] ={5.927E+00, 6.602E+00, 7.858E+00, 9.021E+00, 1.012E+01, 1.118E+01, 1.220E+01, 1.319E+01, 1.415E+01, 1.850E+01, 2.219E+01, 2.529E+01, 2.784E+01, 3.147E+01, 3.372E+01, 3.515E+01, 3.609E+01, 3.671E+01, 3.712E+01, 3.738E+01, 3.753E+01, 3.687E+01, 3.594E+01, 3.491E+01, 3.283E+01, 3.087E+01, 2.906E+01, 2.742E+01, 2.593E+01, 2.457E+01, 2.333E+01, 1.856E+01, 1.535E+01, 1.306E+01, 1.137E+01, 9.051E+00, 7.553E+00, 6.516E+00, 5.757E+00, 5.180E+00, 4.727E+00, 4.362E+00, 3.253E+00, 2.688E+00, 2.346E+00, 2.117E+00, 1.831E+00, 1.661E+00, 1.551E+00, 1.475E+00, 1.420E+00, 1.380E+00, 1.349E+00};
    132  AddData(E,O_Fe,dens[j]*factor);j++;
    133 
    134 G4double Ne_Fe[53] ={4.522E+00, 5.012E+00, 5.923E+00, 6.771E+00, 7.576E+00, 8.354E+00, 9.113E+00, 9.858E+00, 1.059E+01, 1.406E+01, 1.714E+01, 1.983E+01, 2.214E+01, 2.574E+01, 2.821E+01, 2.989E+01, 3.102E+01, 3.180E+01, 3.233E+01, 3.270E+01, 3.324E+01, 3.287E+01, 3.221E+01, 3.141E+01, 2.975E+01, 2.812E+01, 2.659E+01, 2.518E+01, 2.389E+01, 2.270E+01, 2.161E+01, 1.733E+01, 1.440E+01, 1.229E+01, 1.072E+01, 8.553E+00, 7.146E+00, 6.167E+00, 5.451E+00, 4.906E+00, 4.478E+00, 4.133E+00, 3.084E+00, 2.552E+00, 2.229E+00, 2.012E+00, 1.742E+00, 1.582E+00, 1.479E+00, 1.407E+00, 1.356E+00, 1.318E+00, 1.289E+00};
    135  AddData(E,Ne_Fe,dens[j]*factor);j++;
    136 
    137 G4double Al_Fe[53] ={5.170E+00, 5.727E+00, 6.746E+00, 7.678E+00, 8.549E+00, 9.369E+00, 1.015E+01, 1.089E+01, 1.160E+01, 1.473E+01, 1.729E+01, 1.934E+01, 2.100E+01, 2.358E+01, 2.550E+01, 2.697E+01, 2.809E+01, 2.892E+01, 2.953E+01, 2.997E+01, 3.072E+01, 3.045E+01, 2.984E+01, 2.912E+01, 2.760E+01, 2.611E+01, 2.472E+01, 2.344E+01, 2.227E+01, 2.120E+01, 2.020E+01, 1.629E+01, 1.359E+01, 1.163E+01, 1.017E+01, 8.131E+00, 6.803E+00, 5.876E+00, 5.196E+00, 4.677E+00, 4.270E+00, 3.941E+00, 2.942E+00, 2.434E+00, 2.127E+00, 1.921E+00, 1.664E+00, 1.512E+00, 1.413E+00, 1.345E+00, 1.296E+00, 1.260E+00, 1.233E+00};
    138  AddData(E,Al_Fe,dens[j]*factor);j++;
    139 
    140 G4double Si_Fe[53] ={5.179E+00, 5.792E+00, 6.906E+00, 7.894E+00, 8.779E+00, 9.583E+00, 1.033E+01, 1.105E+01, 1.176E+01, 1.509E+01, 1.774E+01, 1.979E+01, 2.143E+01, 2.390E+01, 2.572E+01, 2.711E+01, 2.818E+01, 2.901E+01, 2.964E+01, 3.011E+01, 3.100E+01, 3.079E+01, 3.022E+01, 2.950E+01, 2.798E+01, 2.650E+01, 2.511E+01, 2.382E+01, 2.264E+01, 2.155E+01, 2.056E+01, 1.661E+01, 1.387E+01, 1.189E+01, 1.039E+01, 8.322E+00, 6.967E+00, 6.020E+00, 5.324E+00, 4.794E+00, 4.377E+00,  4.040E+00, 3.017E+00, 2.497E+00, 2.182E+00, 1.971E+00, 1.708E+00, 1.552E+00, 1.451E+00, 1.381E+00, 1.331E+00, 1.295E+00, 1.266E+00};
    141  AddData(E,Si_Fe,dens[j]*factor);j++;
    142 
    143 G4double Ar_Fe[53] ={4.640E+00, 5.184E+00, 6.169E+00, 7.042E+00, 7.836E+00, 8.580E+00, 9.290E+00, 9.972E+00, 1.063E+01, 1.362E+01, 1.604E+01, 1.796E+01, 1.949E+01, 2.168E+01, 2.315E+01, 2.417E+01, 2.491E+01, 2.545E+01, 2.586E+01, 2.617E+01, 2.681E+01, 2.669E+01, 2.625E+01, 2.567E+01, 2.438E+01, 2.311E+01, 2.191E+01, 2.081E+01, 1.979E+01, 1.886E+01, 1.801E+01, 1.461E+01, 1.225E+01, 1.052E+01, 9.221E+00, 7.405E+00, 6.211E+00, 5.374E+00, 4.757E+00, 4.286E+00, 3.914E+00,  3.615E+00, 2.701E+00, 2.236E+00, 1.955E+00, 1.766E+00, 1.530E+00, 1.391E+00, 1.301E+00, 1.239E+00, 1.194E+00, 1.161E+00, 1.136E+00};
    144  AddData(E,Ar_Fe,dens[j]*factor);j++;
    145 
    146 G4double Ti_Fe[53] ={3.463E+00, 3.857E+00, 4.576E+00, 5.231E+00, 5.840E+00, 6.417E+00, 6.971E+00, 7.510E+00, 8.037E+00, 1.056E+01, 1.286E+01, 1.484E+01, 1.650E+01, 1.899E+01, 2.064E+01, 2.176E+01, 2.255E+01, 2.312E+01, 2.353E+01, 2.385E+01, 2.452E+01, 2.450E+01, 2.420E+01, 2.377E+01, 2.273E+01, 2.165E+01, 2.060E+01, 1.962E+01, 1.870E+01, 1.786E+01, 1.708E+01, 1.396E+01, 1.175E+01, 1.014E+01, 8.910E+00, 7.185E+00, 6.043E+00, 5.239E+00, 4.644E+00, 4.189E+00, 3.829E+00, 3.538E+00, 2.651E+00, 2.198E+00, 1.923E+00, 1.738E+00, 1.508E+00, 1.372E+00, 1.284E+00, 1.223E+00, 1.180E+00, 1.148E+00, 1.123E+00};
    147  AddData(E,Ti_Fe,dens[j]*factor);j++;
    148 
    149 G4double Fe_Fe[53] ={2.849E+00, 3.182E+00, 3.799E+00, 4.367E+00, 4.900E+00, 5.406E+00, 5.896E+00, 6.375E+00, 6.847E+00, 9.117E+00, 1.120E+01, 1.305E+01, 1.461E+01, 1.702E+01, 1.875E+01, 2.000E+01, 2.088E+01, 2.151E+01, 2.197E+01, 2.230E+01, 2.301E+01, 2.302E+01, 2.277E+01, 2.239E+01, 2.148E+01, 2.052E+01, 1.959E+01, 1.870E+01, 1.786E+01, 1.709E+01, 1.637E+01, 1.345E+01, 1.138E+01, 9.844E+00, 8.673E+00, 7.018E+00, 5.918E+00, 5.139E+00, 4.562E+00, 4.119E+00, 3.768E+00, 3.484E+00, 2.615E+00, 2.171E+00, 1.901E+00, 1.720E+00, 1.493E+00, 1.360E+00, 1.273E+00, 1.213E+00, 1.171E+00, 1.139E+00, 1.115E+00};
    150  AddData(E,Fe_Fe,dens[j]*factor);j++;
    151 
    152 G4double Ni_Fe[53] ={2.634E+00, 2.937E+00, 3.504E+00, 4.033E+00, 4.536E+00, 5.017E+00, 5.480E+00, 5.930E+00, 6.372E+00, 8.530E+00, 1.058E+01, 1.247E+01, 1.412E+01, 1.669E+01, 1.851E+01, 1.983E+01, 2.078E+01, 2.147E+01, 2.197E+01, 2.234E+01, 2.310E+01, 2.311E+01, 2.285E+01, 2.247E+01, 2.156E+01, 2.061E+01, 1.969E+01, 1.881E+01, 1.798E+01, 1.721E+01, 1.650E+01, 1.359E+01, 1.151E+01, 9.971E+00, 8.793E+00, 7.127E+00, 6.015E+00, 5.227E+00, 4.643E+00, 4.193E+00, 3.838E+00, 3.550E+00, 2.666E+00, 2.214E+00, 1.939E+00, 1.754E+00, 1.524E+00, 1.387E+00, 1.299E+00, 1.238E+00, 1.195E+00, 1.163E+00, 1.138E+00};
    153  AddData(E,Ni_Fe,dens[j]*factor);j++;
    154 
    155 G4double Cu_Fe[53] ={2.375E+00, 2.651E+00, 3.165E+00, 3.642E+00, 4.090E+00, 4.517E+00, 4.929E+00, 5.331E+00, 5.729E+00, 7.707E+00, 9.605E+00, 1.135E+01, 1.289E+01, 1.528E+01, 1.699E+01, 1.823E+01, 1.915E+01, 1.982E+01, 2.031E+01, 2.066E+01, 2.143E+01, 2.148E+01, 2.125E+01, 2.092E+01, 2.010E+01, 1.924E+01, 1.839E+01, 1.759E+01, 1.683E+01, 1.612E+01, 1.545E+01, 1.276E+01, 1.082E+01, 9.381E+00, 8.279E+00, 6.716E+00, 5.673E+00, 4.933E+00, 4.383E+00, 3.963E+00, 3.625E+00, 3.354E+00, 2.521E+00, 2.094E+00, 1.835E+00, 1.660E+00, 1.443E+00, 1.314E+00, 1.231E+00, 1.173E+00, 1.132E+00, 1.102E+00, 1.079E+00};
    156  AddData(E,Cu_Fe,dens[j]*factor);j++;
    157 
    158 G4double Ge_Fe[53] ={2.136E+00, 2.387E+00, 2.854E+00, 3.284E+00, 3.678E+00, 4.043E+00, 4.391E+00, 4.730E+00, 5.064E+00, 6.677E+00, 8.224E+00, 9.597E+00, 1.079E+01, 1.278E+01, 1.434E+01, 1.557E+01, 1.651E+01, 1.723E+01, 1.777E+01, 1.819E+01, 1.913E+01, 1.925E+01, 1.910E+01, 1.883E+01, 1.814E+01, 1.740E+01, 1.667E+01, 1.597E+01, 1.531E+01, 1.469E+01, 1.410E+01, 1.171E+01, 9.967E+00, 8.666E+00, 7.664E+00, 6.237E+00, 5.279E+00, 4.597E+00, 4.090E+00, 3.699E+00, 3.389E+00, 3.137E+00, 2.363E+00, 1.966E+00, 1.723E+00, 1.561E+00, 1.358E+00, 1.237E+00, 1.160E+00, 1.106E+00, 1.068E+00, 1.040E+00, 1.018E+00};
    159  AddData(E,Ge_Fe,dens[j]*factor);j++;
    160 
    161 G4double Kr_Fe[53] ={2.888E+00, 3.222E+00, 3.838E+00, 4.386E+00, 4.875E+00, 5.326E+00, 5.754E+00, 6.164E+00, 6.563E+00, 8.427E+00, 9.958E+00, 1.119E+01, 1.221E+01, 1.383E+01, 1.508E+01, 1.608E+01, 1.689E+01, 1.753E+01, 1.802E+01, 1.840E+01, 1.922E+01, 1.926E+01, 1.903E+01, 1.870E+01, 1.792E+01, 1.712E+01, 1.635E+01, 1.563E+01, 1.496E+01, 1.433E+01, 1.375E+01, 1.139E+01, 9.689E+00, 8.425E+00, 7.454E+00, 6.071E+00, 5.143E+00, 4.482E+00, 3.990E+00, 3.610E+00, 3.309E+00, 3.064E+00, 2.309E+00, 1.921E+00, 1.685E+00, 1.526E+00, 1.327E+00, 1.209E+00, 1.133E+00, 1.081E+00, 1.044E+00, 1.016E+00, 9.949E-01};
    162  AddData(E,Kr_Fe,dens[j]*factor);j++;
    163 
    164 }
    165 
    166 
    167 
     189
     190  return pv;
     191}
     192
     193//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
     194
     195G4PhysicsVector* G4IronStoppingICRU73::GetPhysicsVector(
     196                                           G4int ionZ,
     197                                           const G4String& matName)
     198{
     199  G4PhysicsVector* physicsVector = 0;
     200
     201  if(ionZ != 26) return physicsVector;
     202
     203  // Checking if dE/dx vector was already created
     204  size_t nmbKeys = dedxKeys.size();
     205  for( size_t i = 0; i < nmbKeys; i++ ) {
     206
     207    if( dedxKeys[i] == matName ) { physicsVector = dedx[i]; break; }
     208  }
     209  if(physicsVector != 0) { return physicsVector; }
     210
     211  // Creating dE/dx vector if ion-material pair covered
     212  G4double factor = MeV * cm2 / (0.001 * g);
     213
     214  G4double E[53] = {.025,.03,.04,.05,.06,.07,0.08,0.09,0.1,0.15,0.2,0.25,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1,1.5,2,2.5,3,4,5,6,7,8,9,10,15,20,25,30,40,50,60,70,80,90,100,150,200,250,300,400,500,600,700,800,900,1000};
     215
     216  for( G4int i = 0; i < 53; i++ ) E[i] *= MeV;
     217
     218
     219  if(matName == namesMat[0]) { 
     220
     221    G4double H_Fe[53] ={2.760E+01, 3.046E+01, 3.563E+01, 4.023E+01, 4.441E+01, 4.828E+01, 5.191E+01, 5.535E+01, 5.862E+01, 7.281E+01, 8.345E+01, 9.110E+01, 9.654E+01, 1.032E+02, 1.068E+02, 1.085E+02, 1.093E+02, 1.095E+02, 1.092E+02, 1.086E+02, 1.041E+02, 9.890E+01, 9.387E+01, 8.923E+01, 8.115E+01, 7.443E+01, 6.878E+01, 6.397E+01, 5.981E+01, 5.619E+01, 5.300E+01, 4.143E+01, 3.416E+01, 2.915E+01, 2.550E+01, 2.053E+01, 1.731E+01, 1.505E+01, 1.338E+01, 1.209E+01, 1.107E+01, 1.024E+01, 7.662E+00, 6.326E+00, 5.510E+00, 4.960E+00, 4.272E+00, 3.864E+00, 3.597E+00, 3.412E+00, 3.279E+00, 3.180E+00, 3.104E+00};
     222    physicsVector = CreatePhysicsVector(E,H_Fe,factor);
     223  }
     224  else if(matName == namesMat[1]) {
     225
     226    G4double He_Fe[53] ={9.071E+00, 9.992E+00, 1.168E+01, 1.322E+01, 1.465E+01, 1.601E+01, 1.731E+01, 1.856E+01, 1.977E+01, 2.534E+01, 3.009E+01, 3.392E+01, 3.691E+01, 4.096E+01, 4.337E+01, 4.482E+01, 4.569E+01, 4.620E+01, 4.645E+01, 4.653E+01, 4.569E+01, 4.406E+01, 4.229E+01, 4.053E+01, 3.730E+01, 3.447E+01, 3.202E+01, 2.988E+01, 2.801E+01, 2.635E+01, 2.489E+01, 1.948E+01, 1.603E+01, 1.365E+01, 1.192E+01, 9.560E+00, 8.040E+00, 6.981E+00, 6.200E+00, 5.601E+00, 5.126E+00, 4.741E+00, 3.553E+00, 2.939E+00, 2.563E+00, 2.310E+00, 1.994E+00, 1.806E+00, 1.684E+00, 1.599E+00, 1.538E+00, 1.493E+00, 1.458E+00};
     227    physicsVector = CreatePhysicsVector(E,He_Fe,factor);
     228  }
     229  else if(matName == namesMat[2]) {
     230
     231    G4double Be_Fe[53] ={7.231E+00, 8.001E+00, 9.429E+00, 1.074E+01, 1.198E+01, 1.315E+01, 1.426E+01, 1.532E+01, 1.632E+01, 2.070E+01, 2.417E+01, 2.687E+01, 2.894E+01, 3.186E+01, 3.377E+01, 3.507E+01, 3.597E+01, 3.657E+01, 3.697E+01, 3.722E+01, 3.722E+01, 3.633E+01, 3.519E+01, 3.398E+01, 3.163E+01, 2.948E+01, 2.756E+01, 2.585E+01, 2.431E+01, 2.294E+01, 2.171E+01, 1.705E+01, 1.402E+01, 1.190E+01, 1.035E+01, 8.254E+00, 6.906E+00, 5.972E+00, 5.289E+00, 4.768E+00, 4.357E+00, 4.025E+00, 3.010E+00, 2.489E+00, 2.172E+00, 1.960E+00, 1.693E+00, 1.535E+00, 1.432E+00, 1.361E+00, 1.310E+00, 1.272E+00, 1.243E+00};
     232    physicsVector = CreatePhysicsVector(E,Be_Fe,factor);
     233  }
     234  else if(matName == namesMat[3]) {
     235
     236    G4double C_Fe[53] ={6.513E+00, 7.256E+00, 8.631E+00, 9.900E+00, 1.109E+01, 1.222E+01, 1.329E+01, 1.431E+01, 1.528E+01, 1.972E+01, 2.371E+01, 2.695E+01, 2.943E+01, 3.276E+01, 3.481E+01, 3.617E+01, 3.708E+01, 3.770E+01, 3.813E+01, 3.842E+01, 3.865E+01, 3.799E+01, 3.701E+01, 3.592E+01, 3.370E+01, 3.160E+01, 2.969E+01, 2.795E+01, 2.638E+01, 2.496E+01, 2.368E+01, 1.874E+01, 1.545E+01, 1.313E+01, 1.142E+01, 9.087E+00, 7.588E+00, 6.550E+00, 5.792E+00, 5.215E+00, 4.761E+00, 4.396E+00, 3.282E+00, 2.714E+00, 2.369E+00, 2.137E+00, 1.848E+00, 1.677E+00, 1.565E+00, 1.488E+00, 1.433E+00, 1.392E+00, 1.361E+00};
     237    physicsVector = CreatePhysicsVector(E,C_Fe,factor);
     238  }
     239  else if(matName == namesMat[4]) {
     240
     241    G4double N_Fe[53] ={7.196E+00, 7.991E+00, 9.457E+00, 1.080E+01, 1.207E+01, 1.328E+01, 1.443E+01, 1.552E+01, 1.657E+01, 2.116E+01, 2.497E+01, 2.817E+01, 3.072E+01, 3.422E+01, 3.634E+01, 3.768E+01, 3.855E+01, 3.912E+01, 3.948E+01, 3.969E+01, 3.965E+01, 3.883E+01, 3.774E+01, 3.657E+01, 3.426E+01, 3.212E+01, 3.017E+01, 2.840E+01, 2.682E+01, 2.538E+01, 2.407E+01, 1.907E+01, 1.573E+01, 1.337E+01, 1.163E+01, 9.250E+00, 7.718E+00, 6.657E+00, 5.883E+00, 5.293E+00, 4.831E+00, 4.458E+00, 3.323E+00, 2.746E+00, 2.396E+00, 2.161E+00, 1.868E+00, 1.694E+00, 1.581E+00, 1.503E+00, 1.447E+00, 1.405E+00, 1.374E+00};
     242    physicsVector = CreatePhysicsVector(E,N_Fe,factor);
     243  }
     244  else if(matName == namesMat[5]) {
     245
     246    G4double O_Fe[53] ={5.927E+00, 6.602E+00, 7.858E+00, 9.021E+00, 1.012E+01, 1.118E+01, 1.220E+01, 1.319E+01, 1.415E+01, 1.850E+01, 2.219E+01, 2.529E+01, 2.784E+01, 3.147E+01, 3.372E+01, 3.515E+01, 3.609E+01, 3.671E+01, 3.712E+01, 3.738E+01, 3.753E+01, 3.687E+01, 3.594E+01, 3.491E+01, 3.283E+01, 3.087E+01, 2.906E+01, 2.742E+01, 2.593E+01, 2.457E+01, 2.333E+01, 1.856E+01, 1.535E+01, 1.306E+01, 1.137E+01, 9.051E+00, 7.553E+00, 6.516E+00, 5.757E+00, 5.180E+00, 4.727E+00, 4.362E+00, 3.253E+00, 2.688E+00, 2.346E+00, 2.117E+00, 1.831E+00, 1.661E+00, 1.551E+00, 1.475E+00, 1.420E+00, 1.380E+00, 1.349E+00};
     247    physicsVector = CreatePhysicsVector(E,O_Fe,factor);
     248  }
     249  else if(matName == namesMat[6]) {
     250
     251    G4double Ne_Fe[53] ={4.522E+00, 5.012E+00, 5.923E+00, 6.771E+00, 7.576E+00, 8.354E+00, 9.113E+00, 9.858E+00, 1.059E+01, 1.406E+01, 1.714E+01, 1.983E+01, 2.214E+01, 2.574E+01, 2.821E+01, 2.989E+01, 3.102E+01, 3.180E+01, 3.233E+01, 3.270E+01, 3.324E+01, 3.287E+01, 3.221E+01, 3.141E+01, 2.975E+01, 2.812E+01, 2.659E+01, 2.518E+01, 2.389E+01, 2.270E+01, 2.161E+01, 1.733E+01, 1.440E+01, 1.229E+01, 1.072E+01, 8.553E+00, 7.146E+00, 6.167E+00, 5.451E+00, 4.906E+00, 4.478E+00, 4.133E+00, 3.084E+00, 2.552E+00, 2.229E+00, 2.012E+00, 1.742E+00, 1.582E+00, 1.479E+00, 1.407E+00, 1.356E+00, 1.318E+00, 1.289E+00};
     252    physicsVector = CreatePhysicsVector(E,Ne_Fe,factor);
     253  }
     254  else if(matName == namesMat[7]) {
     255
     256    G4double Al_Fe[53] ={5.170E+00, 5.727E+00, 6.746E+00, 7.678E+00, 8.549E+00, 9.369E+00, 1.015E+01, 1.089E+01, 1.160E+01, 1.473E+01, 1.729E+01, 1.934E+01, 2.100E+01, 2.358E+01, 2.550E+01, 2.697E+01, 2.809E+01, 2.892E+01, 2.953E+01, 2.997E+01, 3.072E+01, 3.045E+01, 2.984E+01, 2.912E+01, 2.760E+01, 2.611E+01, 2.472E+01, 2.344E+01, 2.227E+01, 2.120E+01, 2.020E+01, 1.629E+01, 1.359E+01, 1.163E+01, 1.017E+01, 8.131E+00, 6.803E+00, 5.876E+00, 5.196E+00, 4.677E+00, 4.270E+00, 3.941E+00, 2.942E+00, 2.434E+00, 2.127E+00, 1.921E+00, 1.664E+00, 1.512E+00, 1.413E+00, 1.345E+00, 1.296E+00, 1.260E+00, 1.233E+00};
     257    physicsVector = CreatePhysicsVector(E,Al_Fe,factor);
     258  }
     259  else if(matName == namesMat[8]) {
     260
     261    G4double Si_Fe[53] ={5.179E+00, 5.792E+00, 6.906E+00, 7.894E+00, 8.779E+00, 9.583E+00, 1.033E+01, 1.105E+01, 1.176E+01, 1.509E+01, 1.774E+01, 1.979E+01, 2.143E+01, 2.390E+01, 2.572E+01, 2.711E+01, 2.818E+01, 2.901E+01, 2.964E+01, 3.011E+01, 3.100E+01, 3.079E+01, 3.022E+01, 2.950E+01, 2.798E+01, 2.650E+01, 2.511E+01, 2.382E+01, 2.264E+01, 2.155E+01, 2.056E+01, 1.661E+01, 1.387E+01, 1.189E+01, 1.039E+01, 8.322E+00, 6.967E+00, 6.020E+00, 5.324E+00, 4.794E+00, 4.377E+00,  4.040E+00, 3.017E+00, 2.497E+00, 2.182E+00, 1.971E+00, 1.708E+00, 1.552E+00, 1.451E+00, 1.381E+00, 1.331E+00, 1.295E+00, 1.266E+00};
     262    physicsVector = CreatePhysicsVector(E,Si_Fe,factor);
     263  }
     264  else if(matName == namesMat[9]) {
     265
     266    G4double Ar_Fe[53] ={4.640E+00, 5.184E+00, 6.169E+00, 7.042E+00, 7.836E+00, 8.580E+00, 9.290E+00, 9.972E+00, 1.063E+01, 1.362E+01, 1.604E+01, 1.796E+01, 1.949E+01, 2.168E+01, 2.315E+01, 2.417E+01, 2.491E+01, 2.545E+01, 2.586E+01, 2.617E+01, 2.681E+01, 2.669E+01, 2.625E+01, 2.567E+01, 2.438E+01, 2.311E+01, 2.191E+01, 2.081E+01, 1.979E+01, 1.886E+01, 1.801E+01, 1.461E+01, 1.225E+01, 1.052E+01, 9.221E+00, 7.405E+00, 6.211E+00, 5.374E+00, 4.757E+00, 4.286E+00, 3.914E+00,  3.615E+00, 2.701E+00, 2.236E+00, 1.955E+00, 1.766E+00, 1.530E+00, 1.391E+00, 1.301E+00, 1.239E+00, 1.194E+00, 1.161E+00, 1.136E+00};
     267    physicsVector = CreatePhysicsVector(E,Ar_Fe,factor);
     268  }
     269  else if(matName == namesMat[10]) {
     270
     271    G4double Ti_Fe[53] ={3.463E+00, 3.857E+00, 4.576E+00, 5.231E+00, 5.840E+00, 6.417E+00, 6.971E+00, 7.510E+00, 8.037E+00, 1.056E+01, 1.286E+01, 1.484E+01, 1.650E+01, 1.899E+01, 2.064E+01, 2.176E+01, 2.255E+01, 2.312E+01, 2.353E+01, 2.385E+01, 2.452E+01, 2.450E+01, 2.420E+01, 2.377E+01, 2.273E+01, 2.165E+01, 2.060E+01, 1.962E+01, 1.870E+01, 1.786E+01, 1.708E+01, 1.396E+01, 1.175E+01, 1.014E+01, 8.910E+00, 7.185E+00, 6.043E+00, 5.239E+00, 4.644E+00, 4.189E+00, 3.829E+00, 3.538E+00, 2.651E+00, 2.198E+00, 1.923E+00, 1.738E+00, 1.508E+00, 1.372E+00, 1.284E+00, 1.223E+00, 1.180E+00, 1.148E+00, 1.123E+00};
     272    physicsVector = CreatePhysicsVector(E,Ti_Fe,factor);
     273  }
     274  else if(matName == namesMat[11]) {
     275
     276    G4double Fe_Fe[53] ={2.849E+00, 3.182E+00, 3.799E+00, 4.367E+00, 4.900E+00, 5.406E+00, 5.896E+00, 6.375E+00, 6.847E+00, 9.117E+00, 1.120E+01, 1.305E+01, 1.461E+01, 1.702E+01, 1.875E+01, 2.000E+01, 2.088E+01, 2.151E+01, 2.197E+01, 2.230E+01, 2.301E+01, 2.302E+01, 2.277E+01, 2.239E+01, 2.148E+01, 2.052E+01, 1.959E+01, 1.870E+01, 1.786E+01, 1.709E+01, 1.637E+01, 1.345E+01, 1.138E+01, 9.844E+00, 8.673E+00, 7.018E+00, 5.918E+00, 5.139E+00, 4.562E+00, 4.119E+00, 3.768E+00, 3.484E+00, 2.615E+00, 2.171E+00, 1.901E+00, 1.720E+00, 1.493E+00, 1.360E+00, 1.273E+00, 1.213E+00, 1.171E+00, 1.139E+00, 1.115E+00};
     277    physicsVector = CreatePhysicsVector(E,Fe_Fe,factor);
     278  }
     279  else if(matName == namesMat[12]) {
     280
     281    G4double Ni_Fe[53] ={2.634E+00, 2.937E+00, 3.504E+00, 4.033E+00, 4.536E+00, 5.017E+00, 5.480E+00, 5.930E+00, 6.372E+00, 8.530E+00, 1.058E+01, 1.247E+01, 1.412E+01, 1.669E+01, 1.851E+01, 1.983E+01, 2.078E+01, 2.147E+01, 2.197E+01, 2.234E+01, 2.310E+01, 2.311E+01, 2.285E+01, 2.247E+01, 2.156E+01, 2.061E+01, 1.969E+01, 1.881E+01, 1.798E+01, 1.721E+01, 1.650E+01, 1.359E+01, 1.151E+01, 9.971E+00, 8.793E+00, 7.127E+00, 6.015E+00, 5.227E+00, 4.643E+00, 4.193E+00, 3.838E+00, 3.550E+00, 2.666E+00, 2.214E+00, 1.939E+00, 1.754E+00, 1.524E+00, 1.387E+00, 1.299E+00, 1.238E+00, 1.195E+00, 1.163E+00, 1.138E+00};
     282    physicsVector = CreatePhysicsVector(E,Ni_Fe,factor);
     283  }
     284  else if(matName == namesMat[13]) {
     285
     286    G4double Cu_Fe[53] ={2.375E+00, 2.651E+00, 3.165E+00, 3.642E+00, 4.090E+00, 4.517E+00, 4.929E+00, 5.331E+00, 5.729E+00, 7.707E+00, 9.605E+00, 1.135E+01, 1.289E+01, 1.528E+01, 1.699E+01, 1.823E+01, 1.915E+01, 1.982E+01, 2.031E+01, 2.066E+01, 2.143E+01, 2.148E+01, 2.125E+01, 2.092E+01, 2.010E+01, 1.924E+01, 1.839E+01, 1.759E+01, 1.683E+01, 1.612E+01, 1.545E+01, 1.276E+01, 1.082E+01, 9.381E+00, 8.279E+00, 6.716E+00, 5.673E+00, 4.933E+00, 4.383E+00, 3.963E+00, 3.625E+00, 3.354E+00, 2.521E+00, 2.094E+00, 1.835E+00, 1.660E+00, 1.443E+00, 1.314E+00, 1.231E+00, 1.173E+00, 1.132E+00, 1.102E+00, 1.079E+00};
     287    physicsVector = CreatePhysicsVector(E,Cu_Fe,factor);
     288  }
     289  else if(matName == namesMat[14]) {
     290
     291    G4double Ge_Fe[53] ={2.136E+00, 2.387E+00, 2.854E+00, 3.284E+00, 3.678E+00, 4.043E+00, 4.391E+00, 4.730E+00, 5.064E+00, 6.677E+00, 8.224E+00, 9.597E+00, 1.079E+01, 1.278E+01, 1.434E+01, 1.557E+01, 1.651E+01, 1.723E+01, 1.777E+01, 1.819E+01, 1.913E+01, 1.925E+01, 1.910E+01, 1.883E+01, 1.814E+01, 1.740E+01, 1.667E+01, 1.597E+01, 1.531E+01, 1.469E+01, 1.410E+01, 1.171E+01, 9.967E+00, 8.666E+00, 7.664E+00, 6.237E+00, 5.279E+00, 4.597E+00, 4.090E+00, 3.699E+00, 3.389E+00, 3.137E+00, 2.363E+00, 1.966E+00, 1.723E+00, 1.561E+00, 1.358E+00, 1.237E+00, 1.160E+00, 1.106E+00, 1.068E+00, 1.040E+00, 1.018E+00};
     292    physicsVector = CreatePhysicsVector(E,Ge_Fe,factor);
     293  }
     294  else if(matName == namesMat[15]) {
     295
     296    G4double Kr_Fe[53] ={2.888E+00, 3.222E+00, 3.838E+00, 4.386E+00, 4.875E+00, 5.326E+00, 5.754E+00, 6.164E+00, 6.563E+00, 8.427E+00, 9.958E+00, 1.119E+01, 1.221E+01, 1.383E+01, 1.508E+01, 1.608E+01, 1.689E+01, 1.753E+01, 1.802E+01, 1.840E+01, 1.922E+01, 1.926E+01, 1.903E+01, 1.870E+01, 1.792E+01, 1.712E+01, 1.635E+01, 1.563E+01, 1.496E+01, 1.433E+01, 1.375E+01, 1.139E+01, 9.689E+00, 8.425E+00, 7.454E+00, 6.071E+00, 5.143E+00, 4.482E+00, 3.990E+00, 3.610E+00, 3.309E+00, 3.064E+00, 2.309E+00, 1.921E+00, 1.685E+00, 1.526E+00, 1.327E+00, 1.209E+00, 1.133E+00, 1.081E+00, 1.044E+00, 1.016E+00, 9.949E-01};
     297    physicsVector = CreatePhysicsVector(E,Kr_Fe,factor);
     298  }
     299  else if(matName == namesMat[16]) {
     300
     301    G4double WATER_Fe[53] ={6.5394, 7.3060, 8.7367, 10.0690, 11.3310, 12.5470, 13.7280, 14.8780, 15.9980, 21.1160, 25.4850, 29.1260, 32.0640, 36.1770, 38.6920, 40.2760, 41.2950, 41.9530, 42.3710, 42.6210, 42.5910, 41.6900, 40.5190, 39.2690, 36.8000, 34.5040, 32.4190, 30.5410, 28.8480, 27.3170, 25.9310, 20.6170, 17.0680, 14.5540, 12.6930, 10.1410, 8.4892, 7.3402, 6.4976, 5.8545, 5.3479, 4.9387, 3.6892, 3.0503, 2.6620, 2.4014, 2.0756, 1.8825, 1.7569, 1.6702, 1.6079, 1.5619, 1.5267};
     302    physicsVector = CreatePhysicsVector(E,WATER_Fe,factor);
     303  }
     304
     305  if(physicsVector != 0) {
     306     dedxKeys.push_back( matName );
     307     dedx.push_back( physicsVector );
     308  }
     309
     310  return physicsVector;
     311
     312}
     313
     314//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
     315
     316G4PhysicsVector* G4IronStoppingICRU73::GetPhysicsVector(G4int ionZ, G4int matZ)
     317{
     318  G4PhysicsVector* physicsVector = 0;
     319
     320  size_t nmbMat =  atomicNumbersMat.size();
     321
     322  for( size_t i = 0; i < nmbMat; i++ ) {
     323
     324     if( atomicNumbersMat[i] == matZ ) {
     325        physicsVector = GetPhysicsVector(ionZ, namesMat[i]);
     326        break;
     327     }
     328  }
     329
     330  return physicsVector;
     331}

  • trunk/source/materials/src/G4MPVEntry.cc

    r986 r1058  
    2525//
    2626//
    27 // $Id: G4MPVEntry.cc,v 1.8 2008/06/05 23:39:18 gum Exp $
    28 // GEANT4 tag $Name: geant4-09-02-ref-02 $
     27// $Id: G4MPVEntry.cc,v 1.9 2009/04/21 15:35:45 gcosmo Exp $
     28// GEANT4 tag $Name: geant4-09-03-beta-cand-01 $
    2929//
    3030//
    … …  
    4949/////////////////////////
    5050
    51         //////////////
    52         // Operators
    53         //////////////
    54 
    5551// Overload the == operator
    5652// ------------------------
    5753// Well defined == semantics required by G4RWTPtrSortedVector
    5854//
    59 G4bool G4MPVEntry::operator ==(const G4MPVEntry &right) const 
     55G4bool G4MPVEntry::operator == (const G4MPVEntry &right) const 
    6056{
    61         if (thePhotonEnergy == right.thePhotonEnergy)
    62                 return true;
    63         else
    64                 return false;
     57  if (thePhotonEnergy == right.thePhotonEnergy)
     58    { return true;  }
     59  else
     60    { return false; }
    6561}
    6662
    … …  
    6965// Well defined < semantics required by G4RWTPtrSortedVector
    7066//
    71 G4bool G4MPVEntry::operator <(const G4MPVEntry &right) const 
     67G4bool G4MPVEntry::operator < (const G4MPVEntry &right) const 
    7268{
    73         if (thePhotonEnergy < right.thePhotonEnergy)
    74                 return true;
    75         else
    76                 return false;
     69  if (thePhotonEnergy < right.thePhotonEnergy)
     70    { return true;  }
     71  else
     72    { return false; }
    7773}
    7874
    … …  
    8177// Well defined = semantics required by G4RWTPtrSortedVector
    8278//
    83 G4MPVEntry& G4MPVEntry::operator =(const G4MPVEntry& right)
     79G4MPVEntry& G4MPVEntry::operator = (const G4MPVEntry& right)
    8480{
    85         if (this == &right) return *this;
    86        
    87         thePhotonEnergy = right.thePhotonEnergy;
    88         theProperty = right.theProperty;
    89         return *this;
     81  if (this == &right)  { return *this; }
     82
     83  thePhotonEnergy = right.thePhotonEnergy;
     84  theProperty = right.theProperty;
     85  return *this;
    9086}
    9187
    92         /////////////////
    93         // Constructors
    94         /////////////////
     88/////////////////
     89// Constructors
     90/////////////////
    9591
    9692G4MPVEntry::G4MPVEntry(G4double aPhotonEnergy, G4double aProperty)
    9793{
    98         thePhotonEnergy = aPhotonEnergy;
    99         theProperty = aProperty;
     94  thePhotonEnergy = aPhotonEnergy;
     95  theProperty = aProperty;
    10096}
    10197
    10298G4MPVEntry::G4MPVEntry(const G4MPVEntry &right)
    10399{
    104         thePhotonEnergy = right.thePhotonEnergy;
    105         theProperty = right.theProperty;
     100  thePhotonEnergy = right.thePhotonEnergy;
     101  theProperty = right.theProperty;
    106102}
    107103
     104////////////////
     105// Destructor
     106////////////////
    108107
    109         ////////////////
    110         // Destructors
    111         ////////////////
     108G4MPVEntry::~G4MPVEntry()
     109{
     110}
    112111
    113 G4MPVEntry::~G4MPVEntry(){}
    114 
    115         ////////////
    116         // Methods
    117         ////////////
     112////////////
     113// Methods
     114////////////
    118115
    119116void G4MPVEntry::DumpEntry()
    120117{
    121         G4cout << "("
    122              << thePhotonEnergy
    123              << ", "
    124              << theProperty
    125              << ")"
    126              << G4endl;
     118  G4cout << "(" << thePhotonEnergy << ", " << theProperty << ")" << G4endl;
    127119}

  • trunk/source/materials/src/G4MaterialPropertiesTable.cc

    r986 r1058  
    2525//
    2626//
    27 // $Id: G4MaterialPropertiesTable.cc,v 1.20 2008/06/05 23:38:34 gum Exp $
    28 // GEANT4 tag $Name: geant4-09-02-ref-02 $
     27// $Id: G4MaterialPropertiesTable.cc,v 1.21 2009/04/21 15:35:45 gcosmo Exp $
     28// GEANT4 tag $Name: geant4-09-03-beta-cand-01 $
    2929//
    3030//
    … …  
    5151#include "G4MaterialPropertiesTable.hh"
    5252
    53         /////////////////
    54         // Constructors
    55         /////////////////
    56 
    57 G4MaterialPropertiesTable::G4MaterialPropertiesTable() {}
    58 
    59         ////////////////
    60         // Destructors
    61         ////////////////
     53/////////////////
     54// Constructors
     55/////////////////
     56
     57G4MaterialPropertiesTable::G4MaterialPropertiesTable()
     58{
     59}
     60
     61////////////////
     62// Destructor
     63////////////////
    6264
    6365G4MaterialPropertiesTable::~G4MaterialPropertiesTable()
    6466{
    65         MPTiterator i;
    66         for (i = MPT.begin(); i != MPT.end(); ++i) {
    67             delete (*i).second;
    68         }
    69         MPT.clear();
    70         MPTC.clear();
    71 }
    72 
    73         ////////////
    74         // Methods
    75         ////////////
    76 
    77 void G4MaterialPropertiesTable::AddConstProperty(const char     *key,
    78                                                  G4double PropertyValue)
    79 {
    80 //      Provides a way of adding a constant property to the Mataerial Properties
    81 //      Table given a key
    82 
    83         MPTC [G4String(key)] = PropertyValue;
    84 
    85 }
    86 
    87 void G4MaterialPropertiesTable::AddProperty(const char     *key,
    88                                             G4double *PhotonEnergies,
    89                                             G4double *PropertyValues,
    90                                             G4int     NumEntries)
    91 {
    92 //      Privides a way of adding a property to the Material Properties
    93 //      Table given a pair of numbers and a key
    94 
    95         G4MaterialPropertyVector *mpv =
    96                         new G4MaterialPropertyVector(PhotonEnergies,
    97                                                      PropertyValues,
    98                                                      NumEntries);
    99         MPT [G4String(key)] = mpv;
    100 }
    101 
    102 void G4MaterialPropertiesTable::AddProperty(const char *key,
    103                                             G4MaterialPropertyVector *mpv)
    104 {
    105 //      Provides a way of adding a property to the Material Properties
    106 //      Table given an G4MaterialPropertyVector Reference and a key
    107 
    108         MPT [G4String(key)] = mpv;
    109 }
    110 
    111 void G4MaterialPropertiesTable::RemoveConstProperty(const char *key)
    112 {
    113         MPTC.erase(G4String(key));
    114 }
    115 
    116 void G4MaterialPropertiesTable::RemoveProperty(const char *key)
    117 {
    118         MPT.erase(G4String(key));
    119 }
    120 
    121 G4double G4MaterialPropertiesTable::GetConstProperty(const char *key)
    122 {
    123 //      Returns the constant material property corresponding to a key
    124 
    125         MPTCiterator j;
    126         j = MPTC.find(G4String(key));
    127         if ( j != MPTC.end() ) {
    128            return j->second;
    129         }
    130         else {
    131            G4Exception("G4MaterialPropertiesTable::GetConstProperty ==> "
    132                        "Constant Material Property not found.");
    133            return G4double(0.0);
    134         }
    135 }
    136 
    137 G4bool G4MaterialPropertiesTable::ConstPropertyExists(const char *key)
    138 {
    139 //      Return true if a const property 'key' exists
    140 
    141         MPTCiterator j;
    142         j = MPTC.find(G4String(key));
    143         if ( j != MPTC.end() ) {
    144            return true;
    145         }
    146         else {
    147            return false;
    148         }
    149 }
    150 
    151 G4MaterialPropertyVector* G4MaterialPropertiesTable::GetProperty(const char *key)
    152 {
    153 //      Returns a Material Property Vector corresponding to a key
    154 
    155         if(MPT[G4String(key)] != 0) {
    156           return MPT[G4String(key)];
    157         }else{
    158           if(G4String(key) == "GROUPVEL") {
    159             return SetGROUPVEL();
    160           }else{
    161             return MPT[G4String(key)];
    162           }
    163         }
    164 }
    165 
    166 void G4MaterialPropertiesTable::AddEntry(const char     *key,
    167                                          G4double  aPhotonEnergy,
    168                                          G4double  aPropertyValue)
    169 
    170 //      Allows to add an entry pair directly to the Material Property Vector
    171 //      given a key
    172 
    173 {
    174         G4MaterialPropertyVector *targetVector=MPT [G4String(key)];
    175         if (targetVector != 0) {
    176                 targetVector->AddElement(aPhotonEnergy, aPropertyValue);
    177         }
    178         else {
    179                 G4Exception("G4MaterialPropertiesTable::AddEntry ==> "
    180                             "Material Property Vector not found.");
    181         }
    182 }
    183 
    184 void G4MaterialPropertiesTable::RemoveEntry(const char *key, 
    185                                             G4double  aPhotonEnergy)
    186 {
    187 //      Allows to remove an entry pair directly from the Material Property Vector
    188 //      given a key
    189 
    190         G4MaterialPropertyVector *targetVector=MPT [G4String(key)];
    191         if (targetVector) {
    192                 targetVector->RemoveElement(aPhotonEnergy);
    193         }
    194         else {
    195                 G4Exception("G4MaterialPropertiesTable::RemoveEntry ==> "
    196                             "Material Property Vector not found.");
    197         }
    198 }
     67  MPTiterator i;
     68  for (i = MPT.begin(); i != MPT.end(); ++i)
     69  {
     70    delete (*i).second;
     71  }
     72  MPT.clear();
     73  MPTC.clear();
     74}
     75
     76////////////
     77// Methods
     78////////////
     79
    19980void G4MaterialPropertiesTable::DumpTable()
    20081{
    20182  MPTiterator i;
    202   for (i = MPT.begin(); i != MPT.end(); ++i) {
    203                 G4cout << (*i).first << G4endl;
    204                 if ( (*i).second != 0 ) {
    205                   (*i).second->DumpVector();
    206                 }
    207                 else {
    208                   G4cout << "NULL Material Property Vector Pointer." << G4endl;
    209                 }
     83  for (i = MPT.begin(); i != MPT.end(); ++i)
     84  {
     85    G4cout << (*i).first << G4endl;
     86    if ( (*i).second != 0 )
     87    {
     88      (*i).second->DumpVector();
     89    }
     90    else
     91    {
     92      G4Exception("G4MaterialPropertiesTable::DumpTable()", "NullVector",
     93                  JustWarning, "NULL Material Property Vector Pointer.");
     94    }
    21095  }
    21196  MPTCiterator j;
    212   for (j = MPTC.begin(); j != MPTC.end(); ++j) {
    213                  G4cout << j->first << G4endl;
    214                  if ( j->second != 0 ) {
    215                    G4cout << j->second << G4endl;
    216                  }
    217                  else {
    218                    G4cout << "No Material Constant Property." << G4endl;
    219                  }
    220   }
    221 
    222 }
     97  for (j = MPTC.begin(); j != MPTC.end(); ++j)
     98  {
     99    G4cout << j->first << G4endl;
     100    if ( j->second != 0 )
     101    {
     102      G4cout << j->second << G4endl;
     103    }
     104    else
     105    {
     106      G4Exception("G4MaterialPropertiesTable::DumpTable()", "NotFound",
     107                  JustWarning, "No Material Constant Property.");
     108    }
     109  }
     110}
     111
    223112G4MaterialPropertyVector* G4MaterialPropertiesTable::SetGROUPVEL()
    224113{
    225114  // fetch RINDEX data, give up if unavailable
     115  //
    226116  G4MaterialPropertyVector *rindex = this->GetProperty("RINDEX");
    227   if (rindex==0) return NULL;
    228                                                                                
     117  if (rindex==0)  { return 0; }
    229118  rindex->ResetIterator();
     119
    230120  // RINDEX exists but has no entries, give up
    231   if ( (++*rindex) == false ) return NULL;
     121  //
     122  if ( (++*rindex) == false )  { return 0; }
    232123
    233124  // add GROUPVEL vector
     125  //
    234126  G4MaterialPropertyVector* groupvel = new G4MaterialPropertyVector();
    235127
    … …  
    238130  // fill GROUPVEL vector using RINDEX values
    239131  // rindex built-in "iterator" was advanced to first entry above
     132  //
    240133  G4double E0 = rindex->GetPhotonEnergy();
    241134  G4double n0 = rindex->GetProperty();
    242135
    243   if (E0 <= 0. ) G4Exception("G4MaterialPropertiesTable::SetGROUPVEL ==> "
    244                        "Optical Photon Energy <= 0");
     136  if (E0 <= 0.)
     137  {
     138    G4Exception("G4MaterialPropertiesTable::SetGROUPVEL()", "ZeroEnergy",
     139                FatalException, "Optical Photon Energy <= 0");
     140  }
    245141                                                                               
    246   if ( ++*rindex ) {
     142  if ( ++*rindex )
     143  {
    247144    // good, we have at least two entries in RINDEX
    248145    // get next energy/value pair
     146
    249147    G4double E1 = rindex->GetPhotonEnergy();
    250148    G4double n1 = rindex->GetProperty();
    251149
    252     if (E1 <= 0. ) G4Exception("G4MaterialPropertiesTable::SetGROUPVEL ==> "
    253                          "Optical Photon Energy <= 0");
     150    if (E1 <= 0.)
     151    {
     152      G4Exception("G4MaterialPropertiesTable::SetGROUPVEL()", "ZeroEnergy",
     153                  FatalException, "Optical Photon Energy <= 0");
     154    }
     155
    254156    G4double vg;
     157
    255158    // add entry at first photon energy
     159    //
    256160    vg = c_light/(n0+(n1-n0)/std::log(E1/E0));
     161
    257162    // allow only for 'normal dispersion' -> dn/d(logE) > 0
    258     if(vg<0 || vg>c_light/n0)vg = c_light/n0;
     163    //
     164    if((vg<0) || (vg>c_light/n0))  { vg = c_light/n0; }
     165
    259166    groupvel->AddElement( E0, vg );
     167
    260168    // add entries at midpoints between remaining photon energies
    261     while(1) {
     169    //
     170    while(1)
     171    {
    262172      vg = c_light/( 0.5*(n0+n1)+(n1-n0)/std::log(E1/E0));
     173
    263174      // allow only for 'normal dispersion' -> dn/d(logE) > 0
    264       if(vg<0 || vg>c_light/(0.5*(n0+n1)))vg = c_light/(0.5*(n0+n1));
     175      //
     176      if((vg<0) || (vg>c_light/(0.5*(n0+n1))))  { vg = c_light/(0.5*(n0+n1)); }
    265177      groupvel->AddElement( 0.5*(E0+E1), vg );
     178
    266179      // get next energy/value pair, or exit loop
    267       if (!(++*rindex)) break;
     180      //
     181      if (!(++*rindex))  { break; }
    268182      E0 = E1;
    269183      n0 = n1;
    … …  
    271185      n1 = rindex->GetProperty();
    272186
    273       if (E1 <= 0. ) G4Exception("G4MaterialPropertiesTable::SetGROUPVEL ==> "
    274                            "Optical Photon Energy <= 0");
    275     }
     187      if (E1 <= 0.)
     188      {
     189        G4Exception("G4MaterialPropertiesTable::SetGROUPVEL()", "ZeroEnergy",
     190                    FatalException, "Optical Photon Energy <= 0");
     191      }
     192    }
     193
    276194    // add entry at last photon energy
     195    //
    277196    vg = c_light/(n1+(n1-n0)/std::log(E1/E0));
     197
    278198    // allow only for 'normal dispersion' -> dn/d(logE) > 0
    279     if(vg<0 || vg>c_light/n1)vg = c_light/n1;
     199    //
     200    if((vg<0) || (vg>c_light/n1))  { vg = c_light/n1; }
    280201    groupvel->AddElement( E1, vg );
    281   }else{
    282     // only one entry in RINDEX -- weird!
     202  }
     203  else // only one entry in RINDEX -- weird!
     204  {
    283205    groupvel->AddElement( E0, c_light/n0 );
    284206  }

  • trunk/source/materials/src/G4MaterialPropertyVector.cc

    r986 r1058  
    2525//
    2626//
    27 // $Id: G4MaterialPropertyVector.cc,v 1.16 2008/06/05 23:38:51 gum Exp $
    28 // GEANT4 tag $Name: geant4-09-02-ref-02 $
     27// $Id: G4MaterialPropertyVector.cc,v 1.17 2009/04/21 15:35:45 gcosmo Exp $
     28// GEANT4 tag $Name: geant4-09-03-beta-cand-01 $
    2929//
    3030//
    … …  
    4545#include "G4MaterialPropertyVector.hh"
    4646
    47 /////////////////////////
    48 // Class Implementation 
    49 /////////////////////////
    50 
    51         //////////////
    52         // Operators
    53         //////////////
    54 
    55 // ++ operator
    56 // -----------
    57 //
    58 G4bool G4MaterialPropertyVector::operator ++()
    59 {
    60         CurrentEntry++;
    61         if (CurrentEntry < NumEntries) {
    62                 return true;
    63         }
    64         else {
    65                 return false;
    66         }
    67 }
    68 
    6947// = operator
    7048// ----------
    … …  
    7351G4MaterialPropertyVector::operator =(const G4MaterialPropertyVector& right)
    7452{
    75         if (this == &right) return *this;
    76        
    77         // clear the vector of current contents
    78 
    79         MPV.clear();
    80 
    81         // create an actual copy (instead of the shallow copy that the
    82         // assignment operator defaults to for G4RWTPtrSortedVector)
    83 
    84         NumEntries = 0;
    85         CurrentEntry = -1;
    86 
    87         for (G4int i = 0 ; i < right.NumEntries; i++) {
    88                 G4MPVEntry *newElement = new G4MPVEntry(right.GetEntry(i));
    89                 MPV.push_back(newElement);
    90                 NumEntries++;
    91         }
    92 
    93         return *this;
    94 }
    95 
    96         /////////////////
    97         // Constructors
    98         /////////////////
    99 
    100 G4MaterialPropertyVector::G4MaterialPropertyVector(G4double *PhotonEnergies,
    101                                                    G4double *PropertyValues,
    102                                                    G4int     NumElements)
    103 {
    104         NumEntries = 0;
    105         CurrentEntry = -1;
    106 
    107         // create a vector filling it with the values
    108         // from PhotonEnergies[] and PropertyValues[]
    109 
    110         for(G4int i = 0; i < NumElements; i++) {
    111                 AddElement(PhotonEnergies[i], PropertyValues[i]);
    112         }
    113 }
    114 
    115 G4MaterialPropertyVector::G4MaterialPropertyVector
    116                           (const G4MaterialPropertyVector &right)
    117 {
    118         // create an actual copy (instead of the shallow copy that the
    119         // assignment operator defaults to for G4RWTPtrSortedVector)
    120 
    121         NumEntries = 0;
    122         CurrentEntry = -1;
    123 
    124         for (G4int i = 0 ; i < right.NumEntries; i++) {
    125                 G4MPVEntry *newElement = new G4MPVEntry(right.GetEntry(i));
    126                 MPV.push_back(newElement);
    127                 NumEntries++;
    128         }
    129 }
    130 
    131         ////////////////
    132         // Destructors
    133         ////////////////
     53  if (this == &right)  { return *this; }
     54
     55  // clear the vector of current contents
     56
     57  MPV.clear();
     58
     59  // create an actual copy (instead of the shallow copy that the
     60  // assignment operator defaults to for G4RWTPtrSortedVector)
     61
     62  NumEntries = 0;
     63  CurrentEntry = -1;
     64
     65  for (G4int i = 0 ; i < right.NumEntries; i++)
     66  {
     67    G4MPVEntry *newElement = new G4MPVEntry(right.GetEntry(i));
     68    MPV.push_back(newElement);
     69    NumEntries++;
     70  }
     71
     72  return *this;
     73}
     74
     75/////////////////
     76// Constructors
     77/////////////////
     78
     79G4MaterialPropertyVector::
     80G4MaterialPropertyVector(G4double *PhotonEnergies,
     81                         G4double *PropertyValues,
     82                         G4int     NumElements)
     83{
     84  NumEntries = 0;
     85  CurrentEntry = -1;
     86
     87  // create a vector filling it with the values
     88  // from PhotonEnergies[] and PropertyValues[]
     89
     90  for(G4int i = 0; i < NumElements; i++)
     91  {
     92    AddElement(PhotonEnergies[i], PropertyValues[i]);
     93  }
     94}
     95
     96G4MaterialPropertyVector::
     97G4MaterialPropertyVector(const G4MaterialPropertyVector &right)
     98{
     99  // create an actual copy (instead of the shallow copy that the
     100  // assignment operator defaults to for G4RWTPtrSortedVector)
     101
     102  NumEntries = 0;
     103  CurrentEntry = -1;
     104
     105  for (G4int i = 0 ; i < right.NumEntries; i++)
     106  {
     107    G4MPVEntry *newElement = new G4MPVEntry(right.GetEntry(i));
     108    MPV.push_back(newElement);
     109    NumEntries++;
     110  }
     111}
     112
     113////////////////
     114// Destructor
     115////////////////
    134116
    135117G4MaterialPropertyVector::~G4MaterialPropertyVector()
    136118{
    137         MPV.clear();
    138 }
    139 
    140         ////////////
    141         // Methods
    142         ////////////
    143 void G4MaterialPropertyVector::AddElement(G4double aPhotonEnergy,
    144                                           G4double aPropertyValue)
    145 {
    146         G4MPVEntry *newElement;
    147        
    148         newElement = new G4MPVEntry(aPhotonEnergy, aPropertyValue);
    149         MPV.push_back(newElement);
    150         std::sort(MPV.begin(), MPV.end(), MPVEntry_less());
    151         NumEntries++;
    152 }
     119  MPV.clear();
     120}
     121
     122////////////
     123// Methods
     124////////////
    153125
    154126void G4MaterialPropertyVector::RemoveElement(G4double aPhotonEnergy)
    155127{
    156         G4MPVEntry *newElement;
    157         G4MPVEntry *success=0;
    158 
    159         newElement = new G4MPVEntry(aPhotonEnergy, DBL_MAX);
    160 
    161         std::vector<G4MPVEntry*>::iterator i;
    162         for (i = MPV.begin(); i != MPV.end(); i++)
    163           if (**i == *newElement) {success = *i; break;}
    164         //      success = MPV.remove(newElement);
    165 
    166         if(success == 0)
    167         {
    168         G4Exception("G4MaterialPropertyVector::RemoveElement==>"
    169                                                "element not found");
    170         return;
    171         }
    172         else
    173         {
    174           MPV.erase(i); // remove done here.
    175         }
    176 
    177         NumEntries--;
    178 }
    179 
    180 G4double
    181 G4MaterialPropertyVector::GetProperty(G4double aPhotonEnergy) const
    182 {
    183         G4MPVEntry *target, *temp;
    184         G4int left, right;
    185         G4double ratio1, ratio2, pmright, pmleft, InterpolatedValue;
     128  G4MPVEntry *newElement;
     129  G4MPVEntry *success=0;
     130
     131  newElement = new G4MPVEntry(aPhotonEnergy, DBL_MAX);
     132
     133  std::vector<G4MPVEntry*>::iterator i;
     134  for (i = MPV.begin(); i != MPV.end(); i++)
     135  {
     136    if (**i == *newElement) { success = *i; break; }
     137  }
     138  //  success = MPV.remove(newElement);
     139
     140  if(success == 0)
     141  {
     142    G4Exception("G4MaterialPropertyVector::RemoveElement()", "NotFound",
     143                FatalException, "Element not found !");
     144    return;
     145  }
     146  else
     147  {
     148    MPV.erase(i); // remove done here.
     149  }
     150
     151  NumEntries--;
     152}
     153
     154G4double G4MaterialPropertyVector::GetProperty(G4double aPhotonEnergy) const
     155{
     156  G4MPVEntry *target, *temp;
     157  G4int left, right;
     158  G4double ratio1, ratio2, pmright, pmleft, InterpolatedValue;
    186159 
    187         /////////////////////////
    188         // Establish table range
    189         /////////////////////////
    190 
    191         G4double PMmin   = MPV.front()->GetPhotonEnergy();
    192         G4double minProp = MPV.front()->GetProperty();
    193         G4double PMmax   = MPV.back() ->GetPhotonEnergy();
    194         G4double maxProp = MPV.back() ->GetProperty();
    195 
    196         ///////////////////////////////////////////
    197         // Does value fall outside range of table?
    198         ///////////////////////////////////////////
    199 
    200         if (aPhotonEnergy < PMmin)
    201         {
    202                 G4cout << "\nWarning: G4MaterialPropertyVector::GetProperty";
    203                 G4cout << "\n==> attempt to Retrieve Property below range"
    204                 << G4endl;
    205                 return minProp;
    206         }
     160  /////////////////////////
     161  // Establish table range
     162  /////////////////////////
     163
     164  G4double PMmin   = MPV.front()->GetPhotonEnergy();
     165  G4double minProp = MPV.front()->GetProperty();
     166  G4double PMmax   = MPV.back() ->GetPhotonEnergy();
     167  G4double maxProp = MPV.back() ->GetProperty();
     168
     169  ///////////////////////////////////////////
     170  // Does value fall outside range of table?
     171  ///////////////////////////////////////////
     172
     173  if (aPhotonEnergy < PMmin)
     174  {
     175    G4Exception("G4MaterialPropertyVector::GetProperty()", "OutOfRange",
     176                JustWarning, "Attempt to retrieve property below range !");
     177    return minProp;
     178  }
    207179
    208180        if (aPhotonEnergy > PMmax)
    209         {
    210                 G4cout << "\nWarning: G4MaterialPropertyVector::GetProperty";
    211                 G4cout << "\n==> attempt to Retrieve Property above range"
    212                 << G4endl;
    213                 return maxProp;
    214         }
    215        
    216         target = new G4MPVEntry(aPhotonEnergy, 0.0);
    217 
    218         temp = 0;
    219         //temp = MPV.find(target);
    220         std::vector<G4MPVEntry*>::const_iterator i;
    221         for (i = MPV.begin(); i != MPV.end(); i++)
    222           if (**i == *target) {temp = *i; break;}
    223         if (temp != 0) {
    224 
    225                 ////////////////////////
    226                 // Return actual value
    227                 ////////////////////////
    228 
    229                 G4double retval = temp->GetProperty();
    230                 delete target;
    231                 return retval;
    232         }
    233         else {
    234                 //////////////////////////////
    235                 // Return interpolated value
    236                 //////////////////////////////
    237 
    238                 GetAdjacentBins(aPhotonEnergy, &left, &right);
    239 
    240                 pmleft = MPV[left]->GetPhotonEnergy();
    241                 pmright = MPV[right]->GetPhotonEnergy();
    242                 ratio1 = (aPhotonEnergy-pmleft)/(pmright-pmleft);
    243                 ratio2 = 1 - ratio1;
    244                 InterpolatedValue = MPV[left]->GetProperty()*ratio2 +
    245                                     MPV[right]->GetProperty()*ratio1;
    246                
    247                 delete target;
    248                 return InterpolatedValue;
    249         }       
    250 }
    251 
    252 G4double G4MaterialPropertyVector::GetProperty() const
    253 {
    254 //      For use with G4MaterialPropertyVector iterator
    255 
    256         if(CurrentEntry == -1 || CurrentEntry >= NumEntries) {
    257                 G4Exception("G4MaterialPropertyVector::GetProperty ==>"
    258                 "Iterator attempted to Retrieve Property out of range");
    259                 return DBL_MAX;
    260         }
    261         else {
    262                 return MPV[CurrentEntry]->GetProperty();
    263         }
    264 }
    265 
    266 G4double G4MaterialPropertyVector::GetPhotonEnergy() const
    267 {
    268 //      For use with G4MaterialPropertyVector iterator
    269 
    270         if(CurrentEntry == -1 || CurrentEntry >= NumEntries) {
    271                 G4Exception("G4MaterialPropertyVector::GetPhotonEnergy ==>"
    272                 "Iterator attempted to Retrieve Photon Energy out of range");
    273                 return DBL_MAX;
    274         }
    275         else {
    276                 return MPV[CurrentEntry]->GetPhotonEnergy();
    277         }
    278 }
    279 
    280 G4double
    281 G4MaterialPropertyVector::GetPhotonEnergy(G4double aProperty) const
    282 {
    283 //                              ***NB***
    284 // Assumes that the property is an increasing function of photon energy (e.g.
    285 // refraction index)
    286 //                              ***NB***
    287 //
    288 // Returns the photon energy corresponding to the property value passed in.
    289 // If several photon energy values correspond to the value passed in, the
    290 // function returns the first photon energy in the vector that corresponds
    291 // to that value.
    292 
    293         G4int left, right, mid;
    294         G4double ratio1, ratio2, pright, pleft, InterpolatedValue;
    295 
    296         //////////////////////////
    297         // Establish Table range
    298         //////////////////////////
    299 
    300         G4double PropMin = MPV.front()->GetProperty();
    301         G4double PMmin   = MPV.front()->GetPhotonEnergy();
    302         G4double PropMax = MPV.back() ->GetProperty();
    303         G4double PMmax   = MPV.back() ->GetPhotonEnergy();
    304 
    305         ///////////////////////////////////////////
    306         // Does value fall outside range of table?
    307         ///////////////////////////////////////////
    308 
    309         if (aProperty < PropMin)
    310         {
    311           G4cout << "\nWarning: G4MaterialPropertyVector::GetPhotonEnergy";
    312           G4cout << "\n==> attempt to Retrieve Photon Energy out of range"
    313                << G4endl;
    314           return PMmin;
    315         }
    316 
    317         if (aProperty > PropMax) {
    318           G4cout << "\nWarning: G4MaterialPropertyVector::GetPhotonEnergy";
    319           G4cout << "\n==> attempt to Retrieve Photon Energy out of range"
    320                << G4endl;
    321           return PMmax;
    322         }
    323 
    324         //////////////////////////////
    325         // Return interpolated value
    326         //////////////////////////////
    327 
    328         left = 0;
    329         right = MPV.size(); // was .entries()
    330 
    331         // find values in bins on either side of aProperty
    332        
    333         do {
    334                 mid = (left + right)/2;
    335                 if (MPV[mid]->GetProperty() == aProperty) {
    336 
    337                         // Get first photon energy value in vector that
    338                         // corresponds to property value 
    339 
    340                         while (mid-1 >= 0 &&
    341                                MPV[mid-1]->GetProperty() == aProperty) {
    342                                   mid--;
    343                         }
    344 
    345                         InterpolatedValue = MPV[mid]->GetPhotonEnergy();
    346                         goto end_GetPhotonEnergy;       
    347                 }
    348                 if (MPV[mid]->GetProperty() < aProperty)
    349                         left = mid;
    350                 else
    351                         right = mid;
    352 
    353         } while ((right - left) > 1);
    354 
    355         pleft = MPV[left]->GetProperty();
    356         pright = MPV[right]->GetProperty();
    357         ratio1 = (aProperty - pleft) / (pright - pleft);
    358         ratio2 = 1 - ratio1;
    359         InterpolatedValue = MPV[left]->GetPhotonEnergy()*ratio2 +
    360                             MPV[right]->GetPhotonEnergy()*ratio1;
    361 
    362 end_GetPhotonEnergy:
    363 
    364         return InterpolatedValue;
    365 }
    366 
    367 void G4MaterialPropertyVector::ResetIterator()
    368 {
    369         CurrentEntry = -1;
     181  {
     182    G4Exception("G4MaterialPropertyVector::GetProperty()", "OutOfRange",
     183                JustWarning, "Attempt to retrieve property above range !");
     184    return maxProp;
     185  }
     186 
     187  target = new G4MPVEntry(aPhotonEnergy, 0.0);
     188
     189  temp = 0;
     190  //temp = MPV.find(target);
     191  std::vector<G4MPVEntry*>::const_iterator i;
     192  for (i = MPV.begin(); i != MPV.end(); i++)
     193  {
     194    if (**i == *target)  { temp = *i; break; }
     195  }
     196  if (temp != 0)
     197  {
     198    ////////////////////////
     199    // Return actual value
     200    ////////////////////////
     201
     202    G4double retval = temp->GetProperty();
     203    delete target;
     204    return retval;
     205  }
     206  else
     207  {
     208    //////////////////////////////
     209    // Return interpolated value
     210    //////////////////////////////
     211
     212    GetAdjacentBins(aPhotonEnergy, &left, &right);
     213
     214    pmleft = MPV[left]->GetPhotonEnergy();
     215    pmright = MPV[right]->GetPhotonEnergy();
     216    ratio1 = (aPhotonEnergy-pmleft)/(pmright-pmleft);
     217    ratio2 = 1 - ratio1;
     218    InterpolatedValue = MPV[left]->GetProperty()*ratio2 +
     219                        MPV[right]->GetProperty()*ratio1;
     220    delete target;
     221    return InterpolatedValue;
     222  } 
     223}
     224
     225G4double G4MaterialPropertyVector::GetPhotonEnergy(G4double aProperty) const
     226{
     227  //         ***NB***
     228  // Assumes that the property is an increasing function of photon energy
     229  // (e.g. refraction index)
     230  //         ***NB***
     231  //
     232  // Returns the photon energy corresponding to the property value passed in.
     233  // If several photon energy values correspond to the value passed in, the
     234  // function returns the first photon energy in the vector that corresponds
     235  // to that value.
     236
     237  G4int left, right, mid;
     238  G4double ratio1, ratio2, pright, pleft;
     239
     240  //////////////////////////
     241  // Establish Table range
     242  //////////////////////////
     243
     244  G4double PropMin = MPV.front()->GetProperty();
     245  G4double PMmin   = MPV.front()->GetPhotonEnergy();
     246  G4double PropMax = MPV.back() ->GetProperty();
     247  G4double PMmax   = MPV.back() ->GetPhotonEnergy();
     248
     249  ///////////////////////////////////////////
     250  // Does value fall outside range of table?
     251  ///////////////////////////////////////////
     252
     253  if (aProperty < PropMin)
     254  {
     255    G4Exception("G4MaterialPropertyVector::GetPhotonEnergy()",
     256                "OutOfRange", JustWarning,
     257                "Attempt to retrieve photon energy out of range");
     258    return PMmin;
     259  }
     260
     261  if (aProperty > PropMax)
     262  {
     263    G4Exception("G4MaterialPropertyVector::GetPhotonEnergy()",
     264                "OutOfRange", JustWarning,
     265                "Attempt to retrieve photon energy out of range");
     266    return PMmax;
     267  }
     268
     269  //////////////////////////////
     270  // Return interpolated value
     271  //////////////////////////////
     272
     273  left = 0;
     274  right = MPV.size(); // was .entries()
     275
     276  // find values in bins on either side of aProperty
     277 
     278  do
     279  {
     280    mid = (left + right)/2;
     281    if (MPV[mid]->GetProperty() == aProperty)
     282    {
     283      // Get first photon energy value in vector that
     284      // corresponds to property value 
     285
     286      while ((mid-1 >= 0) && (MPV[mid-1]->GetProperty() == aProperty))
     287      {
     288          mid--;
     289      }
     290      return MPV[mid]->GetPhotonEnergy();
     291    }
     292    if (MPV[mid]->GetProperty() < aProperty)
     293    {
     294      left = mid;
     295    }
     296    else
     297    {
     298      right = mid;
     299    }
     300  } while ((right - left) > 1);
     301
     302  pleft = MPV[left]->GetProperty();
     303  pright = MPV[right]->GetProperty();
     304  ratio1 = (aProperty - pleft) / (pright - pleft);
     305  ratio2 = 1 - ratio1;
     306
     307  return  (MPV[left]->GetPhotonEnergy()*ratio2 +
     308           MPV[right]->GetPhotonEnergy()*ratio1);
     309}
     310
     311void G4MaterialPropertyVector::DumpVector()
     312{
     313  if (MPV.empty())
     314  {
     315    G4Exception("G4MaterialPropertyVector::DumpVector()", "EmptyVector",
     316                JustWarning, "Nothing to dump. Vector is empty !");
     317  }
     318  else
     319  {
     320    for (G4int i = 0; i < NumEntries; i++)
     321    {
     322      G4cout << "MPV["<< i << "]: ";
     323      MPV[i]->DumpEntry();
     324    }
     325    G4cout << " Done DumpVector of " << NumEntries << " entries." << G4endl;
     326  }
    370327}
    371328
    372 void G4MaterialPropertyVector::DumpVector()
    373 {
    374         if (MPV.empty())  {
    375                 G4cerr << "nothing to dump" << G4endl;
    376                 G4Exception("G4MaterialPropertyVector::DumpVector ==>"
    377                             "Nothing to dump!  Vector is empty");
    378         }
    379 
    380         for (G4int i = 0; i < NumEntries; i++) {
    381                 G4cout << "MPV["<< i << "]: ";
    382                 MPV[i]->DumpEntry();
    383         }
    384         G4cout << " Done DumpVector of " << NumEntries << " entries " << G4endl;
    385 
    386 }
    387 
    388 G4MPVEntry G4MaterialPropertyVector::GetEntry(G4int i) const
    389 {
    390         return *MPV[i];
    391 }
    392 
    393 void
    394 G4MaterialPropertyVector::GetAdjacentBins(G4double aPhotonEnergy,
    395                                           G4int *left,
    396                                           G4int *right) const
    397 {
    398         G4int mid;
    399 
    400         *left = 0;
    401         *right = (MPV.size() - 1); // was .entries()
    402 
    403         // find values in bins on either side of aPhotonEnergy
    404 
    405         do {
    406                 mid = (*left + *right)/2;
    407 
    408                 if (MPV[mid]->GetPhotonEnergy() < aPhotonEnergy)
    409                 {
    410                         *left = mid;
    411                 }
    412                 else
    413                 {
    414                         *right = mid;
    415                 }
    416         } while ((*right - *left) > 1);
    417 }
     329void G4MaterialPropertyVector::GetAdjacentBins(G4double aPhotonEnergy,
     330                                               G4int *left, G4int *right) const
     331{
     332  G4int mid;
     333
     334  *left = 0;
     335  *right = (MPV.size() - 1); // was .entries()
     336
     337  // find values in bins on either side of aPhotonEnergy
     338
     339  do
     340  {
     341    mid = (*left + *right)/2;
     342    if (MPV[mid]->GetPhotonEnergy() < aPhotonEnergy)
     343    {
     344      *left = mid;
     345    }
     346    else
     347    {
     348      *right = mid;
     349    }
     350  } while ((*right - *left) > 1);
     351}

  • trunk/source/materials/src/G4MaterialStoppingICRU73.cc

    r986 r1058  
    2525//
    2626//
    27 // $Id: G4MaterialStoppingICRU73.cc,v 1.4 2009/02/19 11:09:22 antoni Exp $
    28 // GEANT4 tag $Name: geant4-09-02-ref-02 $
     27// $Id: G4MaterialStoppingICRU73.cc,v 1.7 2009/04/29 13:51:53 vnivanch Exp $
     28// GEANT4 tag $Name: geant4-09-03-beta-cand-01 $
    2929
    3030//---------------------------------------------------------------------------
    … …  
    3737//
    3838// Modifications:
     39// 29.04.2009 A.Ivantchenko added revised data for G4WATER, G4WATER_VAPOR,
     40//            G4_NYLON-6/6 provided by  Prof.P.Sigmund Univ. Southern Denmark
    3941//
    4042//----------------------------------------------------------------------------
    … …  
    5052{
    5153  spline = splineFlag;
    52   lowerEnergyBoundary = 0.025 * MeV;
    53   upperEnergyBoundary = 10.00 * MeV;
    54   Initialise();
     54
     55  minIonAtomicNmb = 3;
     56  maxIonAtomicNmb = 18;
     57
     58  G4String matName[31] = {"G4_A-150_TISSUE","G4_ADIPOSE_TISSUE_ICRP","G4_AIR","G4_ALUMINUM_OXIDE","G4_BONE_COMPACT_ICRU","G4_BONE_CORTICAL_ICRP","G4_C-552","G4_CALCIUM_FLUORIDE","G4_CARBON_DIOXIDE","G4_Pyrex_Glass","G4_KAPTON","G4_LITHIUM_FLUORIDE","G4_LITHIUM_TETRABORATE","G4_METHANE","G4_MUSCLE_STRIATED_ICRU","G4_NYLON-6/6","G4_PHOTO_EMULSION","G4_PLASTIC_SC_VINYLTOLUENE","G4_POLYCARBONATE","G4_POLYETHYLENE","G4_MYLAR","G4_LUCITE","G4_POLYSTYRENE","G4_TEFLON","G4_PROPANE","G4_SILICON_DIOXIDE","G4_SODIUM_IODIDE","G4_TISSUE-METHANE","G4_TISSUE-PROPANE","G4_WATER","G4_WATER_VAPOR"};
     59
     60  for( size_t i = 0; i < 31; i++ ) {
     61      namesMat.push_back( matName[i] );
     62  }
    5563}
    5664
    … …  
    5866
    5967G4MaterialStoppingICRU73::~G4MaterialStoppingICRU73()
    60 {}
     68{
     69  size_t nmb = dedx.size();
     70
     71  for(size_t i = 0; i < nmb; i++) delete dedx[i];
     72
     73  namesMat.clear();
     74  dedxKeys.clear();
     75  dedx.clear();
     76}
    6177
    6278//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
    6379
    64 G4double G4MaterialStoppingICRU73::GetDEDX(G4int ionZ, G4int idxMaterial,
    65                                            G4double kinEnergy)
     80G4bool G4MaterialStoppingICRU73::IsApplicable(G4int, G4int)
    6681{
    67   G4double res = 0.0;
    68   if(ionZ < 3 || ionZ > 18 || idxMaterial < 0 || idxMaterial > 30) return res;
    69   G4bool b;
    70   G4int idx = idxMaterial*16 + ionZ - 3;
    71   G4double scaledEnergy = kinEnergy/A[ionZ - 3];
    72   G4double emin = 0.025*MeV;
    73   if(scaledEnergy < emin) {
    74     res = (dedx[idx])->GetValue(emin, b)*std::sqrt(scaledEnergy/emin);
    75   } else {
    76     res = (dedx[idx])->GetValue(scaledEnergy, b);
    77   }
    78   return res;
     82  return false;
    7983}
    8084
    8185//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
    8286
    83 void G4MaterialStoppingICRU73::AddData(G4double* energy, G4double* stoppower,
     87G4bool G4MaterialStoppingICRU73::IsApplicable(G4int ionZ,
     88                                       const G4String& matName)
     89{
     90  G4bool isApplicable = false;
     91
     92  if( ionZ >= minIonAtomicNmb && ionZ <= maxIonAtomicNmb ) {
     93
     94     size_t nmbMat =  namesMat.size();
     95
     96     for( size_t i = 0; i < nmbMat; i++ ) {
     97
     98         if( namesMat[i] == matName ) { isApplicable = true; break; }
     99     }
     100  }
     101
     102  return isApplicable; 
     103}
     104
     105//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
     106
     107G4PhysicsVector* G4MaterialStoppingICRU73::CreatePhysicsVector(
     108                                       G4double* energy,
     109                                       G4double* stoppower,
    84110                                       G4double factor)
    85111{
    86112  G4LPhysicsFreeVector* pv = new G4LPhysicsFreeVector(31,energy[0],energy[30]);
    87113  pv->SetSpline(spline);
    88   dedx.push_back(pv);
    89   for(G4int i=0;i<31;i++) {
     114
     115  for( G4int i = 0; i < 31; i++ ) {
    90116    pv->PutValues(i,energy[i],stoppower[i]*factor);
    91117  }
     118
     119  return pv;
    92120}
    93121
    94122//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
    95123
    96 void G4MaterialStoppingICRU73::Initialise()
     124G4double G4MaterialStoppingICRU73::GetDEDX(G4double, G4int, G4int) {
     125
     126  G4double dedxValue = -1.0;
     127
     128  return dedxValue;
     129}
     130
     131//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
     132
     133G4double G4MaterialStoppingICRU73::GetDEDX(G4double kinEnergyPerNucleon,
     134                                           G4int ionZ,
     135                                           const G4String& matName)
    97136{
    98 G4int i, j=0;
    99 dedx.reserve(16*31);
    100 
    101 //..List of ions
    102 // G4double factor0 = MeV*cm2/milligram;
    103 G4double factor = 1000*MeV/cm;
    104 G4double dens[31]={1.127,.92,1.2048E-03,3.97,1.85,1.85,1.76,3.18,1.8421E-03,2.23,1.42,2.635,2.44,6.6715E-04,1.04,1.14,3.815,1.032,1.2,.94,1.4,1.19,1.06,2.20,1.8794E-03,2.32,3.667,1.0641E-03,1.8263E-03,1.0,7.5618E-04};
    105 G4int Z_Ion[16] = {3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18};
    106 //G4double A_Ion[16] = {6.941,9.0122,10.811,12.011,14.007,15.999,18.998,20.180,22.990,24.305,26.982,28.086,30.974,32.065,35.453,39.948};
    107 G4int AA_Ion[16] = {7,9,11,12,14,16,19,20,23,24,27,28,31,32,35,40};
    108 G4String NameMaterial[31]={"G4_A-150_TISSUE","G4_ADIPOSE_TISSUE_ICRP","G4_AIR","G4_ALUMINUM_OXIDE","G4_BONE_COMPACT_ICRU","G4_BONE_CORTICAL_ICRP","G4_C-552","G4_CALCIUM_FLUORIDE","G4_CARBON_DIOXIDE","G4_Pyrex_Glass","G4_KAPTON","G4_LITHIUM_FLUORIDE","G4_LITHIUM_TETRABORATE","G4_METHANE","G4_MUSCLE_STRIATED_ICRU","G4_NYLON-6/6","G4_PHOTO_EMULSION","G4_PLASTIC_SC_VINYLTOLUENE","G4_POLYCARBONATE","G4_POLYETHYLENE","G4_MYLAR","G4_LUCITE","G4_POLYSTYRENE","G4_TEFLON","G4_PROPANE","G4_SILICON_DIOXIDE","G4_SODIUM_IODIDE","G4_TISSUE-METHANE","G4_TISSUE-PROPANE","G4_WATER","G4_WATER_VAPOR"};
    109 //G4String MaterShortName[31]={"A","AA","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","XX","YY","ZZ","Z3"};
    110 
    111 for(i=0; i<16; i++) {
    112   Z[i] = Z_Ion[i];
    113   A[i] = G4double(AA_Ion[i]);
     137  G4double dedxValue = -1.0;
     138
     139  G4PhysicsVector* physicsVector = GetPhysicsVector(ionZ, matName);
     140 
     141  if(physicsVector != 0) {
     142
     143     size_t nmbBins = physicsVector -> GetVectorLength();
     144     G4double lowerEnergyEdge = physicsVector -> GetLowEdgeEnergy(0);
     145     G4double upperEnergyEdge = physicsVector -> GetLowEdgeEnergy(nmbBins-1);
     146
     147     if(kinEnergyPerNucleon <= upperEnergyEdge) {
     148          G4bool b;
     149 
     150        if(kinEnergyPerNucleon < lowerEnergyEdge) {
     151           dedxValue = physicsVector -> GetValue(lowerEnergyEdge, b) *
     152                         std::sqrt(kinEnergyPerNucleon / lowerEnergyEdge);
     153        }
     154        else {
     155           dedxValue = physicsVector -> GetValue(kinEnergyPerNucleon, b);
     156        }
     157     }
     158  } 
     159
     160  return dedxValue;
    114161}
    115 for(i=0;i<31;i++){
    116 MatName[i]=NameMaterial[i];
    117 Density[i]=dens[i]*gram/cm3;
     162
     163//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
     164
     165G4PhysicsVector* G4MaterialStoppingICRU73::GetPhysicsVector(
     166                                           G4int ionZ,
     167                                           const G4String& matName)
     168{
     169  G4PhysicsVector* physicsVector = 0;
     170
     171  DEDXKey key = std::make_pair(ionZ, matName);
     172
     173  // Checking if dE/dx vector was already created
     174  size_t nmbKeys = dedxKeys.size();
     175  for( size_t i = 0; i < nmbKeys; i++ ) {
     176
     177    if( dedxKeys[i] == key ) { physicsVector = dedx[i]; break; }
     178  }
     179  if(physicsVector != 0) { return physicsVector; }
     180
     181  // Creating dE/dx vector if ion-material pair covered
     182  G4double factor = MeV * cm2 / (0.001 * g);
     183
     184  G4double E[31] = {.025,.03,.04,.05,.06,.07,.08,.09,.1,.15,.2,.25,.3,.4,.5,.6,.7,.8,.9,1,1.5,2,2.5,3,4,5,6,7,8,9,10};
     185
     186  for( G4int i = 0; i < 31; i++ ) E[i] *= MeV;
     187
     188  if( matName == namesMat[0] ) {
     189     if( ionZ == 3 ) {
     190        G4double A_3[31]={2.748,2.992,3.386,3.674,3.877,4.016,4.108,4.166,4.2,4.186,4.059,3.906,3.751,3.458,3.2,2.974,2.777,2.603,2.449,2.313,1.807,1.485,1.263,1.1,0.8801,0.7372,0.6368,0.5623,0.5046,0.4586,0.4209};
     191        physicsVector = CreatePhysicsVector(E,A_3,factor);
     192     }
     193     else if( ionZ == 4 ) {
     194        G4double A_4[31]={3.391,3.718,4.275,4.722,5.07,5.333,5.527,5.668,5.769,5.944,5.889,5.762,5.61,5.291,4.986,4.706,4.45,4.219,4.008,3.817,3.075,2.571,2.21,1.938,1.56,1.31,1.132,1,0.8972,0.8151,0.748};
     195        physicsVector = CreatePhysicsVector(E,A_4,factor);
     196     }
     197     else if( ionZ == 5 ) {
     198        G4double A_5[31]={3.899,4.3,5.003,5.593,6.081,6.474,6.784,7.025,7.21,7.643,7.704,7.633,7.509,7.202,6.881,6.57,6.277,6.004,5.75,5.515,4.562,3.881,3.373,2.982,2.423,2.043,1.769,1.564,1.403,1.275,1.169};
     199        physicsVector = CreatePhysicsVector(E,A_5,factor);
     200     }
     201     else if( ionZ == 6 ) {
     202        G4double A_6[31]={4.3,4.767,5.598,6.316,6.933,7.453,7.883,8.233,8.514,9.262,9.476,9.487,9.409,9.143,8.827,8.504,8.189,7.888,7.603,7.333,6.205,5.361,4.712,4.2,3.448,2.925,2.542,2.251,2.022,1.837,1.686};
     203        physicsVector = CreatePhysicsVector(E,A_6,factor);
     204     }
     205     else if( ionZ == 7 ) {
     206        G4double A_7[31]={4.67,5.188,6.12,6.941,7.664,8.295,8.836,9.293,9.673,10.77,11.17,11.29,11.28,11.08,10.79,10.48,10.15,9.843,9.537,9.243,7.973,6.983,6.2,5.569,4.621,3.946,3.444,3.057,2.751,2.502,2.297};
     207        physicsVector = CreatePhysicsVector(E,A_7,factor);
     208     }
     209     else if( ionZ == 8 ) {
     210        G4double A_8[31]={4.999,5.564,6.589,7.5,8.319,9.049,9.693,10.25,10.73,12.2,12.82,13.07,13.14,13.04,12.79,12.5,12.18,11.86,11.54,11.23,9.852,8.734,7.828,7.082,5.938,5.105,4.475,3.984,3.591,3.271,3.005};
     211        physicsVector = CreatePhysicsVector(E,A_8,factor);
     212     }
     213     else if( ionZ == 9 ) {
     214        G4double A_9[31]={5.251,5.856,6.959,7.948,8.846,9.66,10.39,11.04,11.61,13.46,14.31,14.69,14.85,14.85,14.65,14.38,14.07,13.75,13.43,13.11,11.65,10.44,9.434,8.594,7.282,6.309,5.562,4.973,4.497,4.106,3.779};
     215        physicsVector = CreatePhysicsVector(E,A_9,factor);
     216     }
     217     else if( ionZ == 10 ) {
     218        G4double A_10[31]={5.481,6.119,7.29,8.347,9.312,10.19,11,11.74,12.39,14.62,15.71,16.25,16.5,16.61,16.48,16.24,15.95,15.64,15.32,15,13.47,12.17,11.08,10.15,8.689,7.581,6.721,6.034,5.475,5.012,4.623};
     219        physicsVector = CreatePhysicsVector(E,A_10,factor);
     220     }
     221     else if( ionZ == 11 ) {
     222        G4double A_11[31]={5.684,6.355,7.597,8.728,9.768,10.73,11.62,12.44,13.19,15.86,17.28,18.04,18.46,18.78,18.78,18.63,18.41,18.13,17.84,17.54,16.01,14.62,13.42,12.38,10.69,9.381,8.343,7.504,6.815,6.239,5.753};
     223        physicsVector = CreatePhysicsVector(E,A_11,factor);
     224     }
     225     else if( ionZ == 12 ) {
     226        G4double A_12[31]={5.906,6.584,7.845,9.005,10.07,11.07,12,12.87,13.66,16.63,18.27,19.18,19.69,20.11,20.15,20.01,19.79,19.51,19.21,18.9,17.31,15.88,14.63,13.55,11.78,10.41,9.323,8.435,7.7,7.083,6.558};
     227        physicsVector = CreatePhysicsVector(E,A_12,factor);
     228     }
     229     else if( ionZ == 13 ) {
     230        G4double A_13[31]={6.121,6.817,8.116,9.314,10.42,11.46,12.44,13.35,14.2,17.49,19.41,20.51,21.16,21.76,21.9,21.84,21.65,21.41,21.12,20.82,19.23,17.75,16.44,15.29,13.4,11.91,10.71,9.726,8.906,8.212,7.619};
     231        physicsVector = CreatePhysicsVector(E,A_13,factor);
     232     }
     233     else if( ionZ == 14 ) {
     234        G4double A_14[31]={6.335,7.047,8.378,9.61,10.75,11.83,12.84,13.8,14.69,18.27,20.45,21.74,22.53,23.31,23.57,23.57,23.44,23.23,22.96,22.67,21.09,19.58,18.22,17.01,15,13.4,12.1,11.03,10.13,9.368,8.711};
     235        physicsVector = CreatePhysicsVector(E,A_14,factor);
     236     }
     237     else if( ionZ == 15 ) {
     238        G4double A_15[31]={6.589,7.318,8.682,9.948,11.13,12.24,13.28,14.27,15.21,19.05,21.5,23,23.94,24.93,25.31,25.41,25.34,25.17,24.94,24.68,23.14,21.6,20.19,18.93,16.8,15.08,13.67,12.5,11.5,10.66,9.93};
     239        physicsVector = CreatePhysicsVector(E,A_15,factor);
     240     }
     241     else if( ionZ == 16 ) {
     242        G4double A_16[31]={6.793,7.544,8.947,10.25,11.47,12.61,13.69,14.72,15.7,19.79,22.5,24.22,25.31,26.52,27.05,27.24,27.24,27.12,26.93,26.69,25.22,23.67,22.23,20.92,18.67,16.84,15.32,14.04,12.96,12.03,11.22};
     243        physicsVector = CreatePhysicsVector(E,A_16,factor);
     244     }
     245     else if( ionZ == 17 ) {
     246        G4double A_17[31]={7.055,7.821,9.248,10.57,11.82,12.99,14.1,15.15,16.16,20.46,23.42,25.34,26.59,28.01,28.67,28.95,29.02,28.95,28.8,28.59,27.18,25.63,24.15,22.8,20.46,18.53,16.92,15.55,14.39,13.38,12.51};
     247        physicsVector = CreatePhysicsVector(E,A_17,factor);
     248     }
     249     else if( ionZ == 18 ) {
     250        G4double A_18[31]={7.196,7.978,9.43,10.77,12.04,13.24,14.37,15.44,16.47,20.95,24.14,26.26,27.67,29.29,30.09,30.46,30.59,30.57,30.45,30.27,28.91,27.36,25.87,24.48,22.07,20.06,18.38,16.94,15.72,14.65,13.72};
     251        physicsVector = CreatePhysicsVector(E,A_18,factor);
     252     }
     253  }
     254
     255  else if( matName == namesMat[1] ) {
     256     if( ionZ == 3 ) {
     257        G4double AA_3[31]={2.852,3.097,3.49,3.778,3.983,4.125,4.221,4.283,4.321,4.313,4.182,4.022,3.859,3.553,3.284,3.05,2.845,2.665,2.507,2.366,1.846,1.516,1.289,1.123,0.898,0.7521,0.6496,0.5735,0.5147,0.4677,0.4292};
     258        physicsVector = CreatePhysicsVector(E,AA_3,factor);
     259     }
     260     else if( ionZ == 4 ) {
     261        G4double AA_4[31]={3.53,3.861,4.421,4.867,5.214,5.479,5.677,5.823,5.929,6.119,6.064,5.93,5.769,5.434,5.115,4.822,4.557,4.317,4.1,3.902,3.139,2.623,2.254,1.977,1.591,1.336,1.155,1.019,0.915,0.8313,0.7627};
     262        physicsVector = CreatePhysicsVector(E,AA_4,factor);
     263     }
     264     else if( ionZ == 5 ) {
     265        G4double AA_5[31]={4.062,4.473,5.185,5.776,6.262,6.655,6.968,7.213,7.405,7.862,7.928,7.854,7.721,7.396,7.057,6.731,6.426,6.142,5.879,5.635,4.655,3.957,3.438,3.04,2.469,2.082,1.804,1.594,1.431,1.3,1.192};
     266        physicsVector = CreatePhysicsVector(E,AA_5,factor);
     267     }
     268     else if( ionZ == 6 ) {
     269        G4double AA_6[31]={4.476,4.958,5.807,6.532,7.149,7.668,8.099,8.452,8.739,9.519,9.746,9.757,9.672,9.386,9.051,8.71,8.381,8.067,7.77,7.491,6.329,5.464,4.801,4.279,3.512,2.98,2.59,2.294,2.061,1.873,1.718};
     270        physicsVector = CreatePhysicsVector(E,AA_6,factor);
     271     }
     272     else if( ionZ == 7 ) {
     273        G4double AA_7[31]={4.857,5.394,6.352,7.185,7.913,8.544,9.085,9.543,9.927,11.06,11.48,11.61,11.59,11.38,11.07,10.73,10.39,10.06,9.744,9.439,8.128,7.114,6.314,5.672,4.706,4.019,3.508,3.115,2.803,2.55,2.341};
     274        physicsVector = CreatePhysicsVector(E,AA_7,factor);
     275     }
     276     else if( ionZ == 8 ) {
     277        G4double AA_8[31]={5.192,5.778,6.836,7.768,8.596,9.33,9.974,10.53,11.01,12.52,13.17,13.43,13.5,13.38,13.11,12.79,12.46,12.12,11.79,11.47,10.04,8.895,7.969,7.209,6.044,5.197,4.557,4.057,3.658,3.332,3.062};
     278        physicsVector = CreatePhysicsVector(E,AA_8,factor);
     279     }
     280     else if( ionZ == 9 ) {
     281        G4double AA_9[31]={5.447,6.073,7.214,8.232,9.145,9.967,10.7,11.35,11.92,13.81,14.69,15.09,15.25,15.24,15.02,14.73,14.4,14.06,13.73,13.39,11.88,10.63,9.606,8.75,7.413,6.423,5.664,5.064,4.581,4.183,3.85};
     282        physicsVector = CreatePhysicsVector(E,AA_9,factor);
     283     }
     284     else if( ionZ == 10 ) {
     285        G4double AA_10[31]={5.677,6.338,7.55,8.641,9.63,10.52,11.34,12.07,12.73,14.99,16.12,16.68,16.95,17.05,16.9,16.64,16.33,16,15.66,15.32,13.74,12.4,11.28,10.34,8.848,7.721,6.845,6.146,5.578,5.107,4.711};
     286        physicsVector = CreatePhysicsVector(E,AA_10,factor);
     287     }
     288     else if( ionZ == 11 ) {
     289        G4double AA_11[31]={5.885,6.579,7.866,9.036,10.1,11.08,11.99,12.81,13.56,16.27,17.73,18.53,18.96,19.28,19.27,19.1,18.85,18.55,18.24,17.92,16.33,14.9,13.67,12.6,10.87,9.542,8.487,7.634,6.934,6.349,5.854};
     290        physicsVector = CreatePhysicsVector(E,AA_11,factor);
     291     }
     292     else if( ionZ == 12 ) {
     293        G4double AA_12[31]={6.112,6.813,8.118,9.318,10.42,11.44,12.39,13.26,14.06,17.05,18.74,19.68,20.21,20.64,20.67,20.51,20.27,19.97,19.65,19.31,17.66,16.18,14.9,13.8,12,10.6,9.493,8.59,7.842,7.215,6.681};
     294        physicsVector = CreatePhysicsVector(E,AA_12,factor);
     295     }
     296     else if( ionZ == 13 ) {
     297        G4double AA_13[31]={6.332,7.05,8.393,9.633,10.78,11.85,12.84,13.77,14.63,17.94,19.9,21.05,21.72,22.33,22.47,22.38,22.18,21.91,21.61,21.29,19.63,18.1,16.75,15.58,13.64,12.12,10.9,9.904,9.069,8.364,7.761};
     298        physicsVector = CreatePhysicsVector(E,AA_13,factor);
     299     }
     300     else if( ionZ == 14 ) {
     301        G4double AA_14[31]={6.551,7.286,8.66,9.935,11.12,12.23,13.26,14.23,15.14,18.74,20.97,22.31,23.13,23.93,24.18,24.17,24.02,23.78,23.5,23.19,21.53,19.96,18.57,17.33,15.28,13.65,12.33,11.23,10.32,9.542,8.873};
     302        physicsVector = CreatePhysicsVector(E,AA_14,factor);
     303     }
     304     else if( ionZ == 15 ) {
     305        G4double AA_15[31]={6.812,7.564,8.97,10.27,11.5,12.64,13.72,14.73,15.68,19.54,22.04,23.59,24.57,25.59,25.97,26.05,25.96,25.77,25.52,25.23,23.62,22.02,20.58,19.29,17.11,15.35,13.92,12.72,11.71,10.85,10.11};
     306        physicsVector = CreatePhysicsVector(E,AA_15,factor);
     307     }
     308     else if( ionZ == 16 ) {
     309        G4double AA_16[31]={7.022,7.795,9.24,10.58,11.84,13.02,14.14,15.19,16.19,20.31,23.06,24.83,25.98,27.22,27.75,27.92,27.9,27.77,27.55,27.3,25.73,24.13,22.64,21.3,19.01,17.14,15.59,14.29,13.19,12.25,11.43};
     310        physicsVector = CreatePhysicsVector(E,AA_16,factor);
     311     }
     312     else if( ionZ == 17 ) {
     313        G4double AA_17[31]={7.291,8.078,9.546,10.91,12.2,13.41,14.55,15.64,16.67,21,24,25.98,27.28,28.74,29.41,29.68,29.73,29.64,29.47,29.24,27.74,26.13,24.61,23.22,20.83,18.86,17.22,15.83,14.65,13.62,12.73};
     314        physicsVector = CreatePhysicsVector(E,AA_17,factor);
     315     }
     316     else if( ionZ == 18 ) {
     317        G4double AA_18[31]={7.435,8.239,9.732,11.11,12.42,13.66,14.83,15.94,16.99,21.52,24.74,26.92,28.38,30.07,30.87,31.24,31.35,31.31,31.17,30.97,29.52,27.91,26.37,24.95,22.48,20.43,18.71,17.25,16,14.92,13.97};
     318        physicsVector = CreatePhysicsVector(E,AA_18,factor);
     319     }
     320  }
     321
     322  else if( matName == namesMat[2] ) {
     323     if( ionZ == 3 ) {
     324        G4double B_3[31]={2.062,2.238,2.532,2.764,2.943,3.077,3.176,3.247,3.296,3.354,3.282,3.176,3.061,2.839,2.639,2.461,2.305,2.167,2.044,1.933,1.523,1.257,1.072,0.9372,0.752,0.6313,0.5463,0.4831,0.4341,0.3949,0.3627};
     325        physicsVector = CreatePhysicsVector(E,B_3,factor);
     326     }
     327     else if( ionZ == 4 ) {
     328        G4double B_4[31]={2.56,2.797,3.205,3.546,3.829,4.06,4.245,4.39,4.502,4.751,4.76,4.686,4.581,4.346,4.113,3.896,3.696,3.513,3.346,3.193,2.592,2.179,1.879,1.653,1.335,1.123,0.9729,0.8601,0.7724,0.7024,0.645};
     329        physicsVector = CreatePhysicsVector(E,B_4,factor);
     330     }
     331     else if( ionZ == 5 ) {
     332        G4double B_5[31]={2.959,3.253,3.766,4.204,4.582,4.905,5.178,5.404,5.588,6.086,6.216,6.203,6.13,5.915,5.676,5.439,5.212,4.998,4.799,4.612,3.848,3.292,2.872,2.547,2.076,1.755,1.522,1.347,1.21,1.1,1.009};
     333        physicsVector = CreatePhysicsVector(E,B_5,factor);
     334     }
     335     else if( ionZ == 6 ) {
     336        G4double B_6[31]={3.28,3.628,4.24,4.769,5.234,5.642,5.998,6.305,6.566,7.35,7.635,7.707,7.683,7.514,7.286,7.045,6.805,6.572,6.35,6.138,5.239,4.553,4.019,3.593,2.962,2.518,2.192,1.943,1.746,1.588,1.458};
     337        physicsVector = CreatePhysicsVector(E,B_6,factor);
     338     }
     339     else if( ionZ == 7 ) {
     340        G4double B_7[31]={3.554,3.946,4.645,5.254,5.796,6.28,6.712,7.094,7.428,8.517,8.989,9.172,9.216,9.119,8.923,8.692,8.451,8.21,7.974,7.746,6.741,5.941,5.298,4.775,3.979,3.407,2.978,2.646,2.382,2.168,1.99};
     341        physicsVector = CreatePhysicsVector(E,B_7,factor);
     342     }
     343     else if( ionZ == 8 ) {
     344        G4double B_8[31]={3.796,4.228,5.005,5.69,6.302,6.856,7.357,7.808,8.212,9.609,10.28,10.59,10.72,10.72,10.57,10.36,10.13,9.893,9.653,9.415,8.332,7.434,6.695,6.079,5.121,4.415,3.877,3.456,3.117,2.84,2.61};
     345        physicsVector = CreatePhysicsVector(E,B_8,factor);
     346     }
     347     else if( ionZ == 9 ) {
     348        G4double B_9[31]={4.002,4.467,5.312,6.064,6.739,7.354,7.915,8.427,8.892,10.58,11.47,11.91,12.13,12.23,12.13,11.95,11.73,11.5,11.25,11.01,9.875,8.901,8.082,7.389,6.291,5.466,4.828,4.321,3.91,3.572,3.288};
     349        physicsVector = CreatePhysicsVector(E,B_9,factor);
     350     }
     351     else if( ionZ == 10 ) {
     352        G4double B_10[31]={4.19,4.683,5.587,6.399,7.133,7.803,8.418,8.986,9.507,11.47,12.58,13.18,13.49,13.71,13.67,13.52,13.32,13.1,12.86,12.61,11.43,10.39,9.506,8.744,7.517,6.578,5.842,5.252,4.768,4.367,4.029};
     353        physicsVector = CreatePhysicsVector(E,B_10,factor);
     354     }
     355     else if( ionZ == 11 ) {
     356        G4double B_11[31]={4.337,4.854,5.813,6.684,7.477,8.206,8.878,9.502,10.08,12.34,13.71,14.5,14.94,15.33,15.4,15.33,15.18,14.98,14.77,14.54,13.38,12.3,11.34,10.51,9.131,8.049,7.183,6.477,5.894,5.404,4.988};
     357        physicsVector = CreatePhysicsVector(E,B_11,factor);
     358     }
     359     else if( ionZ == 12 ) {
     360        G4double B_12[31]={4.499,5.029,6.02,6.929,7.763,8.531,9.243,9.905,10.52,13,14.57,15.51,16.07,16.58,16.7,16.66,16.52,16.33,16.11,15.87,14.66,13.53,12.52,11.64,10.18,9.031,8.103,7.343,6.711,6.178,5.723};
     361        physicsVector = CreatePhysicsVector(E,B_12,factor);
     362     }
     363     else if( ionZ == 13 ) {
     364        G4double B_13[31]={4.647,5.193,6.215,7.16,8.035,8.846,9.599,10.3,10.96,13.65,15.45,16.57,17.25,17.93,18.16,18.17,18.08,17.91,17.71,17.49,16.28,15.12,14.07,13.14,11.57,10.32,9.31,8.47,7.765,7.166,6.653};
     365        physicsVector = CreatePhysicsVector(E,B_13,factor);
     366     }
     367     else if( ionZ == 14 ) {
     368        G4double B_14[31]={4.794,5.352,6.401,7.378,8.289,9.137,9.928,10.66,11.36,14.25,16.25,17.55,18.37,19.22,19.55,19.64,19.58,19.45,19.27,19.06,17.87,16.68,15.6,14.62,12.96,11.62,10.52,9.613,8.84,8.18,7.611};
     369        physicsVector = CreatePhysicsVector(E,B_14,factor);
     370     }
     371     else if( ionZ == 15 ) {
     372        G4double B_15[31]={4.946,5.515,6.588,7.595,8.539,9.422,10.24,11.02,11.75,14.83,17.04,18.51,19.48,20.53,20.99,21.16,21.17,21.08,20.93,20.75,19.6,18.41,17.29,16.28,14.53,13.09,11.9,10.9,10.05,9.324,8.69};
     373        physicsVector = CreatePhysicsVector(E,B_15,factor);
     374     }
     375     else if( ionZ == 16 ) {
     376        G4double B_16[31]={5.082,5.665,6.766,7.802,8.779,9.697,10.55,11.36,12.13,15.38,17.79,19.45,20.56,21.82,22.41,22.67,22.74,22.7,22.59,22.43,21.36,20.17,19.03,17.98,16.15,14.62,13.34,12.26,11.33,10.53,9.839};
     377        physicsVector = CreatePhysicsVector(E,B_16,factor);
     378     }
     379     else if( ionZ == 17 ) {
     380        G4double B_17[31]={5.242,5.836,6.957,8.015,9.017,9.963,10.85,11.69,12.48,15.89,18.48,20.31,21.57,23.04,23.77,24.11,24.25,24.25,24.18,24.05,23.04,21.86,20.7,19.62,17.71,16.11,14.75,13.6,12.6,11.73,10.98};
     381        physicsVector = CreatePhysicsVector(E,B_17,factor);
     382     }
     383     else if( ionZ == 18 ) {
     384        G4double B_18[31]={5.351,5.954,7.092,8.167,9.189,10.15,11.07,11.93,12.75,16.29,19.03,21.03,22.44,24.11,24.96,25.39,25.59,25.64,25.59,25.49,24.53,23.35,22.18,21.08,19.11,17.45,16.03,14.81,13.76,12.85,12.04};
     385        physicsVector = CreatePhysicsVector(E,B_18,factor);
     386     }
     387  }
     388
     389  else if( matName == namesMat[3] ) {
     390     if( ionZ == 3 ) {
     391        G4double C_3[31]={1.355,1.466,1.653,1.806,1.931,2.032,2.115,2.181,2.234,2.369,2.391,2.366,2.32,2.204,2.082,1.966,1.859,1.76,1.671,1.59,1.276,1.066,0.9168,0.8057,0.6519,0.5505,0.4785,0.4246,0.3826,0.3489,0.3212};
     392        physicsVector = CreatePhysicsVector(E,C_3,factor);
     393     }
     394     else if( ionZ == 4 ) {
     395        G4double C_4[31]={1.73,1.882,2.144,2.364,2.553,2.714,2.851,2.967,3.065,3.355,3.462,3.485,3.466,3.368,3.24,3.105,2.973,2.847,2.728,2.617,2.166,1.843,1.603,1.419,1.156,0.979,0.8516,0.7556,0.6807,0.6205,0.5712};
     396        physicsVector = CreatePhysicsVector(E,C_4,factor);
     397     }
     398     else if( ionZ == 5 ) {
     399        G4double C_5[31]={2.04,2.23,2.562,2.845,3.093,3.311,3.503,3.671,3.816,4.292,4.511,4.603,4.627,4.576,4.464,4.328,4.185,4.043,3.905,3.773,3.207,2.777,2.444,2.182,1.796,1.528,1.332,1.183,1.066,0.9714,0.8937};
     400        physicsVector = CreatePhysicsVector(E,C_5,factor);
     401     }
     402     else if( ionZ == 6 ) {
     403        G4double C_6[31]={2.295,2.523,2.922,3.267,3.572,3.844,4.087,4.306,4.5,5.177,5.527,5.704,5.786,5.803,5.722,5.599,5.458,5.31,5.161,5.015,4.36,3.835,3.415,3.074,2.559,2.191,1.917,1.706,1.538,1.403,1.29};
     404        physicsVector = CreatePhysicsVector(E,C_6,factor);
     405     }
     406     else if( ionZ == 7 ) {
     407        G4double C_7[31]={2.515,2.773,3.232,3.633,3.99,4.312,4.604,4.869,5.109,5.992,6.491,6.769,6.923,7.029,6.998,6.901,6.771,6.626,6.475,6.322,5.603,4.998,4.497,4.081,3.436,2.963,2.603,2.323,2.098,1.915,1.762};
     408        physicsVector = CreatePhysicsVector(E,C_7,factor);
     409     }
     410     else if( ionZ == 8 ) {
     411        G4double C_8[31]={2.707,2.993,3.506,3.959,4.366,4.735,5.073,5.383,5.667,6.753,7.409,7.8,8.035,8.247,8.278,8.218,8.11,7.976,7.829,7.675,6.915,6.244,5.673,5.188,4.416,3.836,3.388,3.033,2.745,2.509,2.311};
     412        physicsVector = CreatePhysicsVector(E,C_8,factor);
     413     }
     414     else if( ionZ == 9 ) {
     415        G4double C_9[31]={2.876,3.185,3.746,4.245,4.696,5.108,5.487,5.838,6.162,7.438,8.249,8.755,9.075,9.399,9.497,9.478,9.395,9.276,9.136,8.985,8.201,7.48,6.852,6.309,5.429,4.753,4.222,3.795,3.447,3.157,2.914};
     416        physicsVector = CreatePhysicsVector(E,C_9,factor);
     417     }
     418     else if( ionZ == 10 ) {
     419        G4double C_10[31]={3.029,3.359,3.961,4.502,4.994,5.446,5.863,6.251,6.613,8.069,9.037,9.665,10.07,10.52,10.69,10.72,10.67,10.57,10.44,10.3,9.503,8.742,8.065,7.471,6.491,5.724,5.113,4.617,4.207,3.864,3.574};
     420        physicsVector = CreatePhysicsVector(E,C_10,factor);
     421     }
     422     else if( ionZ == 11 ) {
     423        G4double C_11[31]={3.151,3.498,4.137,4.716,5.247,5.736,6.191,6.615,7.012,8.647,9.778,10.54,11.05,11.63,11.89,11.98,11.97,11.9,11.78,11.65,10.86,10.07,9.354,8.713,7.637,6.781,6.089,5.52,5.046,4.647,4.306};
     424        physicsVector = CreatePhysicsVector(E,C_11,factor);
     425     }
     426     else if( ionZ == 12 ) {
     427        G4double C_12[31]={3.282,3.642,4.308,4.919,5.482,6.005,6.491,6.947,7.375,9.168,10.45,11.34,11.95,12.68,13.04,13.19,13.22,13.17,13.08,12.96,12.18,11.37,10.62,9.939,8.782,7.848,7.083,6.449,5.916,5.463,5.073};
     428        physicsVector = CreatePhysicsVector(E,C_12,factor);
     429     }
     430     else if( ionZ == 13 ) {
     431        G4double C_13[31]={3.4,3.772,4.463,5.1,5.691,6.244,6.762,7.248,7.705,9.646,11.08,12.1,12.81,13.7,14.16,14.38,14.46,14.45,14.38,14.28,13.53,12.71,11.93,11.21,9.982,8.972,8.136,7.436,6.844,6.336,5.898};
     432        physicsVector = CreatePhysicsVector(E,C_13,factor);
     433     }
     434     else if( ionZ == 14 ) {
     435        G4double C_14[31]={3.513,3.896,4.608,5.268,5.884,6.463,7.008,7.521,8.006,10.08,11.65,12.8,13.62,14.66,15.23,15.53,15.66,15.69,15.65,15.57,14.85,14.02,13.22,12.48,11.18,10.1,9.201,8.441,7.792,7.234,6.748};
     436        physicsVector = CreatePhysicsVector(E,C_14,factor);
     437     }
     438     else if( ionZ == 15 ) {
     439        G4double C_15[31]={3.621,4.013,4.743,5.423,6.063,6.666,7.237,7.776,8.287,10.49,12.2,13.48,14.41,15.63,16.32,16.71,16.91,16.99,16.98,16.93,16.29,15.47,14.65,13.88,12.52,11.37,10.4,9.571,8.86,8.243,7.705};
     440        physicsVector = CreatePhysicsVector(E,C_15,factor);
     441     }
     442     else if( ionZ == 16 ) {
     443        G4double C_16[31]={3.72,4.122,4.874,5.575,6.238,6.865,7.46,8.024,8.561,10.89,12.73,14.14,15.19,16.58,17.39,17.87,18.15,18.28,18.32,18.29,17.73,16.93,16.11,15.32,13.9,12.69,11.65,10.76,9.984,9.311,8.719};
     444        physicsVector = CreatePhysicsVector(E,C_16,factor);
     445     }
     446     else if( ionZ == 17 ) {
     447        G4double C_17[31]={3.832,4.242,5.008,5.726,6.406,7.054,7.669,8.255,8.814,11.26,13.22,14.75,15.91,17.47,18.41,18.99,19.33,19.52,19.6,19.61,19.13,18.35,17.52,16.72,15.25,13.98,12.88,11.93,11.1,10.38,9.736};
     448        physicsVector = CreatePhysicsVector(E,C_17,factor);
     449     }
     450     else if( ionZ == 18 ) {
     451        G4double C_18[31]={3.921,4.338,5.118,5.849,6.544,7.208,7.842,8.448,9.026,11.58,13.65,15.29,16.55,18.29,19.35,20.02,20.43,20.67,20.8,20.84,20.43,19.67,18.84,18.02,16.51,15.18,14.03,13.04,12.16,11.39,10.71};
     452        physicsVector = CreatePhysicsVector(E,C_18,factor);
     453     }
     454  }
     455
     456  else if( matName == namesMat[4] ) {
     457     if( ionZ == 3 ) {
     458        G4double D_3[31]={2.204,2.403,2.723,2.962,3.137,3.265,3.355,3.418,3.459,3.491,3.406,3.291,3.171,2.939,2.731,2.548,2.387,2.244,2.117,2.004,1.581,1.307,1.117,0.9771,0.7854,0.6601,0.5718,0.5059,0.4547,0.4138,0.3803};
     459        physicsVector = CreatePhysicsVector(E,D_3,factor);
     460     }
     461     else if( ionZ == 4 ) {
     462        G4double D_4[31]={2.712,2.981,3.438,3.805,4.096,4.324,4.5,4.636,4.738,4.953,4.942,4.856,4.742,4.494,4.252,4.026,3.82,3.631,3.459,3.301,2.684,2.259,1.951,1.719,1.391,1.172,1.016,0.8994,0.8084,0.7355,0.6757};
     463        physicsVector = CreatePhysicsVector(E,D_4,factor);
     464     }
     465     else if( ionZ == 5 ) {
     466        G4double D_5[31]={3.108,3.438,4.018,4.502,4.904,5.236,5.506,5.725,5.9,6.355,6.459,6.43,6.345,6.115,5.863,5.616,5.381,5.16,4.954,4.762,3.975,3.404,2.974,2.64,2.158,1.827,1.588,1.406,1.264,1.15,1.057};
     467        physicsVector = CreatePhysicsVector(E,D_5,factor);
     468     }
     469     else if( ionZ == 6 ) {
     470        G4double D_6[31]={3.419,3.802,4.489,5.081,5.589,6.02,6.385,6.691,6.946,7.683,7.935,7.988,7.949,7.761,7.52,7.267,7.017,6.776,6.546,6.328,5.402,4.698,4.151,3.715,3.069,2.615,2.28,2.024,1.822,1.658,1.524};
     471        physicsVector = CreatePhysicsVector(E,D_6,factor);
     472     }
     473     else if( ionZ == 7 ) {
     474        G4double D_7[31]={3.699,4.122,4.892,5.573,6.171,6.693,7.146,7.536,7.87,8.913,9.345,9.503,9.529,9.41,9.198,8.955,8.703,8.452,8.208,7.972,6.937,6.116,5.46,4.925,4.113,3.528,3.09,2.75,2.479,2.259,2.077};
     475        physicsVector = CreatePhysicsVector(E,D_7,factor);
     476     }
     477     else if( ionZ == 8 ) {
     478        G4double D_8[31]={3.948,4.407,5.25,6.009,6.688,7.293,7.829,8.3,8.711,10.07,10.7,10.99,11.09,11.06,10.9,10.67,10.43,10.18,9.928,9.682,8.563,7.642,6.886,6.257,5.281,4.562,4.014,3.583,3.237,2.954,2.718};
     479        physicsVector = CreatePhysicsVector(E,D_8,factor);
     480     }
     481     else if( ionZ == 9 ) {
     482        G4double D_9[31]={4.148,4.637,5.539,6.363,7.111,7.788,8.396,8.94,9.423,11.09,11.94,12.35,12.54,12.61,12.5,12.3,12.07,11.82,11.57,11.32,10.15,9.147,8.308,7.602,6.483,5.644,4.994,4.477,4.058,3.711,3.421};
     483        physicsVector = CreatePhysicsVector(E,D_9,factor);
     484     }
     485     else if( ionZ == 10 ) {
     486        G4double D_10[31]={4.332,4.847,5.801,6.677,7.485,8.224,8.897,9.508,10.06,12.03,13.09,13.65,13.94,14.13,14.07,13.91,13.7,13.46,13.22,12.96,11.75,10.68,9.773,8.995,7.745,6.79,6.041,5.439,4.946,4.535,4.189};
     487        physicsVector = CreatePhysicsVector(E,D_10,factor);
     488     }
     489     else if( ionZ == 11 ) {
     490        G4double D_11[31]={4.494,5.033,6.04,6.97,7.838,8.642,9.383,10.06,10.69,13,14.34,15.1,15.53,15.9,15.95,15.87,15.71,15.5,15.28,15.04,13.83,12.71,11.72,10.86,9.432,8.319,7.429,6.705,6.106,5.604,5.177};
     491        physicsVector = CreatePhysicsVector(E,D_11,factor);
     492     }
     493     else if( ionZ == 12 ) {
     494        G4double D_12[31]={4.672,5.218,6.244,7.198,8.094,8.932,9.712,10.43,11.1,13.66,15.2,16.1,16.62,17.1,17.21,17.15,17,16.8,16.58,16.34,15.09,13.92,12.89,11.99,10.5,9.319,8.373,7.597,6.952,6.407,5.942};
     495        physicsVector = CreatePhysicsVector(E,D_12,factor);
     496     }
     497     else if( ionZ == 13 ) {
     498        G4double D_13[31]={4.842,5.403,6.458,7.44,8.367,9.243,10.06,10.83,11.55,14.36,16.13,17.2,17.86,18.51,18.72,18.72,18.62,18.44,18.24,18.01,16.76,15.57,14.49,13.53,11.93,10.66,9.617,8.759,8.039,7.428,6.903};
     499        physicsVector = CreatePhysicsVector(E,D_13,factor);
     500     }
     501     else if( ionZ == 14 ) {
     502        G4double D_14[31]={5.012,5.585,6.664,7.673,8.626,9.531,10.39,11.19,11.95,14.99,16.98,18.23,19.02,19.84,20.16,20.23,20.17,20.03,19.84,19.63,18.4,17.18,16.06,15.06,13.37,12,10.88,9.941,9.152,8.477,7.895};
     503        physicsVector = CreatePhysicsVector(E,D_14,factor);
     504     }
     505     else if( ionZ == 15 ) {
     506        G4double D_15[31]={5.2,5.786,6.889,7.923,8.9,9.832,10.72,11.56,12.35,15.61,17.82,19.26,20.19,21.2,21.64,21.8,21.79,21.7,21.54,21.35,20.17,18.94,17.8,16.75,14.96,13.5,12.28,11.26,10.39,9.648,9.002};
     507        physicsVector = CreatePhysicsVector(E,D_15,factor);
     508     }
     509     else if( ionZ == 16 ) {
     510        G4double D_16[31]={5.36,5.962,7.094,8.155,9.159,10.12,11.03,11.91,12.73,16.2,18.62,20.24,21.32,22.54,23.11,23.36,23.42,23.37,23.25,23.09,21.97,20.74,19.57,18.49,16.61,15.06,13.75,12.65,11.7,10.89,10.18};
     511        physicsVector = CreatePhysicsVector(E,D_16,factor);
     512     }
     513     else if( ionZ == 17 ) {
     514        G4double D_17[31]={5.554,6.169,7.319,8.4,9.423,10.4,11.34,12.24,13.09,16.74,19.36,21.16,22.38,23.8,24.5,24.83,24.96,24.96,24.88,24.74,23.69,22.47,21.28,20.17,18.22,16.58,15.19,14.02,13,12.12,11.35};
     515        physicsVector = CreatePhysicsVector(E,D_17,factor);
     516     }
     517     else if( ionZ == 18 ) {
     518        G4double D_18[31]={5.672,6.299,7.469,8.566,9.605,10.6,11.55,12.47,13.35,17.15,19.95,21.92,23.28,24.91,25.73,26.16,26.34,26.39,26.34,26.22,25.23,24.02,22.82,21.68,19.67,17.97,16.52,15.28,14.21,13.28,12.46};
     519        physicsVector = CreatePhysicsVector(E,D_18,factor);
     520     }
     521  }
     522
     523  else if( matName == namesMat[5] ) {
     524     if( ionZ == 3 ) {
     525        G4double E_3[31]={2.041,2.227,2.528,2.754,2.923,3.048,3.138,3.201,3.244,3.289,3.217,3.113,3.003,2.789,2.596,2.425,2.275,2.141,2.021,1.915,1.515,1.256,1.074,0.9407,0.7572,0.6371,0.5522,0.4889,0.4397,0.4003,0.3679};
     526        physicsVector = CreatePhysicsVector(E,E_3,factor);
     527     }
     528     else if( ionZ == 4 ) {
     529        G4double E_4[31]={2.507,2.76,3.189,3.535,3.811,4.031,4.203,4.337,4.44,4.665,4.667,4.593,4.491,4.264,4.041,3.831,3.639,3.463,3.301,3.153,2.572,2.169,1.876,1.654,1.341,1.132,0.9817,0.8693,0.7817,0.7114,0.6538};
     530        physicsVector = CreatePhysicsVector(E,E_4,factor);
     531     }
     532     else if( ionZ == 5 ) {
     533        G4double E_5[31]={2.869,3.179,3.723,4.178,4.559,4.875,5.135,5.349,5.521,5.982,6.098,6.081,6.009,5.801,5.571,5.343,5.125,4.92,4.727,4.547,3.808,3.268,2.859,2.541,2.08,1.764,1.534,1.359,1.223,1.113,1.023};
     534        physicsVector = CreatePhysicsVector(E,E_5,factor);
     535     }
     536     else if( ionZ == 6 ) {
     537        G4double E_6[31]={3.155,3.512,4.157,4.714,5.192,5.601,5.95,6.245,6.492,7.226,7.489,7.554,7.528,7.364,7.145,6.914,6.683,6.46,6.246,6.042,5.174,4.51,3.991,3.576,2.959,2.524,2.203,1.957,1.762,1.605,1.475};
     538        physicsVector = CreatePhysicsVector(E,E_6,factor);
     539     }
     540     else if( ionZ == 7 ) {
     541        G4double E_7[31]={3.408,3.802,4.524,5.165,5.729,6.222,6.653,7.026,7.348,8.376,8.816,8.984,9.023,8.928,8.74,8.519,8.288,8.057,7.831,7.612,6.644,5.871,5.249,4.741,3.966,3.407,2.986,2.659,2.399,2.186,2.011};
     542        physicsVector = CreatePhysicsVector(E,E_7,factor);
     543     }
     544     else if( ionZ == 8 ) {
     545        G4double E_8[31]={3.634,4.062,4.85,5.564,6.204,6.775,7.283,7.731,8.126,9.455,10.09,10.38,10.5,10.5,10.35,10.15,9.932,9.702,9.471,9.243,8.2,7.334,6.619,6.023,5.092,4.405,3.879,3.465,3.133,2.859,2.632};
     546        physicsVector = CreatePhysicsVector(E,E_8,factor);
     547     }
     548     else if( ionZ == 9 ) {
     549        G4double E_9[31]={3.82,4.275,5.117,5.891,6.596,7.235,7.81,8.326,8.787,10.41,11.25,11.67,11.88,11.97,11.88,11.71,11.5,11.27,11.04,10.81,9.719,8.781,7.99,7.319,6.254,5.451,4.828,4.331,3.928,3.594,3.314};
     550        physicsVector = CreatePhysicsVector(E,E_9,factor);
     551     }
     552     else if( ionZ == 10 ) {
     553        G4double E_10[31]={3.991,4.47,5.359,6.182,6.943,7.64,8.277,8.855,9.378,11.29,12.34,12.91,13.21,13.41,13.38,13.24,13.06,12.84,12.62,12.38,11.26,10.26,9.4,8.663,7.473,6.56,5.842,5.263,4.789,4.393,4.059};
     554        physicsVector = CreatePhysicsVector(E,E_10,factor);
     555     }
     556     else if( ionZ == 11 ) {
     557        G4double E_11[31]={4.141,4.641,5.578,6.448,7.264,8.022,8.721,9.364,9.953,12.18,13.49,14.24,14.68,15.06,15.14,15.07,14.93,14.75,14.55,14.33,13.21,12.17,11.24,10.42,9.075,8.016,7.167,6.475,5.901,5.419,5.009};
     558        physicsVector = CreatePhysicsVector(E,E_11,factor);
     559     }
     560     else if( ionZ == 12 ) {
     561        G4double E_12[31]={4.304,4.812,5.769,6.662,7.505,8.297,9.034,9.718,10.35,12.8,14.31,15.21,15.74,16.24,16.37,16.33,16.2,16.03,15.83,15.61,14.45,13.37,12.4,11.54,10.13,9.002,8.096,7.352,6.731,6.207,5.758};
     562        physicsVector = CreatePhysicsVector(E,E_12,factor);
     563     }
     564     else if( ionZ == 13 ) {
     565        G4double E_13[31]={4.461,4.982,5.965,6.884,7.756,8.583,9.36,10.09,10.76,13.45,15.18,16.25,16.91,17.57,17.8,17.83,17.74,17.59,17.41,17.2,16.06,14.94,13.93,13.03,11.51,10.29,9.299,8.476,7.784,7.196,6.69};
     566        physicsVector = CreatePhysicsVector(E,E_13,factor);
     567     }
     568     else if( ionZ == 14 ) {
     569        G4double E_14[31]={4.617,5.149,6.155,7.098,7.993,8.848,9.658,10.42,11.14,14.04,15.98,17.22,18.01,18.84,19.17,19.26,19.23,19.11,18.94,18.75,17.63,16.49,15.45,14.5,12.89,11.59,10.52,9.621,8.862,8.214,7.653};
     570        physicsVector = CreatePhysicsVector(E,E_14,factor);
     571     }
     572     else if( ionZ == 15 ) {
     573        G4double E_15[31]={4.786,5.33,6.357,7.322,8.239,9.119,9.959,10.75,11.51,14.61,16.76,18.17,19.1,20.13,20.58,20.76,20.77,20.7,20.57,20.4,19.33,18.19,17.11,16.13,14.43,13.04,11.88,10.9,10.07,9.349,8.727};
     574        physicsVector = CreatePhysicsVector(E,E_15,factor);
     575     }
     576     else if( ionZ == 16 ) {
     577        G4double E_16[31]={4.931,5.49,6.543,7.534,8.475,9.379,10.25,11.07,11.86,15.16,17.5,19.1,20.17,21.39,21.98,22.24,22.32,22.29,22.2,22.05,21.04,19.91,18.82,17.8,16.03,14.54,13.3,12.24,11.34,10.55,9.865};
     578        physicsVector = CreatePhysicsVector(E,E_16,factor);
     579     }
     580     else if( ionZ == 17 ) {
     581        G4double E_17[31]={5.106,5.676,6.746,7.755,8.714,9.635,10.52,11.37,12.19,15.65,18.18,19.95,21.16,22.59,23.3,23.65,23.79,23.81,23.75,23.63,22.69,21.57,20.46,19.42,17.57,16.02,14.7,13.57,12.6,11.75,11.01};
     582        physicsVector = CreatePhysicsVector(E,E_17,factor);
     583     }
     584     else if( ionZ == 18 ) {
     585        G4double E_18[31]={5.216,5.797,6.886,7.91,8.884,9.818,10.72,11.59,12.43,16.04,18.74,20.67,22.02,23.64,24.47,24.91,25.12,25.18,25.15,25.06,24.18,23.06,21.94,20.88,18.98,17.36,15.98,14.8,13.77,12.87,12.09};
     586        physicsVector = CreatePhysicsVector(E,E_18,factor);
     587     }
     588  }
     589
     590  else if( matName == namesMat[6] ) {
     591     if( ionZ == 3 ) {
     592        G4double F_3[31]={1.926,2.103,2.397,2.623,2.794,2.92,3.013,3.079,3.126,3.192,3.136,3.044,2.941,2.737,2.551,2.384,2.236,2.105,1.987,1.882,1.486,1.229,1.05,0.9178,0.7373,0.6196,0.5365,0.4747,0.4267,0.3883,0.3569};
     593        physicsVector = CreatePhysicsVector(E,F_3,factor);
     594     }
     595     else if( ionZ == 4 ) {
     596        G4double F_4[31]={2.371,2.606,3.017,3.357,3.634,3.855,4.029,4.165,4.271,4.519,4.545,4.488,4.397,4.186,3.972,3.77,3.582,3.409,3.251,3.105,2.528,2.129,1.838,1.618,1.309,1.102,0.955,0.8448,0.7592,0.6906,0.6344};
     597        physicsVector = CreatePhysicsVector(E,F_4,factor);
     598     }
     599     else if( ionZ == 5 ) {
     600        G4double F_5[31]={2.721,3.009,3.521,3.961,4.337,4.653,4.915,5.129,5.304,5.787,5.931,5.937,5.881,5.695,5.478,5.26,5.048,4.848,4.659,4.482,3.751,3.214,2.808,2.492,2.034,1.721,1.494,1.323,1.189,1.081,0.9929};
     601        physicsVector = CreatePhysicsVector(E,F_5,factor);
     602     }
     603     else if( ionZ == 6 ) {
     604        G4double F_6[31]={2.999,3.334,3.936,4.466,4.933,5.339,5.687,5.983,6.233,6.986,7.28,7.372,7.366,7.23,7.029,6.809,6.587,6.37,6.161,5.961,5.103,4.443,3.926,3.513,2.899,2.468,2.15,1.907,1.715,1.561,1.433};
     605        physicsVector = CreatePhysicsVector(E,F_6,factor);
     606     }
     607     else if( ionZ == 7 ) {
     608        G4double F_7[31]={3.243,3.614,4.29,4.894,5.437,5.922,6.35,6.724,7.048,8.093,8.565,8.766,8.83,8.769,8.602,8.395,8.174,7.951,7.731,7.516,6.56,5.791,5.171,4.665,3.893,3.336,2.919,2.595,2.338,2.129,1.956};
     609        physicsVector = CreatePhysicsVector(E,F_7,factor);
     610     }
     611     else if( ionZ == 8 ) {
     612        G4double F_8[31]={3.463,3.867,4.607,5.277,5.887,6.443,6.944,7.391,7.787,9.131,9.799,10.13,10.27,10.31,10.19,10.01,9.799,9.579,9.355,9.133,8.105,7.245,6.531,5.936,5.007,4.322,3.798,3.388,3.058,2.788,2.563};
     613        physicsVector = CreatePhysicsVector(E,F_8,factor);
     614     }
     615     else if( ionZ == 9 ) {
     616        G4double F_9[31]={3.645,4.075,4.87,5.595,6.263,6.877,7.441,7.953,8.413,10.05,10.91,11.37,11.61,11.75,11.68,11.53,11.34,11.12,10.9,10.68,9.598,8.667,7.878,7.21,6.147,5.347,4.727,4.234,3.834,3.504,3.228};
     617        physicsVector = CreatePhysicsVector(E,F_9,factor);
     618     }
     619     else if( ionZ == 10 ) {
     620        G4double F_10[31]={3.812,4.265,5.107,5.881,6.597,7.263,7.881,8.45,8.97,10.88,11.96,12.56,12.9,13.15,13.15,13.04,12.86,12.66,12.44,12.22,11.11,10.11,9.261,8.527,7.341,6.432,5.718,5.144,4.674,4.283,3.953};
     621        physicsVector = CreatePhysicsVector(E,F_10,factor);
     622     }
     623     else if( ionZ == 11 ) {
     624        G4double F_11[31]={3.948,4.421,5.31,6.132,6.899,7.618,8.292,8.921,9.504,11.73,13.06,13.85,14.32,14.76,14.87,14.83,14.71,14.54,14.35,14.14,13.05,12.02,11.1,10.29,8.949,7.893,7.048,6.358,5.787,5.308,4.901};
     625        physicsVector = CreatePhysicsVector(E,F_11,factor);
     626     }
     627     else if( ionZ == 12 ) {
     628        G4double F_12[31]={4.1,4.581,5.489,6.337,7.131,7.879,8.584,9.248,9.869,12.32,13.84,14.77,15.34,15.89,16.06,16.05,15.94,15.78,15.58,15.37,14.24,13.17,12.2,11.36,9.946,8.829,7.929,7.191,6.576,6.057,5.613};
     629        physicsVector = CreatePhysicsVector(E,F_12,factor);
     630     }
     631     else if( ionZ == 13 ) {
     632        G4double F_13[31]={4.243,4.737,5.669,6.544,7.369,8.148,8.886,9.587,10.25,12.93,14.66,15.76,16.46,17.18,17.45,17.51,17.44,17.31,17.13,16.93,15.81,14.71,13.71,12.81,11.31,10.09,9.109,8.292,7.606,7.024,6.524};
     633        physicsVector = CreatePhysicsVector(E,F_13,factor);
     634     }
     635     else if( ionZ == 14 ) {
     636        G4double F_14[31]={4.384,4.889,5.844,6.742,7.591,8.397,9.164,9.895,10.59,13.47,15.41,16.68,17.5,18.4,18.78,18.9,18.88,18.78,18.63,18.45,17.35,16.22,15.19,14.25,12.66,11.36,10.3,9.409,8.658,8.016,7.462};
     637        physicsVector = CreatePhysicsVector(E,F_14,factor);
     638     }
     639     else if( ionZ == 15 ) {
     640        G4double F_15[31]={4.538,5.054,6.03,6.951,7.825,8.656,9.45,10.21,10.93,14.01,16.15,17.59,18.56,19.65,20.16,20.36,20.41,20.35,20.23,20.07,19.03,17.9,16.84,15.86,14.18,12.79,11.64,10.67,9.844,9.133,8.517};
     641        physicsVector = CreatePhysicsVector(E,F_15,factor);
     642     }
     643     else if( ionZ == 16 ) {
     644        G4double F_16[31]={4.67,5.2,6.202,7.148,8.047,8.904,9.723,10.51,11.26,14.52,16.86,18.47,19.58,20.88,21.52,21.82,21.93,21.92,21.84,21.71,20.73,19.61,18.53,17.52,15.76,14.29,13.05,12,11.1,10.32,9.639};
     645        physicsVector = CreatePhysicsVector(E,F_16,factor);
     646     }
     647     else if( ionZ == 17 ) {
     648        G4double F_17[31]={4.832,5.372,6.391,7.353,8.271,9.148,9.989,10.8,11.57,14.98,17.51,19.29,20.53,22.03,22.8,23.19,23.37,23.41,23.36,23.26,22.35,21.24,20.14,19.11,17.28,15.73,14.42,13.3,12.33,11.49,10.75};
     649        physicsVector = CreatePhysicsVector(E,F_17,factor);
     650     }
     651     else if( ionZ == 18 ) {
     652        G4double F_18[31]={4.931,5.481,6.515,7.491,8.423,9.316,10.17,11,11.79,15.33,18.02,19.96,21.33,23.03,23.93,24.41,24.64,24.73,24.71,24.64,23.79,22.68,21.58,20.52,18.64,17.03,15.66,14.49,13.47,12.58,11.8};
     653        physicsVector = CreatePhysicsVector(E,F_18,factor);
     654     }
     655  }
     656
     657  else if( matName == namesMat[7] ) {
     658     if( ionZ == 3 ) {
     659        G4double G_3[31]={1.514,1.638,1.842,2.004,2.133,2.236,2.317,2.379,2.427,2.52,2.5,2.443,2.372,2.226,2.088,1.963,1.851,1.75,1.659,1.577,1.265,1.057,0.9105,0.801,0.6489,0.5484,0.4768,0.4231,0.3813,0.3477,0.32};
     660        physicsVector = CreatePhysicsVector(E,G_3,factor);
     661     }
     662     else if( ionZ == 4 ) {
     663        G4double G_4[31]={1.913,2.085,2.375,2.615,2.815,2.982,3.122,3.237,3.331,3.582,3.636,3.612,3.556,3.409,3.253,3.102,2.96,2.829,2.707,2.594,2.143,1.824,1.587,1.406,1.148,0.9733,0.8473,0.7521,0.6777,0.6179,0.5687};
     664        physicsVector = CreatePhysicsVector(E,G_4,factor);
     665     }
     666     else if( ionZ == 5 ) {
     667        G4double G_5[31]={2.238,2.453,2.825,3.138,3.406,3.637,3.836,4.007,4.152,4.594,4.753,4.786,4.762,4.642,4.488,4.327,4.169,4.018,3.874,3.738,3.169,2.743,2.415,2.158,1.779,1.516,1.323,1.176,1.06,0.9664,0.8893};
     668        physicsVector = CreatePhysicsVector(E,G_5,factor);
     669     }
     670     else if( ionZ == 6 ) {
     671        G4double G_6[31]={2.506,2.761,3.209,3.592,3.925,4.217,4.474,4.7,4.898,5.549,5.838,5.948,5.97,5.897,5.761,5.603,5.44,5.278,5.12,4.968,4.304,3.783,3.369,3.034,2.529,2.169,1.9,1.692,1.527,1.394,1.283};
     672        physicsVector = CreatePhysicsVector(E,G_6,factor);
     673     }
     674     else if( ionZ == 7 ) {
     675        G4double G_7[31]={2.732,3.021,3.534,3.981,4.375,4.724,5.036,5.315,5.563,6.432,6.87,7.074,7.158,7.154,7.051,6.909,6.75,6.586,6.422,6.261,5.528,4.925,4.431,4.022,3.39,2.927,2.576,2.301,2.08,1.9,1.75};
     676        physicsVector = CreatePhysicsVector(E,G_7,factor);
     677     }
     678     else if( ionZ == 8 ) {
     679        G4double G_8[31]={2.934,3.251,3.824,4.329,4.779,5.183,5.547,5.876,6.173,7.259,7.855,8.168,8.324,8.406,8.348,8.231,8.086,7.927,7.764,7.599,6.818,6.147,5.582,5.105,4.349,3.783,3.345,2.998,2.717,2.485,2.291};
     680        physicsVector = CreatePhysicsVector(E,G_8,factor);
     681     }
     682     else if( ionZ == 9 ) {
     683        G4double G_9[31]={3.114,3.456,4.078,4.635,5.135,5.589,6.001,6.376,6.718,8.011,8.77,9.196,9.431,9.608,9.602,9.514,9.386,9.236,9.076,8.911,8.097,7.374,6.75,6.214,5.349,4.687,4.168,3.751,3.41,3.127,2.888};
     684        physicsVector = CreatePhysicsVector(E,G_9,factor);
     685     }
     686     else if( ionZ == 10 ) {
     687        G4double G_10[31]={3.28,3.643,4.309,4.911,5.457,5.956,6.412,6.831,7.216,8.707,9.63,10.18,10.5,10.78,10.84,10.79,10.68,10.54,10.39,10.23,9.397,8.63,7.956,7.367,6.401,5.649,5.05,4.565,4.163,3.827,3.542};
     688        physicsVector = CreatePhysicsVector(E,G_10,factor);
     689     }
     690     else if( ionZ == 11 ) {
     691        G4double G_11[31]={3.422,3.803,4.507,5.148,5.736,6.277,6.775,7.236,7.661,9.347,10.44,11.12,11.54,11.95,12.08,12.07,11.99,11.87,11.73,11.58,10.75,9.946,9.227,8.591,7.53,6.689,6.011,5.454,4.99,4.598,4.264};
     692        physicsVector = CreatePhysicsVector(E,G_11,factor);
     693     }
     694     else if( ionZ == 12 ) {
     695        G4double G_12[31]={3.568,3.963,4.697,5.371,5.994,6.572,7.107,7.604,8.067,9.931,11.19,12,12.52,13.06,13.27,13.31,13.27,13.17,13.04,12.9,12.07,11.24,10.49,9.811,8.666,7.745,6.994,6.372,5.849,5.405,5.023};
     696        physicsVector = CreatePhysicsVector(E,G_12,factor);
     697     }
     698     else if( ionZ == 13 ) {
     699        G4double G_13[31]={3.704,4.112,4.873,5.576,6.23,6.84,7.41,7.942,8.439,10.47,11.89,12.83,13.46,14.15,14.44,14.54,14.54,14.47,14.36,14.23,13.42,12.57,11.79,11.08,9.853,8.856,8.034,7.347,6.765,6.268,5.837};
     700        physicsVector = CreatePhysicsVector(E,G_13,factor);
     701     }
     702     else if( ionZ == 14 ) {
     703        G4double G_14[31]={3.835,4.255,5.039,5.767,6.447,7.086,7.686,8.25,8.779,10.97,12.54,13.62,14.35,15.18,15.57,15.73,15.77,15.73,15.64,15.53,14.75,13.89,13.08,12.34,11.05,9.98,9.092,8.344,7.707,7.158,6.681};
     704        physicsVector = CreatePhysicsVector(E,G_14,factor);
     705     }
     706     else if( ionZ == 15 ) {
     707        G4double G_15[31]={3.959,4.391,5.195,5.945,6.65,7.315,7.943,8.535,9.094,11.44,13.15,14.37,15.21,16.21,16.71,16.95,17.04,17.04,16.98,16.89,16.16,15.32,14.49,13.72,12.36,11.22,10.27,9.452,8.753,8.148,7.62};
     708        physicsVector = CreatePhysicsVector(E,G_15,factor);
     709     }
     710     else if( ionZ == 16 ) {
     711        G4double G_16[31]={4.077,4.521,5.348,6.12,6.848,7.538,8.193,8.812,9.398,11.88,13.74,15.09,16.05,17.23,17.83,18.15,18.3,18.34,18.32,18.25,17.59,16.76,15.92,15.13,13.71,12.51,11.49,10.61,9.853,9.192,8.613};
     712        physicsVector = CreatePhysicsVector(E,G_16,factor);
     713     }
     714     else if( ionZ == 17 ) {
     715        G4double G_17[31]={4.203,4.656,5.5,6.289,7.036,7.747,8.424,9.068,9.679,12.3,14.29,15.77,16.84,18.19,18.91,19.31,19.52,19.6,19.61,19.57,18.98,18.17,17.33,16.52,15.05,13.79,12.71,11.77,10.96,10.25,9.617};
     716        physicsVector = CreatePhysicsVector(E,G_17,factor);
     717     }
     718     else if( ionZ == 18 ) {
     719        G4double G_18[31]={4.313,4.776,5.638,6.443,7.208,7.938,8.635,9.299,9.933,12.67,14.79,16.39,17.58,19.09,19.93,20.41,20.67,20.81,20.85,20.83,20.31,19.51,18.66,17.83,16.31,15,13.86,12.88,12.02,11.26,10.59};
     720        physicsVector = CreatePhysicsVector(E,G_18,factor);
     721     }
     722  }
     723
     724  else if( matName == namesMat[8] ) {
     725     if( ionZ == 3 ) {
     726        G4double H_3[31]={1.909,2.083,2.374,2.602,2.778,2.91,3.008,3.079,3.128,3.196,3.137,3.042,2.938,2.733,2.547,2.38,2.232,2.101,1.984,1.878,1.484,1.227,1.048,0.9166,0.7364,0.6188,0.5359,0.4741,0.4262,0.3879,0.3565};
     727        physicsVector = CreatePhysicsVector(E,H_3,factor);
     728     }
     729     else if( ionZ == 4 ) {
     730        G4double H_4[31]={2.35,2.582,2.986,3.325,3.605,3.832,4.014,4.157,4.267,4.525,4.547,4.487,4.395,4.182,3.967,3.765,3.577,3.404,3.246,3.1,2.525,2.127,1.837,1.617,1.308,1.101,0.9543,0.8441,0.7585,0.69,0.6338};
     731        physicsVector = CreatePhysicsVector(E,H_4,factor);
     732     }
     733     else if( ionZ == 5 ) {
     734        G4double H_5[31]={2.696,2.981,3.484,3.919,4.295,4.615,4.885,5.108,5.29,5.791,5.935,5.937,5.878,5.689,5.472,5.253,5.042,4.842,4.653,4.477,3.747,3.212,2.807,2.492,2.034,1.721,1.494,1.322,1.188,1.081,0.9923};
     735        physicsVector = CreatePhysicsVector(E,H_5,factor);
     736     }
     737     else if( ionZ == 6 ) {
     738        G4double H_6[31]={2.972,3.304,3.899,4.422,4.885,5.292,5.645,5.949,6.207,6.988,7.286,7.374,7.365,7.224,7.022,6.802,6.58,6.364,6.155,5.956,5.101,4.443,3.927,3.515,2.901,2.469,2.151,1.907,1.715,1.56,1.433};
     739        physicsVector = CreatePhysicsVector(E,H_6,factor);
     740     }
     741     else if( ionZ == 7 ) {
     742        G4double H_7[31]={3.208,3.579,4.25,4.848,5.386,5.869,6.3,6.679,7.011,8.091,8.573,8.771,8.831,8.765,8.596,8.389,8.169,7.947,7.727,7.514,6.562,5.795,5.177,4.671,3.898,3.34,2.922,2.598,2.34,2.13,1.957};
     743        physicsVector = CreatePhysicsVector(E,H_7,factor);
     744     }
     745     else if( ionZ == 8 ) {
     746        G4double H_8[31]={3.419,3.823,4.562,5.228,5.833,6.384,6.885,7.336,7.737,9.121,9.806,10.13,10.27,10.3,10.18,10,9.794,9.574,9.351,9.13,8.108,7.251,6.54,5.945,5.016,4.33,3.805,3.393,3.062,2.791,2.566};
     747        physicsVector = CreatePhysicsVector(E,H_8,factor);
     748     }
     749     else if( ionZ == 9 ) {
     750        G4double H_9[31]={3.605,4.037,4.835,5.56,6.223,6.833,7.395,7.907,8.372,10.05,10.94,11.4,11.63,11.76,11.69,11.54,11.34,11.13,10.9,10.68,9.605,8.676,7.889,7.221,6.158,5.357,4.735,4.241,3.84,3.509,3.231};
     751        physicsVector = CreatePhysicsVector(E,H_9,factor);
     752     }
     753     else if( ionZ == 10 ) {
     754        G4double H_10[31]={3.767,4.221,5.068,5.843,6.556,7.218,7.831,8.399,8.92,10.87,11.98,12.59,12.92,13.17,13.16,13.05,12.87,12.67,12.45,12.23,11.12,10.14,9.283,8.549,7.362,6.451,5.733,5.157,4.685,4.292,3.961};
     755        physicsVector = CreatePhysicsVector(E,H_10,factor);
     756     }
     757     else if( ionZ == 11 ) {
     758        G4double H_11[31]={3.897,4.371,5.263,6.088,6.854,7.567,8.235,8.858,9.438,11.69,13.05,13.84,14.31,14.73,14.83,14.79,14.66,14.5,14.3,14.1,13.01,11.99,11.08,10.28,8.943,7.892,7.049,6.36,5.79,5.311,4.904};
     759        physicsVector = CreatePhysicsVector(E,H_11,factor);
     760     }
     761     else if( ionZ == 12 ) {
     762        G4double H_12[31]={4.043,4.528,5.444,6.3,7.098,7.845,8.547,9.207,9.826,12.29,13.86,14.8,15.37,15.92,16.08,16.06,15.95,15.79,15.59,15.38,14.26,13.19,12.23,11.38,9.973,8.854,7.952,7.211,6.593,6.072,5.627};
     763        physicsVector = CreatePhysicsVector(E,H_12,factor);
     764     }
     765     else if( ionZ == 13 ) {
     766        G4double H_13[31]={4.179,4.676,5.618,6.503,7.334,8.116,8.855,9.552,10.21,12.9,14.68,15.8,16.5,17.21,17.48,17.52,17.45,17.32,17.15,16.95,15.83,14.74,13.74,12.84,11.34,10.12,9.136,8.316,7.628,7.044,6.541};
     767        physicsVector = CreatePhysicsVector(E,H_13,factor);
     768     }
     769     else if( ionZ == 14 ) {
     770        G4double H_14[31]={4.312,4.82,5.785,6.695,7.555,8.368,9.137,9.867,10.56,13.45,15.43,16.72,17.56,18.45,18.81,18.93,18.9,18.8,18.65,18.46,17.37,16.25,15.22,14.29,12.69,11.4,10.33,9.439,8.685,8.04,7.483};
     771        physicsVector = CreatePhysicsVector(E,H_14,factor);
     772     }
     773     else if( ionZ == 15 ) {
     774        G4double H_15[31]={4.45,4.968,5.953,6.887,7.774,8.615,9.415,10.18,10.9,13.98,16.16,17.64,18.61,19.7,20.19,20.39,20.43,20.37,20.25,20.09,19.05,17.94,16.88,15.91,14.23,12.84,11.68,10.71,9.878,9.164,8.545};
     775        physicsVector = CreatePhysicsVector(E,H_15,factor);
     776     }
     777     else if( ionZ == 16 ) {
     778        G4double H_16[31]={4.574,5.105,6.114,7.072,7.987,8.857,9.685,10.47,11.23,14.48,16.86,18.51,19.64,20.93,21.55,21.84,21.95,21.94,21.86,21.73,20.76,19.65,18.57,17.57,15.81,14.34,13.1,12.04,11.14,10.36,9.674};
     779        physicsVector = CreatePhysicsVector(E,H_16,factor);
     780     }
     781     else if( ionZ == 17 ) {
     782        G4double H_17[31]={4.722,5.263,6.289,7.266,8.201,9.094,9.946,10.76,11.54,14.94,17.5,19.33,20.59,22.09,22.85,23.23,23.4,23.44,23.39,23.29,22.39,21.29,20.2,19.17,17.34,15.79,14.48,13.35,12.38,11.54,10.8};
     783        physicsVector = CreatePhysicsVector(E,H_17,factor);
     784     }
     785     else if( ionZ == 18 ) {
     786        G4double H_18[31]={4.82,5.37,6.411,7.401,8.352,9.262,10.13,10.97,11.77,15.3,18.02,20,21.4,23.1,23.99,24.46,24.68,24.77,24.75,24.67,23.83,22.74,21.64,20.59,18.71,17.1,15.73,14.55,13.52,12.63,11.84};
     787        physicsVector = CreatePhysicsVector(E,H_18,factor);
     788     }
     789  }
     790
     791  else if( matName == namesMat[9] ) {
     792     if( ionZ == 3 ) {
     793        G4double I_3[31]={1.707,1.866,2.117,2.301,2.438,2.539,2.615,2.67,2.71,2.774,2.74,2.674,2.597,2.437,2.284,2.145,2.02,1.907,1.805,1.714,1.366,1.136,0.9741,0.8543,0.6893,0.5809,0.5042,0.4469,0.4023,0.3666,0.3372};
     794        physicsVector = CreatePhysicsVector(E,I_3,factor);
     795     }
     796     else if( ionZ == 4 ) {
     797        G4double I_4[31]={2.09,2.31,2.678,2.965,3.192,3.371,3.514,3.626,3.715,3.934,3.972,3.941,3.881,3.724,3.555,3.389,3.232,3.085,2.949,2.823,2.319,1.964,1.703,1.504,1.222,1.033,0.8972,0.7952,0.7156,0.6518,0.5994};
     798        physicsVector = CreatePhysicsVector(E,I_4,factor);
     799     }
     800     else if( ionZ == 5 ) {
     801        G4double I_5[31]={2.389,2.659,3.13,3.515,3.829,4.088,4.302,4.479,4.625,5.041,5.183,5.211,5.185,5.061,4.899,4.725,4.551,4.383,4.223,4.071,3.434,2.96,2.597,2.313,1.898,1.612,1.403,1.245,1.12,1.02,0.9381};
     802        physicsVector = CreatePhysicsVector(E,I_5,factor);
     803     }
     804     else if( ionZ == 6 ) {
     805        G4double I_6[31]={2.629,2.94,3.5,3.976,4.376,4.714,5,5.243,5.449,6.09,6.361,6.466,6.489,6.42,6.281,6.113,5.936,5.757,5.581,5.412,4.669,4.088,3.629,3.259,2.704,2.311,2.019,1.794,1.617,1.473,1.354};
     806        physicsVector = CreatePhysicsVector(E,I_6,factor);
     807     }
     808     else if( ionZ == 7 ) {
     809        G4double I_7[31]={2.835,3.177,3.806,4.359,4.837,5.249,5.604,5.911,6.178,7.059,7.483,7.684,7.771,7.78,7.681,7.533,7.363,7.184,7.002,6.822,6.001,5.327,4.779,4.327,3.63,3.124,2.741,2.443,2.204,2.01,1.849};
     810        physicsVector = CreatePhysicsVector(E,I_7,factor);
     811     }
     812     else if( ionZ == 8 ) {
     813        G4double I_8[31]={3.025,3.392,4.077,4.696,5.245,5.726,6.147,6.517,6.843,7.97,8.559,8.87,9.032,9.134,9.089,8.973,8.82,8.648,8.467,8.284,7.408,6.658,6.029,5.5,4.666,4.044,3.566,3.188,2.883,2.633,2.424};
     814        physicsVector = CreatePhysicsVector(E,I_8,factor);
     815     }
     816     else if( ionZ == 9 ) {
     817        G4double I_9[31]={3.194,3.582,4.312,4.983,5.591,6.134,6.615,7.043,7.425,8.789,9.548,9.974,10.22,10.42,10.43,10.35,10.22,10.06,9.882,9.698,8.787,7.977,7.283,6.689,5.736,5.01,4.443,3.989,3.619,3.313,3.055};
     818        physicsVector = CreatePhysicsVector(E,I_9,factor);
     819     }
     820     else if( ionZ == 10 ) {
     821        G4double I_10[31]={3.352,3.759,4.526,5.24,5.899,6.496,7.032,7.515,7.948,9.545,10.48,11.03,11.36,11.67,11.75,11.71,11.61,11.46,11.3,11.12,10.18,9.324,8.573,7.922,6.858,6.034,5.38,4.852,4.417,4.054,3.746};
     822        physicsVector = CreatePhysicsVector(E,I_10,factor);
     823     }
     824     else if( ionZ == 11 ) {
     825        G4double I_11[31]={3.483,3.906,4.707,5.459,6.163,6.813,7.405,7.942,8.43,10.28,11.41,12.12,12.56,13.03,13.21,13.24,13.18,13.07,12.93,12.77,11.86,10.98,10.18,9.467,8.279,7.335,6.573,5.948,5.428,4.989,4.615};
     826        physicsVector = CreatePhysicsVector(E,I_11,factor);
     827     }
     828     else if( ionZ == 12 ) {
     829        G4double I_12[31]={3.626,4.061,4.882,5.657,6.391,7.076,7.708,8.287,8.816,10.86,12.16,12.98,13.52,14.1,14.35,14.42,14.38,14.29,14.15,13.99,13.06,12.14,11.3,10.55,9.285,8.277,7.457,6.779,6.212,5.732,5.319};
     830        physicsVector = CreatePhysicsVector(E,I_12,factor);
     831     }
     832     else if( ionZ == 13 ) {
     833        G4double I_13[31]={3.759,4.208,5.051,5.846,6.605,7.323,7.994,8.614,9.185,11.43,12.91,13.87,14.51,15.25,15.59,15.73,15.74,15.68,15.56,15.42,14.51,13.56,12.69,11.9,10.55,9.462,8.565,7.817,7.186,6.647,6.183};
     834        physicsVector = CreatePhysicsVector(E,I_13,factor);
     835     }
     836     else if( ionZ == 14 ) {
     837        G4double I_14[31]={3.889,4.35,5.213,6.027,6.805,7.55,8.253,8.908,9.516,11.94,13.59,14.7,15.45,16.34,16.78,16.99,17.05,17.02,16.94,16.81,15.93,14.97,14.07,13.24,11.82,10.66,9.687,8.874,8.183,7.589,7.075};
     838        physicsVector = CreatePhysicsVector(E,I_14,factor);
     839     }
     840     else if( ionZ == 15 ) {
     841        G4double I_15[31]={4.017,4.488,5.371,6.202,6.998,7.765,8.496,9.184,9.827,12.43,14.25,15.51,16.38,17.44,18,18.29,18.41,18.43,18.38,18.28,17.47,16.51,15.59,14.73,13.24,11.99,10.95,10.06,9.303,8.647,8.076};
     842        physicsVector = CreatePhysicsVector(E,I_15,factor);
     843     }
     844     else if( ionZ == 16 ) {
     845        G4double I_16[31]={4.134,4.62,5.527,6.377,7.191,7.978,8.733,9.45,10.13,12.9,14.89,16.29,17.28,18.51,19.2,19.57,19.77,19.84,19.83,19.76,19.02,18.08,17.14,16.26,14.7,13.38,12.26,11.31,10.48,9.766,9.137};
     846        physicsVector = CreatePhysicsVector(E,I_16,factor);
     847     }
     848     else if( ionZ == 17 ) {
     849        G4double I_17[31]={4.266,4.762,5.689,6.554,7.382,8.184,8.958,9.698,10.4,13.33,15.47,17.01,18.12,19.54,20.34,20.81,21.07,21.19,21.21,21.18,20.52,19.59,18.65,17.75,16.13,14.75,13.56,12.54,11.66,10.88,10.2};
     850        physicsVector = CreatePhysicsVector(E,I_17,factor);
     851     }
     852     else if( ionZ == 18 ) {
     853        G4double I_18[31]={4.361,4.869,5.813,6.692,7.531,8.343,9.13,9.889,10.61,13.68,15.96,17.63,18.86,20.44,21.36,21.91,22.23,22.4,22.47,22.46,21.86,20.95,20,19.08,17.42,15.98,14.75,13.68,12.74,11.92,11.2};
     854        physicsVector = CreatePhysicsVector(E,I_18,factor);
     855     }
     856  }
     857
     858  else if( matName == namesMat[10] ) {
     859     if( ionZ == 3 ) {
     860        G4double J_3[31]={2.149,2.349,2.681,2.933,3.118,3.25,3.342,3.405,3.445,3.476,3.393,3.281,3.163,2.935,2.729,2.547,2.386,2.243,2.116,2.002,1.576,1.3,1.109,0.9689,0.777,0.6521,0.5641,0.4987,0.448,0.4075,0.3743};
     861        physicsVector = CreatePhysicsVector(E,J_3,factor);
     862     }
     863     else if( ionZ == 4 ) {
     864        G4double J_4[31]={2.637,2.902,3.364,3.746,4.054,4.294,4.477,4.616,4.718,4.931,4.923,4.841,4.733,4.492,4.254,4.031,3.825,3.637,3.464,3.306,2.684,2.255,1.944,1.709,1.379,1.16,1.004,0.8878,0.7972,0.7248,0.6655};
     865        physicsVector = CreatePhysicsVector(E,J_4,factor);
     866     }
     867     else if( ionZ == 5 ) {
     868        G4double J_5[31]={3.024,3.346,3.92,4.415,4.836,5.185,5.468,5.695,5.874,6.329,6.435,6.411,6.333,6.113,5.87,5.627,5.395,5.175,4.969,4.777,3.984,3.406,2.971,2.633,2.145,1.812,1.571,1.39,1.248,1.134,1.041};
     869        physicsVector = CreatePhysicsVector(E,J_5,factor);
     870     }
     871     else if( ionZ == 6 ) {
     872        G4double J_6[31]={3.334,3.707,4.38,4.974,5.497,5.949,6.332,6.651,6.914,7.658,7.912,7.969,7.939,7.764,7.533,7.287,7.041,6.803,6.574,6.356,5.424,4.711,4.156,3.713,3.058,2.599,2.261,2.004,1.801,1.638,1.503};
     873        physicsVector = CreatePhysicsVector(E,J_6,factor);
     874     }
     875     else if( ionZ == 7 ) {
     876        G4double J_7[31]={3.611,4.025,4.777,5.451,6.058,6.599,7.073,7.482,7.829,8.893,9.326,9.489,9.524,9.421,9.222,8.987,8.741,8.495,8.252,8.017,6.976,6.144,5.476,4.932,4.106,3.513,3.07,2.727,2.455,2.234,2.051};
     877        physicsVector = CreatePhysicsVector(E,J_7,factor);
     878     }
     879     else if( ionZ == 8 ) {
     880        G4double J_8[31]={3.86,4.31,5.135,5.88,6.56,7.179,7.735,8.228,8.658,10.05,10.68,10.97,11.09,11.08,10.92,10.71,10.48,10.23,9.99,9.746,8.623,7.689,6.919,6.278,5.283,4.552,3.996,3.56,3.211,2.925,2.688};
     881        physicsVector = CreatePhysicsVector(E,J_8,factor);
     882     }
     883     else if( ionZ == 9 ) {
     884        G4double J_9[31]={4.066,4.547,5.433,6.238,6.978,7.662,8.287,8.853,9.357,11.07,11.92,12.34,12.54,12.62,12.52,12.34,12.12,11.88,11.63,11.38,10.2,9.196,8.344,7.624,6.485,5.631,4.971,4.448,4.025,3.676,3.384};
     885        physicsVector = CreatePhysicsVector(E,J_9,factor);
     886     }
     887     else if( ionZ == 10 ) {
     888        G4double J_10[31]={4.255,4.762,5.702,6.56,7.353,8.091,8.776,9.406,9.978,12.01,13.08,13.64,13.94,14.14,14.1,13.95,13.75,13.52,13.27,13.02,11.8,10.72,9.805,9.014,7.741,6.771,6.011,5.402,4.904,4.491,4.143};
     889        physicsVector = CreatePhysicsVector(E,J_10,factor);
     890     }
     891     else if( ionZ == 11 ) {
     892        G4double J_11[31]={4.408,4.939,5.931,6.845,7.693,8.488,9.234,9.93,10.57,12.96,14.31,15.06,15.5,15.88,15.95,15.88,15.74,15.55,15.33,15.1,13.9,12.77,11.78,10.9,9.461,8.331,7.427,6.693,6.086,5.578,5.147};
     893        physicsVector = CreatePhysicsVector(E,J_11,factor);
     894     }
     895     else if( ionZ == 12 ) {
     896        G4double J_12[31]={4.579,5.119,6.133,7.075,7.954,8.779,9.557,10.29,10.97,13.62,15.17,16.07,16.6,17.09,17.22,17.17,17.03,16.84,16.62,16.39,15.14,13.96,12.92,12,10.49,9.297,8.338,7.554,6.902,6.353,5.884};
     897        physicsVector = CreatePhysicsVector(E,J_12,factor);
     898     }
     899     else if( ionZ == 13 ) {
     900        G4double J_13[31]={4.741,5.295,6.339,7.313,8.224,9.083,9.897,10.66,11.39,14.3,16.1,17.17,17.83,18.49,18.71,18.73,18.63,18.47,18.27,18.05,16.81,15.6,14.52,13.55,11.92,10.63,9.58,8.712,7.985,7.368,6.839};
     901        physicsVector = CreatePhysicsVector(E,J_13,factor);
     902     }
     903     else if( ionZ == 14 ) {
     904        G4double J_14[31]={4.901,5.468,6.538,7.539,8.48,9.369,10.21,11.01,11.77,14.91,16.94,18.19,18.98,19.81,20.14,20.22,20.17,20.04,19.87,19.66,18.44,17.21,16.08,15.07,13.35,11.96,10.83,9.885,9.087,8.408,7.822};
     905        physicsVector = CreatePhysicsVector(E,J_14,factor);
     906     }
     907     else if( ionZ == 15 ) {
     908        G4double J_15[31]={5.077,5.658,6.753,7.782,8.752,9.669,10.54,11.37,12.16,15.52,17.77,19.21,20.14,21.17,21.62,21.79,21.81,21.72,21.58,21.39,20.23,18.99,17.83,16.78,14.96,13.47,12.24,11.21,10.33,9.58,8.927};
     909        physicsVector = CreatePhysicsVector(E,J_15,factor);
     910     }
     911     else if( ionZ == 16 ) {
     912        G4double J_16[31]={5.227,5.824,6.95,8.008,9.008,9.954,10.85,11.71,12.54,16.09,18.57,20.2,21.28,22.51,23.09,23.35,23.43,23.4,23.29,23.14,22.04,20.81,19.63,18.54,16.63,15.05,13.72,12.6,11.65,10.82,10.1};
     913        physicsVector = CreatePhysicsVector(E,J_16,factor);
     914     }
     915     else if( ionZ == 17 ) {
     916        G4double J_17[31]={5.413,6.021,7.168,8.248,9.27,10.24,11.16,12.04,12.89,16.61,19.3,21.12,22.34,23.77,24.48,24.83,24.98,24.99,24.92,24.79,23.76,22.54,21.34,20.22,18.23,16.57,15.16,13.97,12.94,12.05,11.27};
     917        physicsVector = CreatePhysicsVector(E,J_17,factor);
     918     }
     919     else if( ionZ == 18 ) {
     920        G4double J_18[31]={5.524,6.145,7.31,8.406,9.446,10.43,11.37,12.27,13.14,16.99,19.88,21.86,23.23,24.85,25.69,26.13,26.33,26.39,26.35,26.25,25.28,24.07,22.85,21.7,19.66,17.93,16.47,15.21,14.13,13.18,12.35};
     921        physicsVector = CreatePhysicsVector(E,J_18,factor);
     922     }
     923  }
     924
     925  else if( matName == namesMat[11] ) {
     926     if( ionZ == 3 ) {
     927        G4double K_3[31]={1.622,1.757,1.984,2.165,2.312,2.429,2.522,2.595,2.652,2.774,2.762,2.702,2.624,2.457,2.297,2.152,2.022,1.905,1.8,1.705,1.349,1.116,0.9538,0.8343,0.6707,0.5639,0.4886,0.4325,0.3889,0.354,0.3255};
     928        physicsVector = CreatePhysicsVector(E,K_3,factor);
     929     }
     930     else if( ionZ == 4 ) {
     931        G4double K_4[31]={2.038,2.224,2.541,2.806,3.029,3.218,3.376,3.507,3.616,3.918,3.997,3.981,3.922,3.757,3.577,3.402,3.237,3.084,2.943,2.813,2.294,1.933,1.67,1.471,1.19,1.003,0.8695,0.7696,0.6918,0.6295,0.5785};
     932        physicsVector = CreatePhysicsVector(E,K_4,factor);
     933     }
     934     else if( ionZ == 5 ) {
     935        G4double K_5[31]={2.368,2.601,3.005,3.348,3.645,3.903,4.127,4.32,4.486,5.003,5.207,5.26,5.241,5.109,4.932,4.746,4.561,4.384,4.217,4.059,3.403,2.918,2.551,2.264,1.85,1.566,1.36,1.205,1.083,0.9854,0.9052};
     936        physicsVector = CreatePhysicsVector(E,K_5,factor);
     937     }
     938     else if( ionZ == 6 ) {
     939        G4double K_6[31]={2.629,2.905,3.391,3.81,4.178,4.503,4.791,5.046,5.27,6.024,6.377,6.522,6.559,6.483,6.326,6.142,5.95,5.76,5.575,5.397,4.628,4.032,3.565,3.192,2.636,2.245,1.957,1.736,1.562,1.422,1.306};
     940        physicsVector = CreatePhysicsVector(E,K_6,factor);
     941     }
     942     else if( ionZ == 7 ) {
     943        G4double K_7[31]={2.856,3.166,3.721,4.207,4.639,5.025,5.373,5.686,5.966,6.963,7.487,7.744,7.854,7.86,7.74,7.571,7.382,7.187,6.993,6.803,5.947,5.254,4.695,4.237,3.538,3.034,2.655,2.362,2.129,1.939,1.782};
     944        physicsVector = CreatePhysicsVector(E,K_7,factor);
     945     }
     946     else if( ionZ == 8 ) {
     947        G4double K_8[31]={3.056,3.396,4.013,4.561,5.053,5.498,5.902,6.269,6.603,7.841,8.547,8.93,9.126,9.234,9.166,9.024,8.849,8.658,8.462,8.265,7.346,6.572,5.928,5.39,4.55,3.929,3.455,3.083,2.784,2.539,2.335};
     948        physicsVector = CreatePhysicsVector(E,K_8,factor);
     949     }
     950     else if( ionZ == 9 ) {
     951        G4double K_9[31]={3.218,3.582,4.251,4.853,5.398,5.894,6.349,6.765,7.148,8.61,9.495,10.01,10.3,10.51,10.5,10.39,10.23,10.05,9.855,9.656,8.694,7.857,7.147,6.544,5.584,4.861,4.299,3.853,3.491,3.191,2.941};
     952        physicsVector = CreatePhysicsVector(E,K_9,factor);
     953     }
     954     else if( ionZ == 10 ) {
     955        G4double K_10[31]={3.364,3.749,4.461,5.11,5.702,6.246,6.747,7.21,7.637,9.314,10.38,11.03,11.42,11.76,11.81,11.74,11.6,11.43,11.24,11.04,10.05,9.166,8.398,7.737,6.667,5.846,5.199,4.68,4.254,3.9,3.602};
     956        physicsVector = CreatePhysicsVector(E,K_10,factor);
     957     }
     958     else if( ionZ == 11 ) {
     959        G4double K_11[31]={3.476,3.878,4.632,5.327,5.97,6.565,7.116,7.629,8.107,10.03,11.31,12.14,12.66,13.18,13.35,13.35,13.27,13.13,12.97,12.79,11.83,10.9,10.08,9.351,8.14,7.185,6.419,5.793,5.275,4.84,4.47};
     960        physicsVector = CreatePhysicsVector(E,K_11,factor);
     961     }
     962     else if( ionZ == 12 ) {
     963        G4double K_12[31]={3.604,4.015,4.786,5.505,6.174,6.798,7.38,7.924,8.434,10.52,11.96,12.91,13.53,14.18,14.41,14.44,14.37,14.24,14.08,13.9,12.89,11.93,11.07,10.31,9.035,8.027,7.213,6.544,5.987,5.517,5.115};
     964        physicsVector = CreatePhysicsVector(E,K_12,factor);
     965     }
     966     else if( ionZ == 13 ) {
     967        G4double K_13[31]={3.723,4.144,4.937,5.679,6.378,7.034,7.649,8.228,8.772,11.03,12.64,13.75,14.49,15.31,15.65,15.75,15.72,15.62,15.48,15.31,14.32,13.33,12.43,11.63,10.27,9.178,8.286,7.547,6.926,6.398,5.945};
     968        physicsVector = CreatePhysicsVector(E,K_13,factor);
     969     }
     970     else if( ionZ == 14 ) {
     971        G4double K_14[31]={3.84,4.27,5.081,5.844,6.566,7.248,7.893,8.502,9.077,11.5,13.27,14.52,15.39,16.38,16.83,17,17.02,16.95,16.83,16.67,15.7,14.7,13.77,12.93,11.5,10.33,9.367,8.563,7.883,7.301,6.798};
     972        physicsVector = CreatePhysicsVector(E,K_14,factor);
     973     }
     974     else if( ionZ == 15 ) {
     975        G4double K_15[31]={3.971,4.409,5.238,6.02,6.764,7.472,8.144,8.782,9.387,11.96,13.89,15.29,16.29,17.48,18.05,18.31,18.39,18.36,18.27,18.14,17.22,16.22,15.27,14.39,12.88,11.63,10.59,9.708,8.96,8.316,7.758};
     976        physicsVector = CreatePhysicsVector(E,K_15,factor);
     977     }
     978     else if( ionZ == 16 ) {
     979        G4double K_16[31]={4.08,4.53,5.379,6.182,6.95,7.683,8.382,9.047,9.68,12.41,14.49,16.04,17.16,18.55,19.26,19.61,19.76,19.78,19.73,19.62,18.77,17.77,16.8,15.9,14.31,12.98,11.87,10.91,10.1,9.394,8.779};
     980        physicsVector = CreatePhysicsVector(E,K_16,factor);
     981     }
     982     else if( ionZ == 17 ) {
     983        G4double K_17[31]={4.22,4.677,5.538,6.353,7.136,7.889,8.609,9.298,9.956,12.81,15.04,16.72,17.97,19.55,20.4,20.84,21.05,21.12,21.1,21.02,20.23,19.24,18.26,17.34,15.69,14.29,13.11,12.1,11.22,10.46,9.792};
     984        physicsVector = CreatePhysicsVector(E,K_17,factor);
     985     }
     986     else if( ionZ == 18 ) {
     987        G4double K_18[31]={4.299,4.762,5.633,6.458,7.252,8.018,8.755,9.463,10.14,13.11,15.46,17.27,18.64,20.41,21.38,21.91,22.18,22.3,22.31,22.26,21.52,20.55,19.55,18.61,16.92,15.47,14.24,13.18,12.25,11.45,10.74};
     988        physicsVector = CreatePhysicsVector(E,K_18,factor);
     989     }
     990  }
     991
     992  else if( matName == namesMat[12] ) {
     993     if( ionZ == 3 ) {
     994        G4double L_3[31]={1.968,2.15,2.444,2.663,2.824,2.943,3.029,3.091,3.133,3.185,3.123,3.027,2.922,2.717,2.53,2.363,2.215,2.083,1.966,1.861,1.466,1.211,1.033,0.9028,0.7245,0.6083,0.5265,0.4656,0.4184,0.3807,0.3498};
     995        physicsVector = CreatePhysicsVector(E,L_3,factor);
     996     }
     997     else if( ionZ == 4 ) {
     998        G4double L_4[31]={2.403,2.652,3.075,3.412,3.679,3.89,4.055,4.184,4.283,4.511,4.526,4.464,4.371,4.157,3.942,3.739,3.55,3.377,3.218,3.072,2.497,2.1,1.811,1.593,1.286,1.083,0.9375,0.8289,0.7446,0.6771,0.6219};
     999        physicsVector = CreatePhysicsVector(E,L_4,factor);
     1000     }
     1001     else if( ionZ == 5 ) {
     1002        G4double L_5[31]={2.739,3.045,3.58,4.026,4.396,4.701,4.952,5.157,5.324,5.779,5.908,5.906,5.846,5.656,5.438,5.218,5.006,4.804,4.615,4.437,3.706,3.171,2.768,2.454,2.001,1.691,1.467,1.298,1.166,1.06,0.9734};
     1003        physicsVector = CreatePhysicsVector(E,L_5,factor);
     1004     }
     1005     else if( ionZ == 6 ) {
     1006        G4double L_6[31]={3.003,3.358,3.992,4.538,5.005,5.403,5.74,6.024,6.262,6.98,7.255,7.335,7.324,7.181,6.978,6.756,6.533,6.314,6.104,5.904,5.045,4.386,3.872,3.462,2.853,2.426,2.112,1.872,1.683,1.531,1.405};
     1007        physicsVector = CreatePhysicsVector(E,L_6,factor);
     1008     }
     1009     else if( ionZ == 7 ) {
     1010        G4double L_7[31]={3.237,3.628,4.341,4.97,5.522,6.003,6.421,6.781,7.092,8.093,8.541,8.726,8.781,8.712,8.541,8.332,8.109,7.884,7.662,7.447,6.488,5.72,5.102,4.599,3.832,3.28,2.868,2.548,2.294,2.088,1.918};
     1011        physicsVector = CreatePhysicsVector(E,L_7,factor);
     1012     }
     1013     else if( ionZ == 8 ) {
     1014        G4double L_8[31]={3.448,3.869,4.647,5.349,5.977,6.536,7.03,7.464,7.845,9.135,9.774,10.08,10.22,10.24,10.12,9.934,9.723,9.5,9.274,9.051,8.019,7.157,6.446,5.853,4.931,4.251,3.733,3.327,3.002,2.735,2.514};
     1015        physicsVector = CreatePhysicsVector(E,L_8,factor);
     1016     }
     1017     else if( ionZ == 9 ) {
     1018        G4double L_9[31]={3.63,4.073,4.905,5.665,6.357,6.982,7.543,8.043,8.489,10.06,10.89,11.33,11.55,11.67,11.6,11.45,11.25,11.03,10.81,10.58,9.495,8.562,7.775,7.109,6.053,5.26,4.646,4.158,3.764,3.438,3.166};
     1019        physicsVector = CreatePhysicsVector(E,L_9,factor);
     1020     }
     1021     else if( ionZ == 10 ) {
     1022        G4double L_10[31]={3.799,4.263,5.137,5.946,6.692,7.375,7.996,8.558,9.064,10.91,11.94,12.52,12.83,13.07,13.06,12.94,12.76,12.55,12.33,12.1,10.98,9.992,9.139,8.407,7.228,6.326,5.619,5.051,4.587,4.202,3.877};
     1023        physicsVector = CreatePhysicsVector(E,L_10,factor);
     1024     }
     1025     else if( ionZ == 11 ) {
     1026        G4double L_11[31]={3.933,4.415,5.328,6.184,6.983,7.724,8.407,9.032,9.603,11.75,13.03,13.78,14.23,14.64,14.74,14.69,14.57,14.4,14.2,13.99,12.89,11.86,10.95,10.15,8.813,7.768,6.931,6.25,5.686,5.213,4.812};
     1027        physicsVector = CreatePhysicsVector(E,L_11,factor);
     1028     }
     1029     else if( ionZ == 12 ) {
     1030        G4double L_12[31]={4.086,4.576,5.507,6.386,7.213,7.988,8.709,9.376,9.991,12.35,13.82,14.72,15.26,15.79,15.94,15.92,15.81,15.64,15.44,15.23,14.08,13,12.04,11.2,9.795,8.687,7.795,7.065,6.457,5.945,5.508};
     1031        physicsVector = CreatePhysicsVector(E,L_12,factor);
     1032     }
     1033     else if( ionZ == 13 ) {
     1034        G4double L_13[31]={4.23,4.732,5.684,6.586,7.441,8.25,9.011,9.721,10.38,12.97,14.65,15.71,16.38,17.07,17.32,17.36,17.29,17.15,16.97,16.77,15.64,14.53,13.53,12.64,11.14,9.934,8.956,8.148,7.471,6.896,6.402};
     1035        physicsVector = CreatePhysicsVector(E,L_13,factor);
     1036     }
     1037     else if( ionZ == 14 ) {
     1038        G4double L_14[31]={4.374,4.887,5.858,6.779,7.658,8.495,9.287,10.03,10.73,13.53,15.41,16.63,17.42,18.28,18.64,18.75,18.72,18.61,18.46,18.27,17.15,16.03,14.99,14.06,12.47,11.18,10.13,9.246,8.504,7.87,7.323};
     1039        physicsVector = CreatePhysicsVector(E,L_14,factor);
     1040     }
     1041     else if( ionZ == 15 ) {
     1042        G4double L_15[31]={4.527,5.052,6.042,6.982,7.882,8.744,9.566,10.34,11.08,14.08,16.15,17.55,18.48,19.53,20.01,20.2,20.23,20.17,20.04,19.88,18.82,17.69,16.62,15.65,13.97,12.59,11.45,10.49,9.67,8.968,8.359};
     1043        physicsVector = CreatePhysicsVector(E,L_15,factor);
     1044     }
     1045     else if( ionZ == 16 ) {
     1046        G4double L_16[31]={4.659,5.201,6.216,7.177,8.1,8.985,9.833,10.64,11.41,14.61,16.87,18.43,19.5,20.75,21.36,21.64,21.74,21.72,21.64,21.5,20.5,19.38,18.29,17.29,15.53,14.06,12.84,11.79,10.9,10.13,9.462};
     1047        physicsVector = CreatePhysicsVector(E,L_16,factor);
     1048     }
     1049     else if( ionZ == 17 ) {
     1050        G4double L_17[31]={4.821,5.374,6.409,7.386,8.323,9.227,10.1,10.93,11.72,15.09,17.52,19.25,20.46,21.9,22.64,23.01,23.17,23.2,23.15,23.04,22.11,20.99,19.89,18.86,17.03,15.49,14.19,13.07,12.12,11.28,10.56};
     1051        physicsVector = CreatePhysicsVector(E,L_17,factor);
     1052     }
     1053     else if( ionZ == 18 ) {
     1054        G4double L_18[31]={4.923,5.487,6.539,7.527,8.475,9.391,10.27,11.12,11.94,15.45,18.04,19.92,21.26,22.89,23.75,24.21,24.43,24.51,24.49,24.4,23.52,22.41,21.3,20.24,18.36,16.77,15.4,14.24,13.23,12.35,11.58};
     1055        physicsVector = CreatePhysicsVector(E,L_18,factor);
     1056     }
     1057  }
     1058
     1059  else if( matName == namesMat[13] ) {
     1060     if( ionZ == 3 ) {
     1061        G4double M_3[31]={3.507,3.775,4.211,4.539,4.78,4.952,5.072,5.152,5.203,5.217,5.066,4.872,4.671,4.291,3.955,3.664,3.41,3.188,2.992,2.819,2.187,1.79,1.517,1.32,1.052,0.8799,0.759,0.6694,0.6001,0.5449,0.4998};
     1062        physicsVector = CreatePhysicsVector(E,M_3,factor);
     1063     }
     1064     else if( ionZ == 4 ) {
     1065        G4double M_4[31]={4.48,4.839,5.448,5.94,6.331,6.635,6.866,7.04,7.169,7.41,7.349,7.185,6.985,6.562,6.159,5.791,5.459,5.16,4.891,4.647,3.713,3.091,2.648,2.319,1.862,1.561,1.348,1.189,1.066,0.9678,0.8876};
     1066        physicsVector = CreatePhysicsVector(E,M_4,factor);
     1067     }
     1068     else if( ionZ == 5 ) {
     1069        G4double M_5[31]={5.276,5.728,6.503,7.151,7.691,8.133,8.489,8.772,8.995,9.539,9.619,9.522,9.352,8.935,8.501,8.087,7.7,7.342,7.013,6.71,5.503,4.657,4.034,3.559,2.884,2.428,2.102,1.856,1.665,1.512,1.386};
     1070        physicsVector = CreatePhysicsVector(E,M_5,factor);
     1071     }
     1072     else if( ionZ == 6 ) {
     1073        G4double M_6[31]={5.909,6.449,7.385,8.181,8.863,9.444,9.93,10.33,10.66,11.57,11.83,11.83,11.71,11.34,10.9,10.46,10.04,9.64,9.265,8.915,7.474,6.421,5.624,5,4.094,3.468,3.012,2.666,2.394,2.175,1.995};
     1074        physicsVector = CreatePhysicsVector(E,M_6,factor);
     1075     }
     1076     else if( ionZ == 7 ) {
     1077        G4double M_7[31]={6.512,7.125,8.193,9.111,9.914,10.61,11.22,11.74,12.17,13.47,13.96,14.09,14.05,13.74,13.33,12.89,12.44,12.02,11.61,11.23,9.59,8.349,7.384,6.615,5.473,4.667,4.07,3.612,3.249,2.956,2.713};
     1078        physicsVector = CreatePhysicsVector(E,M_7,factor);
     1079     }
     1080     else if( ionZ == 8 ) {
     1081        G4double M_8[31]={7.02,7.704,8.902,9.939,10.85,11.67,12.39,13.02,13.56,15.28,16.02,16.3,16.36,16.16,15.79,15.37,14.92,14.48,14.05,13.64,11.84,10.43,9.31,8.399,7.017,6.023,5.275,4.695,4.232,3.855,3.542};
     1082        physicsVector = CreatePhysicsVector(E,M_8,factor);
     1083     }
     1084     else if( ionZ == 9 ) {
     1085        G4double M_9[31]={7.39,8.136,9.451,10.59,11.61,12.53,13.35,14.08,14.72,16.86,17.86,18.3,18.47,18.39,18.07,17.67,17.23,16.79,16.35,15.92,14.01,12.47,11.22,10.19,8.599,7.436,6.549,5.853,5.292,4.832,4.448};
     1086        physicsVector = CreatePhysicsVector(E,M_9,factor);
     1087     }
     1088     else if( ionZ == 10 ) {
     1089        G4double M_10[31]={7.713,8.512,9.933,11.17,12.28,13.29,14.2,15.03,15.76,18.32,19.61,20.23,20.51,20.56,20.32,19.95,19.53,19.09,18.64,18.2,16.2,14.54,13.18,12.04,10.26,8.933,7.909,7.098,6.439,5.894,5.436};
     1090        physicsVector = CreatePhysicsVector(E,M_10,factor);
     1091     }
     1092     else if( ionZ == 11 ) {
     1093        G4double M_11[31]={7.985,8.827,10.34,11.67,12.87,13.95,14.95,15.87,16.7,19.7,21.3,22.14,22.57,22.8,22.65,22.34,21.95,21.52,21.08,20.64,18.56,16.8,15.32,14.07,12.09,10.59,9.417,8.48,7.713,7.076,6.537};
     1094        physicsVector = CreatePhysicsVector(E,M_11,factor);
     1095     }
     1096     else if( ionZ == 12 ) {
     1097        G4double M_12[31]={8.334,9.2,10.77,12.16,13.42,14.58,15.64,16.62,17.53,20.92,22.84,23.9,24.48,24.91,24.87,24.62,24.26,23.86,23.42,22.98,20.86,19,17.43,16.08,13.93,12.27,10.97,9.911,9.042,8.315,7.698};
     1098        physicsVector = CreatePhysicsVector(E,M_12,factor);
     1099     }
     1100     else if( ionZ == 13 ) {
     1101        G4double M_13[31]={8.64,9.535,11.16,12.62,13.95,15.16,16.28,17.33,18.3,22.05,24.28,25.57,26.32,26.96,27.05,26.87,26.57,26.19,25.78,25.35,23.19,21.27,19.61,18.17,15.84,14.04,12.6,11.43,10.46,9.637,8.938};
     1102        physicsVector = CreatePhysicsVector(E,M_13,factor);
     1103     }
     1104     else if( ionZ == 14 ) {
     1105        G4double M_14[31]={8.94,9.859,11.54,13.06,14.44,15.7,16.88,17.97,19,23.07,25.6,27.12,28.03,28.89,29.11,29.02,28.76,28.42,28.03,27.61,25.45,23.47,21.73,20.22,17.75,15.8,14.24,12.96,11.89,10.99,10.21};
     1106        physicsVector = CreatePhysicsVector(E,M_14,factor);
     1107     }
     1108     else if( ionZ == 15 ) {
     1109        G4double M_15[31]={9.314,10.26,11.99,13.56,15,16.32,17.54,18.69,19.76,24.14,26.97,28.71,29.8,30.9,31.27,31.27,31.09,30.8,30.44,30.05,27.91,25.88,24.08,22.49,19.85,17.76,16.07,14.66,13.49,12.49,11.63};
     1110        physicsVector = CreatePhysicsVector(E,M_15,factor);
     1111     }
     1112     else if( ionZ == 16 ) {
     1113        G4double M_16[31]={9.598,10.57,12.37,14,15.49,16.87,18.15,19.34,20.47,25.14,28.27,30.26,31.54,32.89,33.42,33.54,33.43,33.19,32.88,32.51,30.42,28.36,26.49,24.84,22.05,19.81,17.98,16.46,15.17,14.07,13.12};
     1114        physicsVector = CreatePhysicsVector(E,M_16,factor);
     1115     }
     1116     else if( ionZ == 17 ) {
     1117        G4double M_17[31]={9.983,10.97,12.8,14.46,16,17.42,18.74,19.98,21.15,26.06,29.46,31.68,33.13,34.73,35.42,35.64,35.61,35.43,35.15,34.81,32.77,30.69,28.78,27.06,24.15,21.79,19.84,18.21,16.83,15.64,14.61};
     1118        physicsVector = CreatePhysicsVector(E,M_17,factor);
     1119     }
     1120     else if( ionZ == 18 ) {
     1121        G4double M_18[31]={10.18,11.19,13.05,14.75,16.32,17.78,19.14,20.42,21.63,26.77,30.43,32.88,34.52,36.37,37.21,37.55,37.59,37.46,37.22,36.91,34.93,32.84,30.89,29.12,26.11,23.64,21.6,19.88,18.42,17.15,16.05};
     1122        physicsVector = CreatePhysicsVector(E,M_18,factor);
     1123     }
     1124  }
     1125
     1126  else if( matName == namesMat[14] ) {
     1127     if( ionZ == 3 ) {
     1128        G4double N_3[31]={2.654,2.875,3.232,3.499,3.697,3.84,3.942,4.013,4.059,4.086,3.975,3.828,3.676,3.388,3.134,2.912,2.719,2.548,2.398,2.264,1.77,1.455,1.238,1.08,0.8645,0.7247,0.6264,0.5534,0.4968,0.4516,0.4146};
     1129        physicsVector = CreatePhysicsVector(E,N_3,factor);
     1130     }
     1131     else if( ionZ == 4 ) {
     1132        G4double N_4[31]={3.29,3.594,4.103,4.51,4.833,5.088,5.286,5.438,5.552,5.786,5.758,5.641,5.493,5.179,4.878,4.602,4.351,4.124,3.918,3.731,3.007,2.517,2.165,1.901,1.532,1.287,1.114,0.984,0.8833,0.8027,0.7368};
     1133        physicsVector = CreatePhysicsVector(E,N_4,factor);
     1134     }
     1135     else if( ionZ == 5 ) {
     1136        G4double N_5[31]={3.785,4.166,4.817,5.355,5.801,6.169,6.471,6.715,6.912,7.417,7.519,7.465,7.347,7.046,6.727,6.42,6.131,5.863,5.614,5.384,4.456,3.794,3.301,2.922,2.377,2.007,1.74,1.539,1.381,1.255,1.152};
     1137        physicsVector = CreatePhysicsVector(E,N_5,factor);
     1138     }
     1139     else if( ionZ == 6 ) {
     1140        G4double N_6[31]={4.166,4.615,5.399,6.062,6.626,7.106,7.512,7.852,8.137,8.959,9.23,9.267,9.2,8.94,8.626,8.306,7.995,7.699,7.419,7.155,6.057,5.238,4.609,4.112,3.382,2.873,2.499,2.214,1.99,1.81,1.661};
     1141        physicsVector = CreatePhysicsVector(E,N_6,factor);
     1142     }
     1143     else if( ionZ == 7 ) {
     1144        G4double N_7[31]={4.507,5.009,5.902,6.671,7.339,7.919,8.421,8.854,9.225,10.39,10.86,11.02,11.02,10.84,10.55,10.23,9.915,9.603,9.302,9.015,7.779,6.82,6.063,5.452,4.532,3.876,3.386,3.008,2.708,2.465,2.264};
     1145        physicsVector = CreatePhysicsVector(E,N_7,factor);
     1146     }
     1147     else if( ionZ == 8 ) {
     1148        G4double N_8[31]={4.804,5.352,6.342,7.21,7.973,8.648,9.242,9.765,10.22,11.74,12.44,12.73,12.83,12.74,12.5,12.2,11.89,11.57,11.26,10.95,9.606,8.524,7.649,6.928,5.82,5.012,4.399,3.92,3.536,3.223,2.962};
     1149        physicsVector = CreatePhysicsVector(E,N_8,factor);
     1150     }
     1151     else if( ionZ == 9 ) {
     1152        G4double N_9[31]={5.032,5.618,6.689,7.641,8.489,9.247,9.924,10.53,11.06,12.92,13.86,14.3,14.49,14.51,14.33,14.05,13.75,13.43,13.11,12.8,11.38,10.2,9.227,8.415,7.144,6.199,5.471,4.896,4.431,4.048,3.727};
     1153        physicsVector = CreatePhysicsVector(E,N_9,factor);
     1154     }
     1155     else if( ionZ == 10 ) {
     1156        G4double N_10[31]={5.239,5.856,6.994,8.019,8.942,9.776,10.53,11.21,11.82,14.01,15.19,15.8,16.1,16.25,16.12,15.89,15.6,15.29,14.97,14.65,13.17,11.91,10.85,9.956,8.532,7.456,6.616,5.946,5.399,4.945,4.562};
     1157        physicsVector = CreatePhysicsVector(E,N_10,factor);
     1158     }
     1159     else if( ionZ == 11 ) {
     1160        G4double N_11[31]={5.425,6.072,7.277,8.376,9.379,10.29,11.13,11.89,12.58,15.17,16.66,17.51,17.97,18.33,18.33,18.18,17.95,17.67,17.38,17.07,15.58,14.24,13.08,12.07,10.44,9.172,8.168,7.356,6.687,6.127,5.653};
     1161        physicsVector = CreatePhysicsVector(E,N_11,factor);
     1162     }
     1163     else if( ionZ == 12 ) {
     1164        G4double N_12[31]={5.628,6.282,7.507,8.639,9.68,10.64,11.52,12.33,13.07,15.91,17.62,18.62,19.19,19.67,19.72,19.59,19.36,19.09,18.79,18.47,16.92,15.53,14.32,13.28,11.57,10.24,9.174,8.308,7.589,6.985,6.471};
     1165        physicsVector = CreatePhysicsVector(E,N_12,factor);
     1166     }
     1167     else if( ionZ == 13 ) {
     1168        G4double N_13[31]={5.824,6.493,7.751,8.919,10,11.01,11.94,12.81,13.61,16.73,18.7,19.89,20.61,21.28,21.45,21.38,21.2,20.95,20.67,20.36,18.8,17.37,16.1,14.99,13.15,11.71,10.54,9.579,8.777,8.098,7.517};
     1169        physicsVector = CreatePhysicsVector(E,N_13,factor);
     1170     }
     1171     else if( ionZ == 14 ) {
     1172        G4double N_14[31]={6.02,6.703,7.987,9.187,10.31,11.36,12.34,13.25,14.09,17.47,19.68,21.07,21.94,22.81,23.09,23.1,22.96,22.75,22.48,22.19,20.64,19.16,17.85,16.68,14.73,13.18,11.92,10.87,9.99,9.241,8.596};
     1173        physicsVector = CreatePhysicsVector(E,N_14,factor);
     1174     }
     1175     else if( ionZ == 15 ) {
     1176        G4double N_15[31]={6.246,6.943,8.254,9.482,10.64,11.72,12.74,13.7,14.59,18.21,20.66,22.25,23.28,24.37,24.79,24.89,24.82,24.64,24.41,24.15,22.63,21.13,19.77,18.56,16.5,14.83,13.46,12.31,11.35,10.52,9.8};
     1177        physicsVector = CreatePhysicsVector(E,N_15,factor);
     1178     }
     1179     else if( ionZ == 16 ) {
     1180        G4double N_16[31]={6.433,7.148,8.491,9.751,10.94,12.07,13.12,14.12,15.05,18.91,21.59,23.4,24.59,25.91,26.47,26.67,26.67,26.55,26.35,26.11,24.65,23.15,21.75,20.49,18.32,16.55,15.07,13.83,12.78,11.87,11.08};
     1181        physicsVector = CreatePhysicsVector(E,N_16,factor);
     1182     }
     1183     else if( ionZ == 17 ) {
     1184        G4double N_17[31]={6.668,7.395,8.757,10.04,11.25,12.4,13.49,14.52,15.49,19.55,22.45,24.45,25.81,27.35,28.06,28.36,28.42,28.35,28.19,27.98,26.57,25.07,23.64,22.34,20.08,18.21,16.65,15.32,14.19,13.21,12.35};
     1185        physicsVector = CreatePhysicsVector(E,N_17,factor);
     1186     }
     1187     else if( ionZ == 18 ) {
     1188        G4double N_18[31]={6.799,7.541,8.924,10.22,11.45,12.62,13.74,14.8,15.8,20.04,23.14,25.33,26.84,28.61,29.46,29.86,29.99,29.96,29.84,29.65,28.3,26.79,25.35,24.01,21.68,19.74,18.1,16.71,15.51,14.47,13.56};
     1189        physicsVector = CreatePhysicsVector(E,N_18,factor);
     1190     }
     1191  }
     1192
     1193  else if( matName == namesMat[15] ) {
     1194     if( ionZ == 3 ) {
     1195        G4double O_3[31]={2.784,3.026,3.417,3.703,3.906,4.047,4.141,4.202,4.238,4.231,4.103,3.948,3.79,3.492,3.23,3.001,2.801,2.625,2.469,2.331,1.821,1.496,1.272,1.108,0.8863,0.7423,0.6413,0.5662,0.5082,0.4618,0.4239};
     1196        physicsVector = CreatePhysicsVector(E,O_3,factor);
     1197     }
     1198     else if( ionZ == 4 ) {
     1199        G4double O_4[31]={3.441,3.767,4.322,4.765,5.11,5.374,5.57,5.714,5.818,6.004,5.951,5.822,5.666,5.341,5.031,4.746,4.487,4.252,4.039,3.845,3.096,2.589,2.225,1.952,1.571,1.319,1.14,1.007,0.9035,0.8208,0.7532};
     1200        physicsVector = CreatePhysicsVector(E,O_4,factor);
     1201     }
     1202     else if( ionZ == 5 ) {
     1203        G4double O_5[31]={3.957,4.361,5.063,5.649,6.133,6.524,6.834,7.078,7.266,7.715,7.782,7.711,7.583,7.27,6.941,6.625,6.327,6.05,5.792,5.554,4.592,3.905,3.395,3.001,2.438,2.057,1.782,1.575,1.413,1.284,1.178};
     1204        physicsVector = CreatePhysicsVector(E,O_5,factor);
     1205     }
     1206     else if( ionZ == 6 ) {
     1207        G4double O_6[31]={4.362,4.834,5.668,6.385,6.997,7.514,7.942,8.292,8.576,9.344,9.568,9.581,9.501,9.227,8.903,8.573,8.253,7.947,7.657,7.384,6.245,5.394,4.741,4.226,3.47,2.944,2.559,2.266,2.036,1.85,1.698};
     1208        physicsVector = CreatePhysicsVector(E,O_6,factor);
     1209     }
     1210     else if( ionZ == 7 ) {
     1211        G4double O_7[31]={4.74,5.265,6.205,7.026,7.747,8.374,8.912,9.367,9.748,10.87,11.29,11.41,11.4,11.19,10.89,10.57,10.24,9.915,9.604,9.307,8.022,7.024,6.237,5.602,4.65,3.971,3.466,3.077,2.769,2.519,2.313};
     1212        physicsVector = CreatePhysicsVector(E,O_7,factor);
     1213     }
     1214     else if( ionZ == 8 ) {
     1215        G4double O_8[31]={5.063,5.635,6.671,7.587,8.405,9.133,9.773,10.33,10.81,12.3,12.94,13.2,13.27,13.16,12.91,12.6,12.27,11.95,11.62,11.31,9.911,8.784,7.871,7.122,5.972,5.136,4.503,4.009,3.615,3.293,3.025};
     1216        physicsVector = CreatePhysicsVector(E,O_8,factor);
     1217     }
     1218     else if( ionZ == 9 ) {
     1219        G4double O_9[31]={7.121,7.892,9.331,10.67,11.93,13.12,14.24,15.31,16.32,20.61,23.59,25.53,26.82,28.26,28.93,29.21,29.27,29.19,29.03,28.81,27.36,25.79,24.3,22.94,20.59,18.64,17.02,15.65,14.48,13.47,12.59};
     1220        physicsVector = CreatePhysicsVector(E,O_9,factor);
     1221     }
     1222     else if( ionZ == 10 ) {
     1223        G4double O_10[31]={5.543,6.188,7.373,8.442,9.413,10.3,11.11,11.84,12.49,14.73,15.84,16.4,16.66,16.77,16.63,16.38,16.08,15.76,15.44,15.11,13.56,12.25,11.15,10.22,8.743,7.63,6.764,6.074,5.512,5.046,4.655};
     1224        physicsVector = CreatePhysicsVector(E,O_10,factor);
     1225     }
     1226     else if( ionZ == 11 ) {
     1227        G4double O_11[31]={5.732,6.403,7.645,8.776,9.811,10.76,11.64,12.45,13.18,15.8,17.2,17.93,18.32,18.59,18.53,18.33,18.06,17.76,17.44,17.11,15.53,14.14,12.95,11.93,10.3,9.044,8.057,7.261,6.609,6.064,5.603};
     1228        physicsVector = CreatePhysicsVector(E,O_11,factor);
     1229     }
     1230     else if( ionZ == 12 ) {
     1231        G4double O_12[31]={5.969,6.654,7.93,9.104,10.19,11.19,12.12,12.99,13.78,16.75,18.42,19.34,19.87,20.29,20.33,20.19,19.95,19.67,19.36,19.04,17.42,15.98,14.72,13.63,11.86,10.48,9.379,8.487,7.749,7.129,6.601};
     1232        physicsVector = CreatePhysicsVector(E,O_12,factor);
     1233     }
     1234     else if( ionZ == 13 ) {
     1235        G4double O_13[31]={6.184,6.887,8.201,9.414,10.54,11.59,12.57,13.48,14.33,17.62,19.56,20.69,21.35,21.96,22.1,22.03,21.84,21.58,21.29,20.98,19.36,17.87,16.55,15.39,13.48,11.98,10.78,9.788,8.963,8.266,7.67};
     1236        physicsVector = CreatePhysicsVector(E,O_13,factor);
     1237     }
     1238     else if( ionZ == 14 ) {
     1239        G4double O_14[31]={6.399,7.118,8.463,9.71,10.87,11.96,12.98,13.94,14.83,18.4,20.6,21.93,22.73,23.53,23.79,23.79,23.64,23.42,23.15,22.85,21.24,19.71,18.33,17.12,15.1,13.49,12.18,11.1,10.2,9.43,8.769};
     1240        physicsVector = CreatePhysicsVector(E,O_14,factor);
     1241     }
     1242     else if( ionZ == 15 ) {
     1243        G4double O_15[31]={6.653,7.389,8.766,10.05,11.24,12.37,13.42,14.42,15.36,19.19,21.66,23.19,24.15,25.16,25.55,25.63,25.56,25.38,25.14,24.87,23.3,21.74,20.32,19.05,16.91,15.18,13.76,12.58,11.58,10.73,9.995};
     1244        physicsVector = CreatePhysicsVector(E,O_15,factor);
     1245     }
     1246     else if( ionZ == 16 ) {
     1247        G4double O_16[31]={6.858,7.616,9.031,10.35,11.58,12.74,13.84,14.87,15.85,19.93,22.66,24.41,25.53,26.76,27.29,27.48,27.47,27.34,27.15,26.9,25.39,23.82,22.36,21.05,18.79,16.94,15.42,14.14,13.05,12.11,11.3};
     1248        physicsVector = CreatePhysicsVector(E,O_16,factor);
     1249     }
     1250     else if( ionZ == 17 ) {
     1251        G4double O_17[31]={7.121,7.892,9.331,10.67,11.93,13.12,14.24,15.31,16.32,20.61,23.59,25.53,26.82,28.26,28.93,29.21,29.27,29.19,29.03,28.81,27.36,25.79,24.3,22.94,20.59,18.64,17.02,15.65,14.48,13.47,12.59};
     1252        physicsVector = CreatePhysicsVector(E,O_17,factor);
     1253     }
     1254     else if( ionZ == 18 ) {
     1255        G4double O_18[31]={7.278,8.066,9.53,10.89,12.17,13.38,14.53,15.62,16.66,21.14,24.34,26.49,27.93,29.6,30.41,30.78,30.91,30.88,30.76,30.57,29.17,27.6,26.09,24.69,22.25,20.22,18.52,17.08,15.84,14.77,13.83};
     1256        physicsVector = CreatePhysicsVector(E,O_18,factor);
     1257     }
     1258  }
     1259
     1260  else if( matName == namesMat[16] ) {
     1261     if( ionZ == 3 ) {
     1262        G4double P_3[31]={1.023,1.127,1.298,1.427,1.522,1.591,1.641,1.677,1.704,1.755,1.743,1.711,1.671,1.585,1.5,1.42,1.346,1.279,1.218,1.162,0.9451,0.7987,0.6937,0.6149,0.5043,0.4302,0.3768,0.3364,0.3046,0.2788,0.2575};
     1263        physicsVector = CreatePhysicsVector(E,P_3,factor);
     1264     }
     1265     else if( ionZ == 4 ) {
     1266        G4double P_4[31]={1.245,1.386,1.628,1.825,1.983,2.106,2.202,2.276,2.335,2.487,2.524,2.517,2.489,2.41,2.319,2.227,2.138,2.053,1.972,1.897,1.589,1.367,1.201,1.073,0.8873,0.7599,0.667,0.596,0.54,0.4945,0.4569};
     1267        physicsVector = CreatePhysicsVector(E,P_4,factor);
     1268     }
     1269     else if( ionZ == 5 ) {
     1270        G4double P_5[31]={1.418,1.587,1.888,2.146,2.363,2.543,2.689,2.808,2.904,3.184,3.29,3.323,3.32,3.266,3.184,3.091,2.996,2.9,2.808,2.719,2.336,2.043,1.816,1.635,1.366,1.177,1.036,0.9275,0.8412,0.7709,0.7124};
     1271        physicsVector = CreatePhysicsVector(E,P_5,factor);
     1272     }
     1273     else if( ionZ == 6 ) {
     1274        G4double P_6[31]={1.557,1.747,2.097,2.406,2.676,2.91,3.107,3.273,3.411,3.837,4.029,4.114,4.146,4.132,4.07,3.986,3.892,3.794,3.695,3.598,3.158,2.803,2.517,2.285,1.93,1.674,1.48,1.328,1.207,1.107,1.024};
     1275        physicsVector = CreatePhysicsVector(E,P_6,factor);
     1276     }
     1277     else if( ionZ == 7 ) {
     1278        G4double P_7[31]={1.678,1.883,2.268,2.618,2.933,3.213,3.458,3.669,3.85,4.436,4.726,4.876,4.951,4.991,4.96,4.894,4.809,4.715,4.616,4.515,4.036,3.63,3.292,3.011,2.572,2.246,1.995,1.796,1.635,1.502,1.391};
     1279        physicsVector = CreatePhysicsVector(E,P_7,factor);
     1280     }
     1281     else if( ionZ == 8 ) {
     1282        G4double P_8[31]={1.791,2.007,2.419,2.803,3.155,3.476,3.764,4.019,4.242,4.994,5.393,5.614,5.74,5.845,5.854,5.813,5.744,5.658,5.563,5.463,4.961,4.512,4.129,3.802,3.281,2.886,2.576,2.328,2.125,1.955,1.812};
     1283        physicsVector = CreatePhysicsVector(E,P_8,factor);
     1284     }
     1285     else if( ionZ == 9 ) {
     1286        G4double P_9[31]={1.889,2.115,2.548,2.958,3.34,3.694,4.02,4.313,4.575,5.493,6.004,6.304,6.485,6.663,6.716,6.704,6.654,6.58,6.493,6.397,5.885,5.404,4.984,4.62,4.026,3.567,3.201,2.905,2.659,2.453,2.278};
     1287        physicsVector = CreatePhysicsVector(E,P_9,factor);
     1288     }
     1289     else if( ionZ == 10 ) {
     1290        G4double P_10[31]={1.981,2.217,2.667,3.097,3.504,3.885,4.241,4.569,4.867,5.948,6.577,6.96,7.202,7.46,7.564,7.585,7.559,7.501,7.424,7.335,6.824,6.321,5.868,5.47,4.811,4.29,3.871,3.527,3.239,2.996,2.788};
     1291        physicsVector = CreatePhysicsVector(E,P_10,factor);
     1292     }
     1293     else if( ionZ == 11 ) {
     1294        G4double P_11[31]={2.062,2.309,2.776,3.225,3.654,4.061,4.446,4.806,5.138,6.389,7.15,7.631,7.948,8.31,8.483,8.553,8.561,8.529,8.471,8.395,7.906,7.387,6.906,6.472,5.739,5.149,4.665,4.264,3.925,3.637,3.388};
     1295        physicsVector = CreatePhysicsVector(E,P_11,factor);
     1296     }
     1297     else if( ionZ == 12 ) {
     1298        G4double P_12[31]={2.147,2.4,2.877,3.336,3.778,4.201,4.604,4.986,5.344,6.735,7.608,8.174,8.553,9,9.226,9.334,9.368,9.354,9.308,9.241,8.762,8.231,7.73,7.275,6.498,5.865,5.342,4.905,4.532,4.213,3.937};
     1299        physicsVector = CreatePhysicsVector(E,P_12,factor);
     1300     }
     1301     else if( ionZ == 13 ) {
     1302        G4double P_13[31]={2.227,2.489,2.98,3.448,3.903,4.341,4.761,5.163,5.544,7.074,8.069,8.729,9.181,9.73,10.02,10.18,10.25,10.26,10.24,10.19,9.739,9.205,8.686,8.209,7.381,6.698,6.128,5.645,5.233,4.877,4.566};
     1303        physicsVector = CreatePhysicsVector(E,P_13,factor);
     1304     }
     1305     else if( ionZ == 14 ) {
     1306        G4double P_14[31]={2.303,2.574,3.079,3.557,4.021,4.47,4.905,5.322,5.722,7.378,8.491,9.246,9.773,10.43,10.79,11,11.11,11.15,11.15,11.11,10.71,10.17,9.643,9.147,8.275,7.546,6.931,6.407,5.957,5.565,5.222};
     1307        physicsVector = CreatePhysicsVector(E,P_14,factor);
     1308     }
     1309     else if( ionZ == 15 ) {
     1310        G4double P_15[31]={2.379,2.659,3.178,3.665,4.137,4.597,5.043,5.474,5.89,7.66,8.89,9.743,10.35,11.12,11.56,11.83,11.98,12.06,12.08,12.07,11.72,11.2,10.66,10.15,9.236,8.462,7.802,7.235,6.743,6.314,5.935};
     1311        physicsVector = CreatePhysicsVector(E,P_15,factor);
     1312     }
     1313     else if( ionZ == 16 ) {
     1314        G4double P_16[31]={1.791,2.007,2.419,2.803,3.155,3.476,3.764,4.019,4.242,4.994,5.393,5.614,5.74,5.845,5.854,5.813,5.744,5.658,5.563,5.463,4.961,4.512,4.129,3.802,3.281,2.886,2.576,2.328,2.125,1.955,1.812};
     1315        physicsVector = CreatePhysicsVector(E,P_16,factor);
     1316     }
     1317     else if( ionZ == 17 ) {
     1318        G4double P_17[31]={2.525,2.82,3.37,3.879,4.368,4.844,5.308,5.761,6.202,8.163,9.615,10.66,11.42,12.43,13.04,13.43,13.68,13.83,13.92,13.95,13.74,13.26,12.72,12.19,11.21,10.35,9.614,8.967,8.4,7.898,7.452};
     1319        physicsVector = CreatePhysicsVector(E,P_17,factor);
     1320     }
     1321     else if( ionZ == 18 ) {
     1322        G4double P_18[31]={2.583,2.886,3.449,3.97,4.466,4.948,5.419,5.879,6.328,8.364,9.915,11.05,11.89,13.02,13.71,14.16,14.46,14.65,14.76,14.82,14.67,14.22,13.68,13.15,12.14,11.26,10.48,9.805,9.206,8.674,8.2};
     1323        physicsVector = CreatePhysicsVector(E,P_18,factor);
     1324     }
     1325  }
     1326
     1327  else if( matName == namesMat[17] ) {
     1328     if( ionZ == 3 ) {
     1329        G4double Q_3[31]={2.597,2.831,3.212,3.493,3.691,3.828,3.919,3.977,4.012,4.006,3.89,3.747,3.601,3.326,3.081,2.867,2.679,2.513,2.366,2.235,1.75,1.439,1.224,1.068,0.8543,0.7158,0.6185,0.5463,0.4904,0.4457,0.4092};
     1330        physicsVector = CreatePhysicsVector(E,Q_3,factor);
     1331     }
     1332     else if( ionZ == 4 ) {
     1333        G4double Q_4[31]={3.198,3.511,4.048,4.481,4.821,5.078,5.269,5.409,5.509,5.688,5.643,5.528,5.387,5.088,4.801,4.536,4.294,4.073,3.872,3.689,2.977,2.493,2.144,1.881,1.515,1.273,1.1,0.9718,0.8721,0.7924,0.7272};
     1334        physicsVector = CreatePhysicsVector(E,Q_4,factor);
     1335     }
     1336     else if( ionZ == 5 ) {
     1337        G4double Q_5[31]={3.674,4.056,4.73,5.3,5.774,6.157,6.461,6.698,6.881,7.313,7.382,7.323,7.21,6.926,6.626,6.333,6.056,5.797,5.555,5.331,4.419,3.763,3.273,2.896,2.354,1.985,1.72,1.52,1.365,1.24,1.137};
     1338        physicsVector = CreatePhysicsVector(E,Q_5,factor);
     1339     }
     1340     else if( ionZ == 6 ) {
     1341        G4double Q_6[31]={4.051,4.495,5.289,5.98,6.577,7.083,7.502,7.845,8.121,8.862,9.081,9.103,9.036,8.794,8.5,8.198,7.901,7.617,7.346,7.09,6.012,5.2,4.574,4.079,3.351,2.844,2.472,2.189,1.967,1.787,1.64};
     1342        physicsVector = CreatePhysicsVector(E,Q_6,factor);
     1343     }
     1344     else if( ionZ == 7 ) {
     1345        G4double Q_7[31]={4.399,4.891,5.779,6.565,7.264,7.876,8.403,8.849,9.221,10.31,10.71,10.84,10.84,10.67,10.4,10.11,9.804,9.506,9.216,8.938,7.725,6.775,6.021,5.411,4.493,3.838,3.351,2.975,2.677,2.435,2.235};
     1346        physicsVector = CreatePhysicsVector(E,Q_7,factor);
     1347     }
     1348     else if( ionZ == 8 ) {
     1349        G4double Q_8[31]={4.708,5.245,6.219,7.091,7.878,8.585,9.21,9.755,10.22,11.68,12.29,12.55,12.63,12.55,12.33,12.05,11.76,11.46,11.16,10.87,9.548,8.476,7.603,6.883,5.775,4.967,4.355,3.878,3.496,3.184,2.926};
     1350        physicsVector = CreatePhysicsVector(E,Q_8,factor);
     1351     }
     1352     else if( ionZ == 9 ) {
     1353        G4double Q_9[31]={4.95,5.523,6.572,7.516,8.376,9.161,9.871,10.5,11.06,12.88,13.72,14.1,14.27,14.29,14.12,13.87,13.59,13.29,12.99,12.69,11.3,10.13,9.163,8.353,7.083,6.139,5.414,4.841,4.378,3.998,3.68};
     1354        physicsVector = CreatePhysicsVector(E,Q_9,factor);
     1355     }
     1356     else if( ionZ == 10 ) {
     1357        G4double Q_10[31]={5.171,5.776,6.888,7.895,8.819,9.67,10.45,11.16,11.8,13.98,15.06,15.6,15.86,15.99,15.88,15.67,15.4,15.11,14.81,14.51,13.06,11.82,10.76,9.872,8.452,7.378,6.542,5.875,5.331,4.881,4.502};
     1358        physicsVector = CreatePhysicsVector(E,Q_10,factor);
     1359     }
     1360     else if( ionZ == 11 ) {
     1361        G4double Q_11[31]={5.362,5.997,7.176,8.252,9.245,10.17,11.03,11.82,12.54,15.16,16.55,17.3,17.72,18.06,18.08,17.95,17.74,17.49,17.22,16.93,15.49,14.17,13.02,12.02,10.39,9.122,8.117,7.303,6.634,6.075,5.602};
     1362        physicsVector = CreatePhysicsVector(E,Q_11,factor);
     1363     }
     1364     else if( ionZ == 12 ) {
     1365        G4double Q_12[31]={5.572,6.215,7.413,8.517,9.541,10.5,11.39,12.23,13,15.9,17.51,18.4,18.91,19.35,19.41,19.3,19.1,18.85,18.57,18.27,16.77,15.4,14.21,13.17,11.46,10.13,9.076,8.213,7.499,6.899,6.388};
     1366        physicsVector = CreatePhysicsVector(E,Q_12,factor);
     1367     }
     1368     else if( ionZ == 13 ) {
     1369        G4double Q_13[31]={5.774,6.434,7.668,8.809,9.871,10.87,11.8,12.68,13.51,16.71,18.59,19.68,20.32,20.93,21.1,21.05,20.9,20.67,20.41,20.13,18.63,17.22,15.96,14.86,13.03,11.59,10.43,9.471,8.674,7.999,7.422};
     1370        physicsVector = CreatePhysicsVector(E,Q_13,factor);
     1371     }
     1372     else if( ionZ == 14 ) {
     1373        G4double Q_14[31]={5.976,6.651,7.915,9.089,10.18,11.21,12.18,13.1,13.97,17.45,19.59,20.86,21.64,22.43,22.7,22.73,22.62,22.43,22.19,21.92,20.43,18.99,17.69,16.53,14.59,13.05,11.79,10.74,9.87,9.126,8.486};
     1374        physicsVector = CreatePhysicsVector(E,Q_14,factor);
     1375     }
     1376     else if( ionZ == 15 ) {
     1377        G4double Q_15[31]={6.211,6.903,8.199,9.405,10.53,11.59,12.6,13.55,14.45,18.19,20.58,22.06,22.99,23.98,24.38,24.49,24.45,24.3,24.1,23.86,22.42,20.95,19.61,18.4,16.34,14.68,13.32,12.18,11.21,10.39,9.676};
     1378        physicsVector = CreatePhysicsVector(E,Q_15,factor);
     1379     }
     1380     else if( ionZ == 16 ) {
     1381        G4double Q_16[31]={6.402,7.115,8.448,9.69,10.85,11.95,12.98,13.97,14.91,18.88,21.54,23.22,24.31,25.51,26.05,26.26,26.28,26.19,26.02,25.8,24.43,22.96,21.58,20.33,18.17,16.39,14.92,13.69,12.63,11.73,10.94};
     1382        physicsVector = CreatePhysicsVector(E,Q_16,factor);
     1383     }
     1384     else if( ionZ == 17 ) {
     1385        G4double Q_17[31]={6.647,7.373,8.73,9.996,11.18,12.3,13.37,14.38,15.35,19.51,22.41,24.29,25.53,26.94,27.61,27.91,28,27.96,27.83,27.64,26.33,24.86,23.46,22.16,19.91,18.04,16.48,15.16,14.03,13.05,12.2};
     1386        physicsVector = CreatePhysicsVector(E,Q_17,factor);
     1387     }
     1388     else if( ionZ == 18 ) {
     1389        G4double Q_18[31]={6.781,7.522,8.903,10.19,11.4,12.54,13.62,14.65,15.64,19.98,23.1,25.17,26.56,28.17,28.98,29.37,29.52,29.52,29.42,29.26,28.01,26.54,25.12,23.79,21.47,19.53,17.9,16.51,15.32,14.28,13.38};
     1390        physicsVector = CreatePhysicsVector(E,Q_18,factor);
     1391     }
     1392  }
     1393
     1394  else if( matName == namesMat[18] ) {
     1395     if( ionZ == 3 ) {
     1396        G4double R_3[31]={2.358,2.573,2.927,3.191,3.383,3.517,3.609,3.671,3.709,3.726,3.628,3.501,3.37,3.119,2.895,2.698,2.524,2.37,2.234,2.112,1.658,1.366,1.163,1.015,0.8137,0.6824,0.59,0.5214,0.4682,0.4258,0.391};
     1397        physicsVector = CreatePhysicsVector(E,R_3,factor);
     1398     }
     1399     else if( ionZ == 4 ) {
     1400        G4double R_4[31]={2.899,3.186,3.682,4.086,4.408,4.656,4.843,4.983,5.085,5.286,5.263,5.166,5.041,4.773,4.512,4.269,4.046,3.842,3.656,3.486,2.822,2.367,2.038,1.79,1.443,1.213,1.05,0.9278,0.8329,0.7571,0.695};
     1401        physicsVector = CreatePhysicsVector(E,R_4,factor);
     1402     }
     1403     else if( ionZ == 5 ) {
     1404        G4double R_5[31]={3.326,3.677,4.296,4.825,5.269,5.633,5.926,6.158,6.34,6.789,6.88,6.841,6.747,6.497,6.226,5.959,5.706,5.467,5.245,5.037,4.188,3.574,3.113,2.757,2.243,1.894,1.642,1.452,1.303,1.184,1.087};
     1405        physicsVector = CreatePhysicsVector(E,R_5,factor);
     1406     }
     1407     else if( ionZ == 6 ) {
     1408        G4double R_6[31]={3.666,4.073,4.802,5.44,5.996,6.471,6.871,7.201,7.471,8.219,8.46,8.503,8.456,8.249,7.988,7.715,7.445,7.185,6.936,6.7,5.699,4.94,4.352,3.886,3.196,2.715,2.361,2.092,1.88,1.709,1.568};
     1409        physicsVector = CreatePhysicsVector(E,R_6,factor);
     1410     }
     1411     else if( ionZ == 7 ) {
     1412        G4double R_7[31]={3.974,4.425,5.241,5.967,6.615,7.188,7.685,8.11,8.47,9.55,9.975,10.12,10.14,10,9.776,9.513,9.24,8.969,8.704,8.448,7.327,6.439,5.732,5.158,4.289,3.667,3.203,2.844,2.56,2.329,2.139};
     1413        physicsVector = CreatePhysicsVector(E,R_7,factor);
     1414     }
     1415     else if( ionZ == 8 ) {
     1416        G4double R_8[31]={4.249,4.74,5.635,6.439,7.168,7.827,8.414,8.93,9.377,10.8,11.43,11.71,11.81,11.77,11.58,11.34,11.08,10.8,10.53,10.26,9.055,8.057,7.239,6.562,5.515,4.748,4.166,3.711,3.346,3.048,2.801};
     1417        physicsVector = CreatePhysicsVector(E,R_8,factor);
     1418     }
     1419     else if( ionZ == 9 ) {
     1420        G4double R_9[31]={4.469,4.993,5.956,6.826,7.623,8.352,9.016,9.611,10.13,11.9,12.75,13.16,13.35,13.4,13.27,13.06,12.81,12.54,12.26,11.99,10.71,9.634,8.728,7.967,6.767,5.871,5.181,4.635,4.193,3.829,3.525};
     1421        physicsVector = CreatePhysicsVector(E,R_9,factor);
     1422     }
     1423     else if( ionZ == 10 ) {
     1424        G4double R_10[31]={4.672,5.224,6.244,7.173,8.027,8.818,9.547,10.21,10.81,12.92,14,14.55,14.84,15.01,14.93,14.75,14.52,14.26,13.99,13.72,12.39,11.23,10.25,9.418,8.077,7.058,6.263,5.627,5.108,4.677,4.314};
     1425        physicsVector = CreatePhysicsVector(E,R_10,factor);
     1426     }
     1427     else if( ionZ == 11 ) {
     1428        G4double R_11[31]={4.841,5.42,6.5,7.49,8.406,9.261,10.06,10.8,11.47,13.97,15.35,16.11,16.54,16.9,16.95,16.85,16.68,16.46,16.21,15.96,14.64,13.43,12.36,11.42,9.896,8.702,7.752,6.981,6.345,5.813,5.362};
     1429        physicsVector = CreatePhysicsVector(E,R_11,factor);
     1430     }
     1431     else if( ionZ == 12 ) {
     1432        G4double R_12[31]={5.029,5.617,6.716,7.735,8.682,9.568,10.4,11.18,11.9,14.66,16.25,17.16,17.68,18.15,18.25,18.17,18,17.78,17.53,17.27,15.9,14.64,13.52,12.55,10.95,9.694,8.688,7.867,7.186,6.613,6.125};
     1433        physicsVector = CreatePhysicsVector(E,R_12,factor);
     1434     }
     1435     else if( ionZ == 13 ) {
     1436        G4double R_13[31]={5.209,5.812,6.943,7.995,8.978,9.901,10.77,11.59,12.36,15.41,17.25,18.34,18.99,19.64,19.83,19.82,19.7,19.51,19.28,19.02,17.66,16.36,15.19,14.16,12.45,11.08,9.982,9.073,8.313,7.669,7.118};
     1437        physicsVector = CreatePhysicsVector(E,R_13,factor);
     1438     }
     1439     else if( ionZ == 14 ) {
     1440        G4double R_14[31]={5.387,6.004,7.163,8.245,9.259,10.21,11.11,11.97,12.78,16.07,18.16,19.43,20.22,21.04,21.34,21.4,21.32,21.16,20.96,20.72,19.37,18.04,16.83,15.76,13.93,12.47,11.28,10.29,9.46,8.75,8.139};
     1441        physicsVector = CreatePhysicsVector(E,R_14,factor);
     1442     }
     1443     else if( ionZ == 15 ) {
     1444        G4double R_15[31]={5.591,6.222,7.409,8.52,9.564,10.54,11.48,12.37,13.21,16.74,19.07,20.53,21.47,22.49,22.92,23.06,23.05,22.94,22.76,22.55,21.25,19.91,18.67,17.54,15.61,14.04,12.75,11.66,10.75,9.965,9.285};
     1445        physicsVector = CreatePhysicsVector(E,R_15,factor);
     1446     }
     1447     else if( ionZ == 16 ) {
     1448        G4double R_16[31]={5.759,6.409,7.629,8.771,9.848,10.86,11.82,12.74,13.62,17.37,19.93,21.6,22.69,23.91,24.48,24.72,24.77,24.71,24.57,24.39,23.16,21.82,20.55,19.38,17.35,15.68,14.29,13.12,12.11,11.25,10.5};
     1449        physicsVector = CreatePhysicsVector(E,R_16,factor);
     1450     }
     1451     else if( ionZ == 17 ) {
     1452        G4double R_17[31]={5.972,6.633,7.875,9.04,10.14,11.18,12.17,13.11,14.02,17.94,20.73,22.58,23.82,25.25,25.95,26.28,26.4,26.38,26.28,26.13,24.97,23.63,22.33,21.13,19.02,17.26,15.79,14.53,13.45,12.52,11.71};
     1453        physicsVector = CreatePhysicsVector(E,R_17,factor);
     1454     }
     1455     else if( ionZ == 18 ) {
     1456        G4double R_18[31]={6.093,6.768,8.031,9.213,10.33,11.39,12.39,13.36,14.28,18.36,21.35,23.39,24.78,26.41,27.24,27.65,27.83,27.86,27.8,27.67,26.56,25.23,23.92,22.68,20.52,18.69,17.14,15.83,14.69,13.71,12.84};
     1457        physicsVector = CreatePhysicsVector(E,R_18,factor);
     1458     }
     1459  }
     1460
     1461  else if( matName == namesMat[19] ) {
     1462     if( ionZ == 3 ) {
     1463        G4double S_3[31]={3.038,3.3,3.719,4.021,4.232,4.375,4.469,4.527,4.56,4.531,4.384,4.211,4.037,3.712,3.428,3.181,2.966,2.777,2.61,2.462,1.918,1.574,1.337,1.164,0.9296,0.778,0.6717,0.5928,0.5318,0.4832,0.4433};
     1464        physicsVector = CreatePhysicsVector(E,S_3,factor);
     1465     }
     1466     else if( ionZ == 4 ) {
     1467        G4double S_4[31]={3.761,4.114,4.711,5.183,5.547,5.82,6.02,6.164,6.267,6.432,6.358,6.209,6.036,5.678,5.34,5.03,4.751,4.498,4.269,4.062,3.261,2.722,2.337,2.048,1.647,1.382,1.194,1.054,0.9453,0.8586,0.7877};
     1468        physicsVector = CreatePhysicsVector(E,S_4,factor);
     1469     }
     1470     else if( ionZ == 5 ) {
     1471        G4double S_5[31]={4.329,4.766,5.525,6.153,6.667,7.077,7.399,7.648,7.839,8.273,8.318,8.226,8.079,7.729,7.368,7.023,6.7,6.4,6.123,5.866,4.837,4.106,3.565,3.149,2.555,2.154,1.865,1.647,1.478,1.342,1.231};
     1472        physicsVector = CreatePhysicsVector(E,S_5,factor);
     1473     }
     1474     else if( ionZ == 6 ) {
     1475        G4double S_6[31]={4.774,5.286,6.188,6.959,7.613,8.16,8.609,8.972,9.264,10.03,10.23,10.22,10.12,9.809,9.45,9.088,8.738,8.406,8.093,7.799,6.576,5.669,4.976,4.431,3.634,3.081,2.677,2.369,2.128,1.934,1.774};
     1476        physicsVector = CreatePhysicsVector(E,S_6,factor);
     1477     }
     1478     else if( ionZ == 7 ) {
     1479        G4double S_7[31]={5.194,5.763,6.779,7.664,8.436,9.103,9.671,10.15,10.54,11.67,12.07,12.17,12.14,11.9,11.56,11.2,10.84,10.49,10.15,9.827,8.445,7.38,6.543,5.872,4.867,4.154,3.624,3.216,2.893,2.632,2.416};
     1480        physicsVector = CreatePhysicsVector(E,S_7,factor);
     1481     }
     1482     else if( ionZ == 8 ) {
     1483        G4double S_8[31]={5.553,6.174,7.294,8.281,9.159,9.936,10.61,11.2,11.7,13.23,13.85,14.09,14.14,13.99,13.7,13.35,13,12.64,12.28,11.94,10.43,9.228,8.257,7.463,6.249,5.369,4.705,4.188,3.775,3.438,3.158};
     1484        physicsVector = CreatePhysicsVector(E,S_8,factor);
     1485     }
     1486     else if( ionZ == 9 ) {
     1487        G4double S_9[31]={5.826,6.49,7.698,8.774,9.741,10.61,11.39,12.07,12.67,14.59,15.45,15.83,15.97,15.92,15.68,15.36,15.01,14.65,14.3,13.94,12.34,11.03,9.95,9.055,7.662,6.633,5.845,5.225,4.725,4.313,3.97};
     1488        physicsVector = CreatePhysicsVector(E,S_9,factor);
     1489     }
     1490     else if( ionZ == 10 ) {
     1491        G4double S_10[31]={6.073,6.774,8.058,9.21,10.25,11.21,12.07,12.84,13.53,15.85,16.96,17.5,17.75,17.82,17.64,17.35,17.02,16.66,16.3,15.94,14.27,12.87,11.69,10.7,9.143,7.971,7.062,6.339,5.751,5.264,4.855};
     1492        physicsVector = CreatePhysicsVector(E,S_10,factor);
     1493     }
     1494     else if( ionZ == 11 ) {
     1495        G4double S_11[31]={6.28,7.01,8.355,9.574,10.69,11.71,12.65,13.51,14.28,17.02,18.42,19.15,19.52,19.75,19.66,19.42,19.11,18.77,18.42,18.06,16.34,14.85,13.58,12.5,10.77,9.448,8.411,7.577,6.894,6.324,5.843};
     1496        physicsVector = CreatePhysicsVector(E,S_11,factor);
     1497     }
     1498     else if( ionZ == 12 ) {
     1499        G4double S_12[31]={6.544,7.288,8.67,9.936,11.1,12.18,13.17,14.1,14.94,18.04,19.74,20.67,21.17,21.57,21.57,21.39,21.12,20.8,20.45,20.1,18.35,16.78,15.44,14.28,12.4,10.95,9.793,8.857,8.083,7.434,6.883};
     1500        physicsVector = CreatePhysicsVector(E,S_12,factor);
     1501     }
     1502     else if( ionZ == 13 ) {
     1503        G4double S_13[31]={6.783,7.547,8.969,10.28,11.49,12.61,13.66,14.64,15.54,18.99,20.98,22.11,22.76,23.34,23.45,23.34,23.11,22.82,22.5,22.15,20.39,18.77,17.36,16.13,14.11,12.52,11.25,10.21,9.349,8.619,7.996};
     1504        physicsVector = CreatePhysicsVector(E,S_13,factor);
     1505     }
     1506     else if( ionZ == 14 ) {
     1507        G4double S_14[31]={7.021,7.803,9.26,10.61,11.86,13.02,14.11,15.13,16.09,19.85,22.11,23.44,24.24,25.01,25.24,25.2,25.02,24.76,24.46,24.13,22.37,20.71,19.24,17.94,15.8,14.1,12.72,11.59,10.64,9.832,9.14};
     1508        physicsVector = CreatePhysicsVector(E,S_14,factor);
     1509     }
     1510     else if( ionZ == 15 ) {
     1511        G4double S_15[31]={7.309,8.11,9.602,10.98,12.27,13.47,14.6,15.67,16.67,20.71,23.26,24.8,25.76,26.75,27.11,27.16,27.05,26.84,26.57,26.26,24.53,22.85,21.32,19.97,17.68,15.86,14.36,13.12,12.08,11.18,10.41};
     1512        physicsVector = CreatePhysicsVector(E,S_15,factor);
     1513     }
     1514     else if( ionZ == 16 ) {
     1515        G4double S_16[31]={7.538,8.363,9.898,11.32,12.65,13.89,15.06,16.17,17.21,21.53,24.36,26.12,27.25,28.46,28.96,29.12,29.08,28.92,28.68,28.4,26.74,25.03,23.47,22.05,19.65,17.7,16.09,14.74,13.6,12.62,11.77};
     1516        physicsVector = CreatePhysicsVector(E,S_16,factor);
     1517     }
     1518     else if( ionZ == 17 ) {
     1519        G4double S_17[31]={7.835,8.674,10.23,11.68,13.04,14.31,15.51,16.65,17.73,22.27,25.36,27.34,28.63,30.06,30.7,30.95,30.98,30.87,30.67,30.42,28.81,27.1,25.5,24.04,21.53,19.47,17.76,16.32,15.09,14.03,13.11};
     1520        physicsVector = CreatePhysicsVector(E,S_17,factor);
     1521     }
     1522     else if( ionZ == 18 ) {
     1523        G4double S_18[31]={8.007,8.865,10.45,11.92,13.3,14.6,15.82,16.99,18.1,22.84,26.18,28.37,29.83,31.48,32.27,32.61,32.71,32.65,32.49,32.26,30.71,28.99,27.36,25.86,23.27,21.12,19.33,17.81,16.51,15.38,14.4};
     1524        physicsVector = CreatePhysicsVector(E,S_18,factor);
     1525     }
     1526  }
     1527
     1528  else if( matName == namesMat[20] ) {
     1529     if( ionZ == 3 ) {
     1530        G4double T_3[31]={2.242,2.448,2.786,3.041,3.229,3.363,3.457,3.52,3.562,3.591,3.503,3.385,3.26,3.021,2.806,2.617,2.45,2.302,2.17,2.052,1.613,1.331,1.134,0.9906,0.7941,0.6663,0.5764,0.5095,0.4576,0.4162,0.3823};
     1531        physicsVector = CreatePhysicsVector(E,T_3,factor);
     1532     }
     1533     else if( ionZ == 4 ) {
     1534        G4double T_4[31]={2.756,3.03,3.503,3.891,4.203,4.446,4.632,4.772,4.877,5.093,5.081,4.993,4.877,4.622,4.373,4.14,3.926,3.73,3.552,3.388,2.746,2.306,1.987,1.746,1.409,1.185,1.025,0.9067,0.8141,0.7401,0.6796};
     1535        physicsVector = CreatePhysicsVector(E,T_4,factor);
     1536     }
     1537     else if( ionZ == 5 ) {
     1538        G4double T_5[31]={3.161,3.495,4.086,4.592,5.019,5.372,5.66,5.889,6.072,6.535,6.639,6.611,6.525,6.291,6.033,5.779,5.536,5.308,5.094,4.894,4.076,3.482,3.035,2.689,2.19,1.85,1.604,1.419,1.274,1.158,1.063};
     1539        physicsVector = CreatePhysicsVector(E,T_5,factor);
     1540     }
     1541     else if( ionZ == 6 ) {
     1542        G4double T_6[31]={3.482,3.87,4.566,5.176,5.709,6.168,6.556,6.88,7.147,7.905,8.161,8.215,8.177,7.987,7.741,7.482,7.224,6.975,6.737,6.51,5.547,4.814,4.244,3.791,3.121,2.653,2.308,2.045,1.838,1.671,1.534};
     1543        physicsVector = CreatePhysicsVector(E,T_6,factor);
     1544     }
     1545     else if( ionZ == 7 ) {
     1546        G4double T_7[31]={3.769,4.2,4.981,5.675,6.296,6.847,7.328,7.742,8.095,9.177,9.617,9.778,9.808,9.69,9.475,9.225,8.966,8.707,8.454,8.209,7.131,6.275,5.59,5.034,4.19,3.584,3.132,2.782,2.504,2.279,2.093};
     1547        physicsVector = CreatePhysicsVector(E,T_7,factor);
     1548     }
     1549     else if( ionZ == 8 ) {
     1550        G4double T_8[31]={4.026,4.495,5.352,6.122,6.821,7.453,8.019,8.519,8.955,10.37,11.02,11.3,11.41,11.39,11.22,11,10.75,10.49,10.23,9.978,8.813,7.851,7.061,6.405,5.388,4.642,4.074,3.63,3.274,2.983,2.742};
     1551        physicsVector = CreatePhysicsVector(E,T_8,factor);
     1552     }
     1553     else if( ionZ == 9 ) {
     1554        G4double T_9[31]={4.235,4.735,5.656,6.491,7.254,7.955,8.593,9.168,9.679,11.42,12.28,12.71,12.9,12.98,12.86,12.67,12.43,12.18,11.91,11.65,10.43,9.391,8.515,7.778,6.613,5.742,5.069,4.536,4.104,3.749,3.451};
     1555        physicsVector = CreatePhysicsVector(E,T_9,factor);
     1556     }
     1557     else if( ionZ == 10 ) {
     1558        G4double T_10[31]={4.427,4.954,5.93,6.821,7.641,8.4,9.1,9.742,10.32,12.39,13.48,14.05,14.34,14.53,14.48,14.32,14.1,13.85,13.6,13.33,12.07,10.95,10,9.197,7.895,6.904,6.129,5.508,5.001,4.58,4.225};
     1559        physicsVector = CreatePhysicsVector(E,T_10,factor);
     1560     }
     1561     else if( ionZ == 11 ) {
     1562        G4double T_11[31]={4.585,5.138,6.169,7.118,7.997,8.817,9.583,10.29,10.94,13.38,14.75,15.53,15.97,16.35,16.41,16.32,16.16,15.95,15.72,15.48,14.22,13.06,12.03,11.13,9.654,8.497,7.574,6.824,6.205,5.686,5.247};
     1563        physicsVector = CreatePhysicsVector(E,T_11,factor);
     1564     }
     1565     else if( ionZ == 12 ) {
     1566        G4double T_12[31]={4.762,5.323,6.375,7.352,8.263,9.115,9.915,10.66,11.36,14.05,15.64,16.55,17.09,17.58,17.69,17.63,17.48,17.27,17.04,16.79,15.48,14.27,13.19,12.25,10.7,9.481,8.502,7.701,7.036,6.476,5.999};
     1567        physicsVector = CreatePhysicsVector(E,T_12,factor);
     1568     }
     1569     else if( ionZ == 13 ) {
     1570        G4double T_13[31]={4.93,5.505,6.587,7.597,8.542,9.43,10.26,11.06,11.8,14.76,16.59,17.68,18.35,19.01,19.23,19.23,19.12,18.94,18.73,18.49,17.19,15.94,14.82,13.83,12.16,10.84,9.767,8.881,8.14,7.511,6.972};
     1571        physicsVector = CreatePhysicsVector(E,T_13,factor);
     1572     }
     1573     else if( ionZ == 14 ) {
     1574        G4double T_14[31]={5.097,5.685,6.793,7.83,8.806,9.725,10.59,11.42,12.2,15.39,17.45,18.73,19.54,20.37,20.69,20.77,20.7,20.56,20.36,20.14,18.86,17.59,16.42,15.38,13.62,12.2,11.04,10.07,9.264,8.571,7.973};
     1575        physicsVector = CreatePhysicsVector(E,T_14,factor);
     1576     }
     1577     else if( ionZ == 15 ) {
     1578        G4double T_15[31]={5.283,5.884,7.018,8.083,9.087,10.03,10.93,11.79,12.61,16.02,18.32,19.79,20.74,21.77,22.22,22.38,22.38,22.28,22.12,21.92,20.69,19.41,18.21,17.12,15.26,13.74,12.48,11.42,10.53,9.763,9.098};
     1579        physicsVector = CreatePhysicsVector(E,T_15,factor);
     1580     }
     1581     else if( ionZ == 16 ) {
     1582        G4double T_16[31]={5.44,6.058,7.223,8.317,9.352,10.33,11.26,12.15,12.99,16.62,19.14,20.8,21.9,23.15,23.73,23.98,24.05,24,23.88,23.71,22.54,21.26,20.04,18.91,16.96,15.34,13.99,12.84,11.87,11.02,10.29};
     1583        physicsVector = CreatePhysicsVector(E,T_16,factor);
     1584     }
     1585     else if( ionZ == 17 ) {
     1586        G4double T_17[31]={5.636,6.266,7.45,8.566,9.623,10.62,11.58,12.49,13.36,17.16,19.89,21.74,22.99,24.44,25.16,25.5,25.63,25.63,25.54,25.4,24.3,23.03,21.79,20.63,18.59,16.89,15.45,14.23,13.18,12.27,11.48};
     1587        physicsVector = CreatePhysicsVector(E,T_17,factor);
     1588     }
     1589     else if( ionZ == 18 ) {
     1590        G4double T_18[31]={5.751,6.393,7.597,8.728,9.803,10.82,11.79,12.73,13.62,17.56,20.49,22.52,23.91,25.56,26.4,26.83,27.02,27.07,27.02,26.9,25.86,24.59,23.33,22.15,20.05,18.28,16.78,15.5,14.4,13.43,12.59};
     1591        physicsVector = CreatePhysicsVector(E,T_18,factor);
     1592     }
     1593  }
     1594
     1595  else if( matName == namesMat[21] ) {
     1596     if( ionZ == 3 ) {
     1597        G4double U_3[31]={2.534,2.757,3.121,3.391,3.587,3.725,3.82,3.884,3.924,3.937,3.829,3.69,3.547,3.276,3.035,2.824,2.639,2.476,2.331,2.202,1.725,1.42,1.208,1.054,0.8438,0.7073,0.6114,0.5401,0.485,0.4409,0.4048};
     1598        physicsVector = CreatePhysicsVector(E,U_3,factor);
     1599     }
     1600     else if( ionZ == 4 ) {
     1601        G4double U_4[31]={3.127,3.427,3.941,4.355,4.683,4.936,5.128,5.272,5.378,5.583,5.551,5.442,5.304,5.011,4.728,4.466,4.228,4.011,3.814,3.634,2.934,2.458,2.114,1.857,1.496,1.257,1.088,0.9608,0.8624,0.7838,0.7194};
     1602        physicsVector = CreatePhysicsVector(E,U_4,factor);
     1603     }
     1604     else if( ionZ == 5 ) {
     1605        G4double U_5[31]={3.592,3.963,4.61,5.155,5.609,5.981,6.28,6.518,6.705,7.168,7.256,7.206,7.097,6.819,6.523,6.234,5.961,5.706,5.468,5.248,4.352,3.709,3.228,2.857,2.324,1.961,1.7,1.503,1.349,1.226,1.125};
     1606        physicsVector = CreatePhysicsVector(E,U_5,factor);
     1607     }
     1608     else if( ionZ == 6 ) {
     1609        G4double U_6[31]={3.958,4.39,5.159,5.822,6.393,6.88,7.288,7.625,7.902,8.673,8.918,8.952,8.892,8.656,8.367,8.068,7.776,7.496,7.23,6.978,5.92,5.124,4.51,4.024,3.308,2.809,2.443,2.164,1.945,1.768,1.623};
     1610        physicsVector = CreatePhysicsVector(E,U_6,factor);
     1611     }
     1612     else if( ionZ == 7 ) {
     1613        G4double U_7[31]={4.294,4.776,5.641,6.401,7.071,7.659,8.167,8.602,8.969,10.08,10.51,10.66,10.67,10.5,10.24,9.947,9.649,9.355,9.07,8.796,7.607,6.675,5.936,5.338,4.436,3.792,3.312,2.941,2.647,2.409,2.212};
     1614        physicsVector = CreatePhysicsVector(E,U_7,factor);
     1615     }
     1616     else if( ionZ == 8 ) {
     1617        G4double U_8[31]={4.583,5.108,6.06,6.907,7.666,8.345,8.947,9.474,9.931,11.4,12.05,12.32,12.41,12.34,12.13,11.86,11.57,11.27,10.98,10.69,9.398,8.348,7.493,6.788,5.701,4.907,4.305,3.835,3.458,3.151,2.895};
     1618        physicsVector = CreatePhysicsVector(E,U_8,factor);
     1619     }
     1620     else if( ionZ == 9 ) {
     1621        G4double U_9[31]={4.813,5.373,6.399,7.321,8.155,8.912,9.594,10.2,10.74,12.56,13.43,13.85,14.03,14.06,13.9,13.65,13.37,13.08,12.78,12.49,11.12,9.983,9.035,8.241,6.995,6.067,5.353,4.789,4.333,3.957,3.643};
     1622        physicsVector = CreatePhysicsVector(E,U_9,factor);
     1623     }
     1624     else if( ionZ == 10 ) {
     1625        G4double U_10[31]={5.022,5.613,6.702,7.688,8.588,9.413,10.17,10.85,11.47,13.63,14.74,15.31,15.59,15.74,15.64,15.43,15.17,14.88,14.59,14.29,12.87,11.65,10.62,9.745,8.351,7.295,6.472,5.814,5.278,4.833,4.458};
     1626        physicsVector = CreatePhysicsVector(E,U_10,factor);
     1627     }
     1628     else if( ionZ == 11 ) {
     1629        G4double U_11[31]={5.194,5.808,6.949,7.992,8.951,9.836,10.65,11.41,12.1,14.61,15.99,16.74,17.14,17.44,17.42,17.26,17.03,16.76,16.47,16.18,14.73,13.44,12.33,11.38,9.835,8.647,7.709,6.952,6.329,5.808,5.368};
     1630        physicsVector = CreatePhysicsVector(E,U_11,factor);
     1631     }
     1632     else if( ionZ == 12 ) {
     1633        G4double U_12[31]={5.404,6.031,7.205,8.289,9.292,10.22,11.09,11.9,12.65,15.48,17.11,18.05,18.58,19.05,19.12,19.01,18.81,18.56,18.28,17.99,16.52,15.18,14.01,12.99,11.32,10.02,8.974,8.125,7.421,6.829,6.325};
     1634        physicsVector = CreatePhysicsVector(E,U_12,factor);
     1635     }
     1636     else if( ionZ == 13 ) {
     1637        G4double U_13[31]={5.596,6.24,7.447,8.566,9.609,10.58,11.5,12.35,13.15,16.27,18.17,19.29,19.97,20.61,20.78,20.74,20.59,20.37,20.11,19.83,18.36,16.97,15.75,14.67,12.87,11.46,10.31,9.371,8.585,7.92,7.35};
     1638        physicsVector = CreatePhysicsVector(E,U_13,factor);
     1639     }
     1640     else if( ionZ == 14 ) {
     1641        G4double U_14[31]={5.788,6.446,7.681,8.832,9.908,10.92,11.87,12.76,13.6,16.98,19.13,20.44,21.26,22.08,22.37,22.4,22.29,22.1,21.87,21.6,20.14,18.72,17.45,16.32,14.42,12.9,11.66,10.63,9.77,9.036,8.404};
     1642        physicsVector = CreatePhysicsVector(E,U_14,factor);
     1643     }
     1644     else if( ionZ == 15 ) {
     1645        G4double U_15[31]={6.009,6.682,7.945,9.126,10.23,11.28,12.26,13.19,14.07,17.7,20.09,21.6,22.57,23.6,24.02,24.14,24.09,23.95,23.75,23.51,22.09,20.66,19.34,18.16,16.14,14.51,13.17,12.05,11.1,10.29,9.584};
     1646        physicsVector = CreatePhysicsVector(E,U_15,factor);
     1647     }
     1648     else if( ionZ == 16 ) {
     1649        G4double U_16[31]={6.191,6.883,8.18,9.394,10.54,11.61,12.63,13.6,14.52,18.37,21.01,22.72,23.85,25.1,25.65,25.87,25.89,25.8,25.64,25.42,24.07,22.63,21.28,20.06,17.94,16.2,14.76,13.54,12.51,11.61,10.84};
     1650        physicsVector = CreatePhysicsVector(E,U_16,factor);
     1651     }
     1652     else if( ionZ == 17 ) {
     1653        G4double U_17[31]={6.421,7.126,8.445,9.68,10.85,11.95,13,13.99,14.94,18.98,21.85,23.76,25.04,26.5,27.19,27.5,27.59,27.55,27.42,27.24,25.94,24.51,23.14,21.87,19.66,17.83,16.3,15,13.89,12.92,12.08};
     1654        physicsVector = CreatePhysicsVector(E,U_17,factor);
     1655     }
     1656     else if( ionZ == 18 ) {
     1657        G4double U_18[31]={6.564,7.283,8.624,9.878,11.06,12.19,13.26,14.28,15.25,19.47,22.54,24.64,26.08,27.75,28.59,28.99,29.15,29.15,29.06,28.9,27.66,26.23,24.83,23.53,21.25,19.35,17.74,16.37,15.19,14.17,13.27};
     1658        physicsVector = CreatePhysicsVector(E,U_18,factor);
     1659     }
     1660  }
     1661
     1662  else if( matName == namesMat[22] ) {
     1663     if( ionZ == 3 ) {
     1664        G4double V_3[31]={2.541,2.772,3.148,3.426,3.623,3.759,3.849,3.907,3.942,3.94,3.827,3.688,3.546,3.276,3.037,2.827,2.642,2.479,2.335,2.206,1.728,1.422,1.21,1.055,0.8447,0.7079,0.6118,0.5404,0.4851,0.441,0.4049};
     1665        physicsVector = CreatePhysicsVector(E,V_3,factor);
     1666     }
     1667     else if( ionZ == 4 ) {
     1668        G4double V_4[31]={3.127,3.434,3.963,4.392,4.729,4.984,5.174,5.313,5.413,5.594,5.553,5.441,5.304,5.014,4.733,4.473,4.236,4.019,3.822,3.642,2.941,2.463,2.119,1.86,1.498,1.259,1.088,0.9614,0.8628,0.784,0.7195};
     1669        physicsVector = CreatePhysicsVector(E,V_4,factor);
     1670     }
     1671     else if( ionZ == 5 ) {
     1672        G4double V_5[31]={3.591,3.966,4.629,5.192,5.661,6.041,6.342,6.577,6.759,7.191,7.263,7.208,7.1,6.825,6.532,6.246,5.974,5.72,5.483,5.263,4.366,3.719,3.236,2.863,2.328,1.964,1.702,1.504,1.35,1.227,1.126};
     1673        physicsVector = CreatePhysicsVector(E,V_5,factor);
     1674     }
     1675     else if( ionZ == 6 ) {
     1676        G4double V_6[31]={3.96,4.395,5.175,5.856,6.445,6.946,7.362,7.702,7.977,8.714,8.935,8.961,8.899,8.665,8.38,8.085,7.795,7.517,7.251,7,5.94,5.14,4.523,4.035,3.315,2.814,2.446,2.166,1.946,1.769,1.623};
     1677        physicsVector = CreatePhysicsVector(E,V_6,factor);
     1678     }
     1679     else if( ionZ == 7 ) {
     1680        G4double V_7[31]={4.304,4.787,5.659,6.433,7.122,7.727,8.249,8.691,9.061,10.14,10.55,10.68,10.68,10.51,10.26,9.969,9.674,9.383,9.099,8.826,7.635,6.699,5.955,5.353,4.446,3.799,3.316,2.944,2.649,2.41,2.213};
     1681        physicsVector = CreatePhysicsVector(E,V_7,factor);
     1682     }
     1683     else if( ionZ == 8 ) {
     1684        G4double V_8[31]={4.602,5.127,6.083,6.94,7.716,8.414,9.032,9.572,10.04,11.48,12.09,12.35,12.44,12.36,12.15,11.89,11.6,11.31,11.01,10.73,9.436,8.381,7.52,6.81,5.715,4.916,4.311,3.839,3.461,3.152,2.896};
     1685        physicsVector = CreatePhysicsVector(E,V_8,factor);
     1686     }
     1687     else if( ionZ == 9 ) {
     1688        G4double V_9[31]={4.84,5.401,6.429,7.356,8.203,8.977,9.679,10.3,10.85,12.66,13.5,13.88,14.05,14.08,13.92,13.68,13.41,13.12,12.82,12.53,11.16,10.02,9.063,8.264,7.01,6.077,5.359,4.792,4.334,3.958,3.643};
     1689        physicsVector = CreatePhysicsVector(E,V_9,factor);
     1690     }
     1691     else if( ionZ == 10 ) {
     1692        G4double V_10[31]={5.057,5.649,6.739,7.728,8.637,9.476,10.25,10.95,11.58,13.75,14.82,15.35,15.62,15.76,15.66,15.46,15.2,14.92,14.62,14.33,12.91,11.68,10.65,9.768,8.365,7.304,6.477,5.817,5.278,4.832,4.457};
     1693        physicsVector = CreatePhysicsVector(E,V_10,factor);
     1694     }
     1695     else if( ionZ == 11 ) {
     1696        G4double V_11[31]={5.234,5.85,6.992,8.036,8.999,9.896,10.73,11.5,12.21,14.75,16.08,16.8,17.18,17.46,17.44,17.29,17.06,16.8,16.51,16.22,14.77,13.48,12.36,11.4,9.853,8.658,7.716,6.955,6.33,5.809,5.367};
     1697        physicsVector = CreatePhysicsVector(E,V_11,factor);
     1698     }
     1699     else if( ionZ == 12 ) {
     1700        G4double V_12[31]={5.449,6.079,7.253,8.337,9.343,10.28,11.16,11.99,12.75,15.62,17.22,18.12,18.62,19.06,19.13,19.03,18.84,18.59,18.32,18.04,16.57,15.22,14.05,13.02,11.34,10.03,8.983,8.13,7.423,6.83,6.324};
     1701        physicsVector = CreatePhysicsVector(E,V_12,factor);
     1702     }
     1703     else if( ionZ == 13 ) {
     1704        G4double V_13[31]={5.647,6.293,7.503,8.623,9.666,10.64,11.57,12.43,13.25,16.42,18.29,19.37,20.01,20.63,20.8,20.76,20.61,20.4,20.15,19.87,18.41,17.02,15.79,14.7,12.9,11.47,10.32,9.377,8.588,7.921,7.35};
     1705        physicsVector = CreatePhysicsVector(E,V_13,factor);
     1706     }
     1707     else if( ionZ == 14 ) {
     1708        G4double V_14[31]={5.843,6.505,7.745,8.897,9.973,10.98,11.94,12.84,13.7,17.14,19.26,20.53,21.31,22.1,22.38,22.42,22.31,22.13,21.9,21.64,20.19,18.77,17.49,16.35,14.44,12.91,11.67,10.64,9.772,9.036,8.403};
     1709        physicsVector = CreatePhysicsVector(E,V_14,factor);
     1710     }
     1711     else if( ionZ == 15 ) {
     1712        G4double V_15[31]={6.072,6.75,8.021,9.205,10.31,11.35,12.34,13.28,14.17,17.87,20.25,21.71,22.64,23.63,24.04,24.16,24.12,23.98,23.79,23.55,22.15,20.71,19.39,18.2,16.17,14.53,13.18,12.06,11.1,10.29,9.583};
     1713        physicsVector = CreatePhysicsVector(E,V_15,factor);
     1714     }
     1715     else if( ionZ == 16 ) {
     1716        G4double V_16[31]={6.259,6.957,8.265,9.483,10.63,11.7,12.72,13.69,14.62,18.55,21.18,22.85,23.93,25.13,25.68,25.89,25.92,25.84,25.68,25.47,24.14,22.7,21.35,20.11,17.98,16.23,14.78,13.55,12.51,11.62,10.84};
     1717        physicsVector = CreatePhysicsVector(E,V_16,factor);
     1718     }
     1719     else if( ionZ == 17 ) {
     1720        G4double V_17[31]={6.496,7.208,8.54,9.782,10.95,12.05,13.09,14.09,15.04,19.17,22.04,23.91,25.14,26.54,27.22,27.53,27.62,27.59,27.47,27.29,26.01,24.58,23.2,21.92,19.7,17.86,16.32,15.01,13.89,12.93,12.08};
     1721        physicsVector = CreatePhysicsVector(E,V_17,factor);
     1722     }
     1723     else if( ionZ == 18 ) {
     1724        G4double V_18[31]={6.642,7.369,8.724,9.986,11.17,12.3,13.36,14.38,15.35,19.64,22.74,24.8,26.18,27.8,28.61,29,29.17,29.18,29.09,28.94,27.73,26.29,24.89,23.58,21.29,19.37,17.75,16.37,15.19,14.16,13.27};
     1725        physicsVector = CreatePhysicsVector(E,V_18,factor);
     1726     }
     1727  }
     1728
     1729  else if( matName == namesMat[23] ) {
     1730     if( ionZ == 3 ) {
     1731        G4double W_3[31]={1.603,1.75,1.999,2.196,2.352,2.474,2.568,2.64,2.694,2.799,2.774,2.705,2.623,2.454,2.295,2.151,2.023,1.908,1.804,1.711,1.358,1.127,0.965,0.8452,0.6807,0.573,0.4969,0.4401,0.396,0.3606,0.3316};
     1732        physicsVector = CreatePhysicsVector(E,W_3,factor);
     1733     }
     1734     else if( ionZ == 4 ) {
     1735        G4double W_4[31]={1.976,2.173,2.518,2.808,3.052,3.255,3.421,3.556,3.665,3.952,4.014,3.986,3.921,3.751,3.572,3.4,3.238,3.088,2.949,2.821,2.31,1.952,1.69,1.49,1.209,1.02,0.8848,0.7835,0.7046,0.6415,0.5896};
     1736        physicsVector = CreatePhysicsVector(E,W_4,factor);
     1737     }
     1738     else if( ionZ == 5 ) {
     1739        G4double W_5[31]={2.267,2.509,2.939,3.312,3.636,3.916,4.156,4.36,4.531,5.044,5.229,5.268,5.24,5.101,4.924,4.74,4.56,4.387,4.224,4.07,3.425,2.946,2.581,2.295,1.879,1.593,1.385,1.227,1.104,1.005,0.923};
     1740        physicsVector = CreatePhysicsVector(E,W_5,factor);
     1741     }
     1742     else if( ionZ == 6 ) {
     1743        G4double W_6[31]={2.498,2.779,3.287,3.735,4.133,4.486,4.798,5.069,5.305,6.07,6.406,6.535,6.56,6.474,6.317,6.136,5.949,5.764,5.584,5.412,4.66,4.073,3.609,3.237,2.679,2.285,1.994,1.77,1.594,1.451,1.333};
     1744        physicsVector = CreatePhysicsVector(E,W_6,factor);
     1745     }
     1746     else if( ionZ == 7 ) {
     1747        G4double W_7[31]={2.696,3.008,3.579,4.091,4.554,4.973,5.349,5.685,5.983,7.012,7.524,7.764,7.86,7.853,7.732,7.566,7.384,7.196,7.008,6.824,5.991,5.311,4.757,4.3,3.6,3.092,2.709,2.411,2.174,1.981,1.821};
     1748        physicsVector = CreatePhysicsVector(E,W_7,factor);
     1749     }
     1750     else if( ionZ == 8 ) {
     1751        G4double W_8[31]={2.869,3.207,3.834,4.403,4.924,5.401,5.838,6.234,6.591,7.882,8.584,8.951,9.133,9.225,9.155,9.017,8.848,8.665,8.477,8.289,7.399,6.641,6.006,5.472,4.632,4.007,3.527,3.149,2.845,2.595,2.387};
     1752        physicsVector = CreatePhysicsVector(E,W_8,factor);
     1753     }
     1754     else if( ionZ == 9 ) {
     1755        G4double W_9[31]={3.02,3.38,4.053,4.67,5.241,5.769,6.256,6.705,7.116,8.654,9.546,10.05,10.32,10.52,10.5,10.4,10.25,10.07,9.886,9.696,8.768,7.95,7.249,6.65,5.69,4.961,4.393,3.939,3.57,3.265,3.009};
     1756        physicsVector = CreatePhysicsVector(E,W_9,factor);
     1757     }
     1758     else if( ionZ == 10 ) {
     1759        G4double W_10[31]={3.16,3.539,4.25,4.909,5.523,6.095,6.629,7.125,7.584,9.359,10.44,11.09,11.46,11.78,11.83,11.76,11.63,11.47,11.29,11.1,10.15,9.283,8.527,7.87,6.8,5.972,5.317,4.789,4.355,3.993,3.688};
     1760        physicsVector = CreatePhysicsVector(E,W_10,factor);
     1761     }
     1762     else if( ionZ == 11 ) {
     1763        G4double W_11[31]={3.269,3.662,4.406,5.102,5.754,6.367,6.942,7.482,7.987,9.996,11.28,12.08,12.57,13.04,13.17,13.15,13.05,12.91,12.74,12.56,11.6,10.7,9.889,9.18,8.003,7.076,6.334,5.727,5.225,4.803,4.444};
     1764        physicsVector = CreatePhysicsVector(E,W_11,factor);
     1765     }
     1766     else if( ionZ == 12 ) {
     1767        G4double W_12[31]={3.392,3.795,4.561,5.284,5.967,6.612,7.222,7.798,8.341,10.56,12.04,12.99,13.6,14.22,14.44,14.47,14.41,14.29,14.14,13.96,13,12.07,11.22,10.47,9.203,8.191,7.369,6.692,6.126,5.647,5.237};
     1768        physicsVector = CreatePhysicsVector(E,W_12,factor);
     1769     }
     1770     else if( ionZ == 13 ) {
     1771        G4double W_13[31]={3.506,3.919,4.705,5.45,6.159,6.833,7.473,8.081,8.659,11.06,12.73,13.85,14.58,15.37,15.69,15.79,15.77,15.68,15.54,15.38,14.44,13.49,12.61,11.81,10.46,9.366,8.467,7.719,7.088,6.551,6.089};
     1772        physicsVector = CreatePhysicsVector(E,W_13,factor);
     1773     }
     1774     else if( ionZ == 14 ) {
     1775        G4double W_14[31]={3.618,4.04,4.843,5.607,6.337,7.034,7.701,8.337,8.945,11.52,13.37,14.63,15.49,16.46,16.89,17.05,17.08,17.02,16.91,16.76,15.84,14.88,13.97,13.14,11.71,10.54,9.573,8.76,8.07,7.478,6.966};
     1776        physicsVector = CreatePhysicsVector(E,W_14,factor);
     1777     }
     1778     else if( ionZ == 15 ) {
     1779        G4double W_15[31]={3.732,4.163,4.982,5.763,6.513,7.233,7.924,8.587,9.221,11.96,13.98,15.41,16.4,17.56,18.11,18.37,18.45,18.43,18.36,18.24,17.38,16.41,15.48,14.63,13.12,11.87,10.82,9.936,9.178,8.524,7.954};
     1780        physicsVector = CreatePhysicsVector(E,W_15,factor);
     1781     }
     1782     else if( ionZ == 16 ) {
     1783        G4double W_16[31]={3.835,4.276,5.116,5.916,6.686,7.428,8.142,8.829,9.488,12.38,14.56,16.15,17.28,18.64,19.33,19.67,19.82,19.85,19.81,19.72,18.92,17.97,17.03,16.15,14.58,13.26,12.13,11.17,10.35,9.631,9.005};
     1784        physicsVector = CreatePhysicsVector(E,W_16,factor);
     1785     }
     1786     else if( ionZ == 17 ) {
     1787        G4double W_17[31]={3.958,4.407,5.258,6.072,6.857,7.616,8.349,9.056,9.738,12.76,15.1,16.83,18.09,19.65,20.48,20.91,21.12,21.2,21.2,21.13,20.41,19.47,18.52,17.62,15.99,14.6,13.41,12.39,11.5,10.73,10.05};
     1788        physicsVector = CreatePhysicsVector(E,W_17,factor);
     1789     }
     1790     else if( ionZ == 18 ) {
     1791        G4double W_18[31]={4.048,4.504,5.369,6.194,6.991,7.764,8.512,9.236,9.936,13.07,15.55,17.43,18.81,20.57,21.52,22.05,22.33,22.45,22.48,22.44,21.78,20.85,19.89,18.97,17.29,15.85,14.6,13.53,12.59,11.77,11.05};
     1792        physicsVector = CreatePhysicsVector(E,W_18,factor);
     1793     }
     1794  }
     1795
     1796  else if( matName == namesMat[24] ) {
     1797     if( ionZ == 3 ) {
     1798        G4double X_3[31]={3.332,3.612,4.056,4.373,4.592,4.739,4.835,4.893,4.924,4.88,4.713,4.519,4.326,3.97,3.659,3.39,3.157,2.952,2.773,2.613,2.031,1.663,1.411,1.228,0.9798,0.8194,0.7071,0.6238,0.5594,0.508,0.466};
     1799        physicsVector = CreatePhysicsVector(E,X_3,factor);
     1800     }
     1801     else if( ionZ == 4 ) {
     1802        G4double X_4[31]={4.135,4.515,5.152,5.649,6.03,6.313,6.519,6.667,6.771,6.928,6.834,6.663,6.468,6.07,5.698,5.36,5.055,4.781,4.533,4.309,3.45,2.875,2.465,2.159,1.735,1.455,1.256,1.109,0.9941,0.9026,0.8279};
     1803        physicsVector = CreatePhysicsVector(E,X_4,factor);
     1804     }
     1805     else if( ionZ == 5 ) {
     1806        G4double X_5[31]={4.766,5.239,6.053,6.721,7.261,7.69,8.024,8.281,8.476,8.912,8.94,8.827,8.657,8.263,7.862,7.483,7.129,6.802,6.501,6.223,5.115,4.335,3.759,3.318,2.69,2.266,1.961,1.732,1.554,1.411,1.294};
     1807        physicsVector = CreatePhysicsVector(E,X_5,factor);
     1808     }
     1809     else if( ionZ == 6 ) {
     1810        G4double X_6[31]={5.255,5.811,6.786,7.61,8.302,8.877,9.345,9.723,10.02,10.8,10.99,10.97,10.84,10.48,10.08,9.68,9.295,8.932,8.59,8.271,6.952,5.981,5.244,4.666,3.822,3.239,2.813,2.489,2.236,2.031,1.863};
     1811        physicsVector = CreatePhysicsVector(E,X_6,factor);
     1812     }
     1813     else if( ionZ == 7 ) {
     1814        G4double X_7[31]={5.72,6.34,7.441,8.391,9.212,9.916,10.51,11.01,11.42,12.58,12.97,13.06,13,12.71,12.33,11.93,11.53,11.14,10.77,10.42,8.924,7.783,6.891,6.178,5.115,4.363,3.805,3.376,3.037,2.763,2.536};
     1815        physicsVector = CreatePhysicsVector(E,X_7,factor);
     1816     }
     1817     else if( ionZ == 8 ) {
     1818        G4double X_8[31]={6.114,6.792,8.008,9.073,10.01,10.83,11.55,12.16,12.68,14.26,14.89,15.11,15.14,14.95,14.61,14.22,13.82,13.42,13.03,12.66,11.02,9.728,8.693,7.849,6.564,5.636,4.937,4.394,3.96,3.606,3.313};
     1819        physicsVector = CreatePhysicsVector(E,X_8,factor);
     1820     }
     1821     else if( ionZ == 9 ) {
     1822        G4double X_9[31]={6.408,7.134,8.448,9.611,10.65,11.58,12.4,13.11,13.74,15.73,16.61,16.98,17.1,17.01,16.72,16.36,15.96,15.56,15.17,14.78,13.04,11.63,10.47,9.522,8.047,6.961,6.132,5.48,4.955,4.523,4.163};
     1823        physicsVector = CreatePhysicsVector(E,X_9,factor);
     1824     }
     1825     else if( ionZ == 10 ) {
     1826        G4double X_10[31]={6.674,7.439,8.836,10.09,11.21,12.23,13.14,13.96,14.68,17.09,18.23,18.77,19,19.03,18.81,18.47,18.09,17.7,17.3,16.9,15.08,13.56,12.31,11.26,9.601,8.365,7.408,6.648,6.03,5.519,5.09};
     1827        physicsVector = CreatePhysicsVector(E,X_10,factor);
     1828     }
     1829     else if( ionZ == 11 ) {
     1830        G4double X_11[31]={6.899,7.695,9.16,10.48,11.69,12.78,13.78,14.69,15.51,18.36,19.81,20.54,20.91,21.1,20.96,20.68,20.33,19.94,19.55,19.15,17.27,15.66,14.3,13.15,11.31,9.914,8.822,7.945,7.227,6.629,6.124};
     1831        physicsVector = CreatePhysicsVector(E,X_11,factor);
     1832     }
     1833     else if( ionZ == 12 ) {
     1834        G4double X_12[31]={7.191,8.003,9.507,10.88,12.14,13.3,14.36,15.34,16.23,19.48,21.23,22.17,22.68,23.05,23.01,22.78,22.46,22.1,21.71,21.32,19.39,17.71,16.26,15.03,13.03,11.49,10.27,9.286,8.473,7.791,7.213};
     1835        physicsVector = CreatePhysicsVector(E,X_12,factor);
     1836     }
     1837     else if( ionZ == 13 ) {
     1838        G4double X_13[31]={7.454,8.287,9.835,11.26,12.57,13.78,14.9,15.94,16.9,20.51,22.57,23.72,24.38,24.95,25.02,24.86,24.59,24.26,23.89,23.5,21.56,19.81,18.29,16.97,14.82,13.14,11.8,10.71,9.799,9.032,8.377};
     1839        physicsVector = CreatePhysicsVector(E,X_13,factor);
     1840     }
     1841     else if( ionZ == 14 ) {
     1842        G4double X_14[31]={7.717,8.569,10.15,11.61,12.97,14.22,15.39,16.49,17.5,21.44,23.79,25.16,25.97,26.73,26.92,26.84,26.62,26.32,25.97,25.6,23.65,21.85,20.27,18.88,16.6,14.8,13.34,12.15,11.15,10.3,9.576};
     1843        physicsVector = CreatePhysicsVector(E,X_14,factor);
     1844     }
     1845     else if( ionZ == 15 ) {
     1846        G4double X_15[31]={8.04,8.913,10.54,12.04,13.43,14.73,15.94,17.08,18.14,22.39,25.04,26.63,27.61,28.59,28.92,28.93,28.78,28.52,28.21,27.86,25.94,24.11,22.46,21.01,18.58,16.64,15.06,13.75,12.65,11.71,10.91};
     1847        physicsVector = CreatePhysicsVector(E,X_15,factor);
     1848     }
     1849     else if( ionZ == 16 ) {
     1850        G4double X_16[31]={8.294,9.193,10.86,12.4,13.84,15.18,16.44,17.63,18.74,23.29,26.23,28.06,29.21,30.42,30.9,31.02,30.94,30.74,30.46,30.13,28.27,26.41,24.72,23.2,20.63,18.56,16.86,15.44,14.24,13.21,12.32};
     1851        physicsVector = CreatePhysicsVector(E,X_16,factor);
     1852     }
     1853     else if( ionZ == 17 ) {
     1854        G4double X_17[31]={8.625,9.54,11.24,12.8,14.27,15.64,16.94,18.16,19.31,24.1,27.32,29.37,30.69,32.13,32.76,32.97,32.96,32.81,32.57,32.27,30.46,28.59,26.85,25.28,22.6,20.42,18.61,17.09,15.8,14.69,13.72};
     1855        physicsVector = CreatePhysicsVector(E,X_17,factor);
     1856     }
     1857     else if( ionZ == 18 ) {
     1858        G4double X_18[31]={8.813,9.748,11.47,13.07,14.56,15.96,17.28,18.53,19.71,24.73,28.21,30.48,31.98,33.65,34.43,34.74,34.8,34.7,34.49,34.23,32.47,30.59,28.82,27.21,24.43,22.15,20.26,18.65,17.29,16.1,15.07};
     1859        physicsVector = CreatePhysicsVector(E,X_18,factor);
     1860     }
     1861  }
     1862
     1863  else if( matName == namesMat[25] ) {
     1864     if( ionZ == 3 ) {
     1865        G4double Y_3[31]={1.481,1.6,1.8,1.961,2.091,2.197,2.28,2.347,2.399,2.52,2.526,2.488,2.432,2.302,2.17,2.046,1.932,1.829,1.735,1.649,1.321,1.102,0.9471,0.8318,0.6725,0.5676,0.4931,0.4374,0.394,0.3592,0.3306};
     1866        physicsVector = CreatePhysicsVector(E,Y_3,factor);
     1867     }
     1868     else if( ionZ == 4 ) {
     1869        G4double Y_4[31]={1.894,2.058,2.337,2.571,2.77,2.938,3.08,3.198,3.296,3.576,3.664,3.67,3.638,3.521,3.379,3.233,3.092,2.958,2.833,2.716,2.242,1.905,1.656,1.464,1.193,1.009,0.8775,0.7783,0.7009,0.6388,0.5877};
     1870        physicsVector = CreatePhysicsVector(E,Y_4,factor);
     1871     }
     1872     else if( ionZ == 5 ) {
     1873        G4double Y_5[31]={2.237,2.443,2.798,3.099,3.361,3.59,3.79,3.963,4.112,4.582,4.781,4.853,4.861,4.786,4.657,4.508,4.355,4.203,4.057,3.917,3.321,2.871,2.525,2.252,1.852,1.575,1.372,1.218,1.097,1,0.9198};
     1874        physicsVector = CreatePhysicsVector(E,Y_5,factor);
     1875     }
     1876     else if( ionZ == 6 ) {
     1877        G4double Y_6[31]={2.522,2.767,3.196,3.564,3.887,4.174,4.429,4.656,4.856,5.536,5.867,6.022,6.085,6.072,5.972,5.835,5.681,5.521,5.362,5.207,4.515,3.965,3.527,3.172,2.638,2.258,1.974,1.756,1.584,1.444,1.328};
     1878        physicsVector = CreatePhysicsVector(E,Y_6,factor);
     1879     }
     1880     else if( ionZ == 7 ) {
     1881        G4double Y_7[31]={2.767,3.047,3.541,3.97,4.349,4.69,4.997,5.274,5.523,6.419,6.901,7.156,7.287,7.359,7.305,7.192,7.049,6.892,6.729,6.565,5.804,5.168,4.645,4.212,3.542,3.052,2.681,2.391,2.16,1.97,1.813};
     1882        physicsVector = CreatePhysicsVector(E,Y_7,factor);
     1883     }
     1884     else if( ionZ == 8 ) {
     1885        G4double Y_8[31]={2.982,3.293,3.847,4.333,4.766,5.158,5.514,5.839,6.135,7.245,7.888,8.255,8.465,8.639,8.644,8.566,8.443,8.297,8.137,7.972,7.164,6.457,5.86,5.354,4.552,3.952,3.488,3.121,2.825,2.581,2.377};
     1886        physicsVector = CreatePhysicsVector(E,Y_8,factor);
     1887     }
     1888     else if( ionZ == 9 ) {
     1889        G4double Y_9[31]={3.17,3.508,4.116,4.653,5.135,5.573,5.973,6.341,6.68,7.991,8.796,9.279,9.572,9.852,9.921,9.882,9.783,9.65,9.498,9.335,8.499,7.738,7.079,6.512,5.596,4.896,4.347,3.906,3.547,3.248,2.997};
     1890        physicsVector = CreatePhysicsVector(E,Y_9,factor);
     1891     }
     1892     else if( ionZ == 10 ) {
     1893        G4double Y_10[31]={3.34,3.702,4.357,4.942,5.469,5.95,6.392,6.801,7.18,8.682,9.65,10.26,10.64,11.04,11.18,11.18,11.11,11,10.86,10.7,9.851,9.046,8.335,7.713,6.693,5.897,5.265,4.752,4.329,3.975,3.676};
     1894        physicsVector = CreatePhysicsVector(E,Y_10,factor);
     1895     }
     1896     else if( ionZ == 11 ) {
     1897        G4double Y_11[31]={3.478,3.859,4.556,5.183,5.753,6.275,6.757,7.205,7.623,9.316,10.45,11.19,11.68,12.21,12.44,12.5,12.47,12.38,12.25,12.11,11.26,10.42,9.668,8.996,7.875,6.986,6.27,5.682,5.193,4.78,4.428};
     1898        physicsVector = CreatePhysicsVector(E,Y_11,factor);
     1899     }
     1900     else if( ionZ == 12 ) {
     1901        G4double Y_12[31]={3.623,4.019,4.749,5.412,6.018,6.578,7.096,7.578,8.029,9.891,11.19,12.06,12.65,13.32,13.64,13.76,13.77,13.71,13.6,13.47,12.63,11.77,10.98,10.27,9.058,8.087,7.294,6.638,6.087,5.62,5.218};
     1902        physicsVector = CreatePhysicsVector(E,Y_12,factor);
     1903     }
     1904     else if( ionZ == 13 ) {
     1905        G4double Y_13[31]={3.754,4.165,4.923,5.616,6.256,6.849,7.401,7.917,8.4,10.42,11.88,12.88,13.58,14.4,14.82,15.01,15.07,15.04,14.96,14.85,14.04,13.16,12.33,11.58,10.3,9.246,8.38,7.655,7.042,6.518,6.066};
     1906        physicsVector = CreatePhysicsVector(E,Y_13,factor);
     1907     }
     1908     else if( ionZ == 14 ) {
     1909        G4double Y_14[31]={3.88,4.303,5.086,5.806,6.474,7.097,7.68,8.225,8.738,10.9,12.51,13.65,14.45,15.43,15.95,16.21,16.32,16.34,16.28,16.18,15.41,14.52,13.67,12.89,11.53,10.41,9.478,8.69,8.019,7.442,6.941};
     1910        physicsVector = CreatePhysicsVector(E,Y_14,factor);
     1911     }
     1912     else if( ionZ == 15 ) {
     1913        G4double Y_15[31]={4,4.433,5.238,5.982,6.678,7.329,7.94,8.515,9.057,11.36,13.11,14.39,15.31,16.46,17.1,17.45,17.63,17.69,17.67,17.6,16.9,16.02,15.15,14.34,12.92,11.72,10.71,9.853,9.117,8.48,7.924};
     1914        physicsVector = CreatePhysicsVector(E,Y_15,factor);
     1915     }
     1916     else if( ionZ == 16 ) {
     1917        G4double Y_16[31]={4.111,4.556,5.384,6.154,6.876,7.554,8.193,8.796,9.366,11.81,13.7,15.11,16.14,17.47,18.23,18.68,18.92,19.03,19.06,19.02,18.4,17.54,16.66,15.83,14.34,13.08,12,11.07,10.27,9.578,8.966};
     1918        physicsVector = CreatePhysicsVector(E,Y_16,factor);
     1919     }
     1920     else if( ionZ == 17 ) {
     1921        G4double Y_17[31]={4.234,4.688,5.534,6.322,7.066,7.768,8.431,9.058,9.652,12.22,14.24,15.78,16.92,18.43,19.31,19.85,20.16,20.33,20.39,20.39,19.85,19.01,18.13,17.28,15.74,14.41,13.27,12.28,11.43,10.67,10.01};
     1922        physicsVector = CreatePhysicsVector(E,Y_17,factor);
     1923     }
     1924     else if( ionZ == 18 ) {
     1925        G4double Y_18[31]={4.333,4.796,5.658,6.463,7.224,7.946,8.63,9.28,9.896,12.58,14.71,16.37,17.63,19.31,20.31,20.94,21.32,21.54,21.64,21.67,21.21,20.38,19.49,18.63,17.04,15.65,14.46,13.42,12.51,11.72,11.01};
     1926        physicsVector = CreatePhysicsVector(E,Y_18,factor);
     1927     }
     1928  }
     1929
     1930  else if( matName == namesMat[26] ) {
     1931     if( ionZ == 3 ) {
     1932        G4double Z_3[31]={1.572,1.764,2.123,2.452,2.743,2.998,3.22,3.417,3.593,4.244,4.656,4.924,5.094,5.266,5.319,5.315,5.281,5.229,5.167,5.099,4.73,4.375,4.056,3.775,3.31,2.946,2.656,2.419,2.222,2.057,1.915};
     1933        physicsVector = CreatePhysicsVector(E,Z_3,factor);
     1934     }
     1935     else if( ionZ == 4 ) {
     1936        G4double Z_4[31]={1.032,1.139,1.311,1.439,1.539,1.618,1.683,1.737,1.781,1.917,1.966,1.971,1.955,1.896,1.828,1.759,1.693,1.631,1.571,1.516,1.284,1.113,0.983,0.8813,0.7334,0.6312,0.5563,0.4989,0.4534,0.4163,0.3856};
     1937        physicsVector = CreatePhysicsVector(E,Z_4,factor);
     1938     }
     1939     else if( ionZ == 5 ) {
     1940        G4double Z_5[31]={1.181,1.315,1.542,1.72,1.861,1.977,2.073,2.154,2.224,2.452,2.56,2.603,2.61,2.574,2.512,2.443,2.372,2.302,2.234,2.169,1.883,1.66,1.483,1.34,1.127,0.9759,0.863,0.7755,0.7057,0.6485,0.6009};
     1941        physicsVector = CreatePhysicsVector(E,Z_5,factor);
     1942     }
     1943     else if( ionZ == 6 ) {
     1944        G4double Z_6[31]={1.3,1.455,1.729,1.954,2.137,2.29,2.419,2.529,2.625,2.955,3.132,3.222,3.26,3.26,3.214,3.152,3.083,3.011,2.939,2.868,2.542,2.273,2.053,1.871,1.591,1.386,1.231,1.11,1.011,0.9306,0.8628};
     1945        physicsVector = CreatePhysicsVector(E,Z_6,factor);
     1946     }
     1947     else if( ionZ == 7 ) {
     1948        G4double Z_7[31]={1.399,1.569,1.88,2.146,2.369,2.557,2.718,2.858,2.981,3.417,3.669,3.814,3.892,3.94,3.921,3.873,3.811,3.742,3.67,3.597,3.246,2.941,2.682,2.463,2.117,1.858,1.658,1.499,1.369,1.262,1.171};
     1949        physicsVector = CreatePhysicsVector(E,Z_7,factor);
     1950     }
     1951     else if( ionZ == 8 ) {
     1952        G4double Z_8[31]={1.49,1.672,2.01,2.311,2.571,2.793,2.986,3.155,3.305,3.849,4.181,4.385,4.508,4.614,4.628,4.601,4.551,4.49,4.421,4.35,3.985,3.65,3.358,3.105,2.697,2.384,2.138,1.939,1.776,1.64,1.524};
     1953        physicsVector = CreatePhysicsVector(E,Z_8,factor);
     1954     }
     1955     else if( ionZ == 9 ) {
     1956        G4double Z_9[31]={1.572,1.764,2.123,2.452,2.743,2.998,3.22,3.417,3.593,4.244,4.656,4.924,5.094,5.266,5.319,5.315,5.281,5.229,5.167,5.099,4.73,4.375,4.056,3.775,3.31,2.946,2.656,2.419,2.222,2.057,1.915};
     1957        physicsVector = CreatePhysicsVector(E,Z_9,factor);
     1958     }
     1959     else if( ionZ == 10 ) {
     1960        G4double Z_10[31]={1.652,1.85,2.226,2.576,2.895,3.178,3.429,3.652,3.853,4.609,5.103,5.435,5.657,5.901,5.999,6.024,6.009,5.97,5.917,5.855,5.49,5.121,4.779,4.473,3.957,3.545,3.212,2.937,2.707,2.511,2.343};
     1961        physicsVector = CreatePhysicsVector(E,Z_10,factor);
     1962     }
     1963     else if( ionZ == 11 ) {
     1964        G4double Z_11[31]={1.725,1.93,2.319,2.685,3.026,3.335,3.611,3.86,4.085,4.946,5.522,5.921,6.199,6.522,6.671,6.731,6.739,6.717,6.675,6.621,6.271,5.893,5.534,5.205,4.642,4.185,3.81,3.497,3.232,3.006,2.81};
     1965        physicsVector = CreatePhysicsVector(E,Z_11,factor);
     1966     }
     1967     else if( ionZ == 12 ) {
     1968        G4double Z_12[31]={1.8,2.011,2.41,2.788,3.146,3.477,3.777,4.049,4.297,5.258,5.915,6.381,6.713,7.118,7.322,7.42,7.454,7.451,7.423,7.379,7.047,6.665,6.292,5.945,5.34,4.842,4.428,4.079,3.782,3.527,3.304};
     1969        physicsVector = CreatePhysicsVector(E,Z_12,factor);
     1970     }
     1971     else if( ionZ == 13 ) {
     1972        G4double Z_13[31]={1.872,2.089,2.498,2.885,3.256,3.604,3.925,4.219,4.487,5.546,6.283,6.817,7.206,7.697,7.96,8.099,8.163,8.181,8.17,8.138,7.835,7.455,7.072,6.71,6.067,5.53,5.078,4.695,4.366,4.08,3.83};
     1973        physicsVector = CreatePhysicsVector(E,Z_13,factor);
     1974     }
     1975     else if( ionZ == 14 ) {
     1976        G4double Z_14[31]={1.942,2.166,2.583,2.978,3.358,3.72,4.059,4.371,4.66,5.81,6.625,7.226,7.673,8.253,8.577,8.76,8.856,8.897,8.904,8.885,8.619,8.245,7.856,7.481,6.805,6.232,5.746,5.329,4.97,4.656,4.38};
     1977        physicsVector = CreatePhysicsVector(E,Z_14,factor);
     1978     }
     1979     else if( ionZ == 15 ) {
     1980        G4double Z_15[31]={2.007,2.237,2.663,3.065,3.452,3.825,4.178,4.508,4.814,6.052,6.945,7.613,8.119,8.792,9.184,9.417,9.55,9.62,9.648,9.648,9.429,9.07,8.681,8.297,7.592,6.984,6.463,6.013,5.622,5.278,4.975};
     1981        physicsVector = CreatePhysicsVector(E,Z_15,factor);
     1982     }
     1983     else if( ionZ == 16 ) {
     1984        G4double Z_16[31]={2.071,2.309,2.745,3.153,3.546,3.928,4.293,4.638,4.961,6.283,7.25,7.983,8.548,9.316,9.78,10.06,10.24,10.34,10.39,10.41,10.24,9.904,9.518,9.129,8.4,7.761,7.207,6.725,6.303,5.93,5.599};
     1985        physicsVector = CreatePhysicsVector(E,Z_16,factor);
     1986     }
     1987     else if( ionZ == 17 ) {
     1988        G4double Z_17[31]={2.134,2.38,2.826,3.24,3.638,4.025,4.401,4.758,5.095,6.494,7.533,8.331,8.953,9.818,10.35,10.69,10.91,11.04,11.11,11.15,11.05,10.73,10.35,9.958,9.209,8.542,7.959,7.447,6.996,6.597,6.24};
     1989        physicsVector = CreatePhysicsVector(E,Z_17,factor);
     1990     }
     1991     else if( ionZ == 18 ) {
     1992        G4double Z_18[31]={2.199,2.452,2.911,3.332,3.735,4.128,4.511,4.879,5.229,6.701,7.809,8.67,9.348,10.31,10.92,11.31,11.56,11.73,11.83,11.89,11.83,11.54,11.17,10.77,10,9.31,8.699,8.16,7.683,7.258,6.877};
     1993        physicsVector = CreatePhysicsVector(E,Z_18,factor);
     1994     }
     1995  }
     1996
     1997  else if( matName == namesMat[27] ) {
     1998     if( ionZ == 3 ) {
     1999        G4double XX_3[31]={2.663,2.892,3.261,3.535,3.734,3.875,3.973,4.038,4.08,4.092,3.977,3.829,3.678,3.391,3.138,2.917,2.724,2.553,2.403,2.269,1.774,1.459,1.241,1.082,0.8659,0.7257,0.6271,0.5539,0.4973,0.452,0.415};
     2000        physicsVector = CreatePhysicsVector(E,XX_3,factor);
     2001     }
     2002     else if( ionZ == 4 ) {
     2003        G4double XX_4[31]={3.295,3.605,4.129,4.549,4.881,5.138,5.334,5.481,5.59,5.801,5.764,5.645,5.498,5.186,4.887,4.611,4.361,4.135,3.929,3.741,3.016,2.524,2.17,1.905,1.535,1.289,1.115,0.9851,0.8841,0.8034,0.7374};
     2004        physicsVector = CreatePhysicsVector(E,XX_4,factor);
     2005     }
     2006     else if( ionZ == 5 ) {
     2007        G4double XX_5[31]={3.789,4.174,4.84,5.395,5.855,6.232,6.535,6.778,6.969,7.445,7.532,7.474,7.356,7.057,6.741,6.436,6.148,5.88,5.632,5.402,4.472,3.807,3.311,2.93,2.382,2.011,1.743,1.541,1.383,1.257,1.153};
     2008        physicsVector = CreatePhysicsVector(E,XX_5,factor);
     2009     }
     2010     else if( ionZ == 6 ) {
     2011        G4double XX_6[31]={4.173,4.625,5.421,6.101,6.682,7.175,7.589,7.932,8.214,9.005,9.254,9.283,9.213,8.956,8.645,8.328,8.019,7.723,7.444,7.181,6.08,5.257,4.624,4.125,3.39,2.878,2.503,2.217,1.993,1.812,1.663};
     2012        physicsVector = CreatePhysicsVector(E,XX_6,factor);
     2013     }
     2014     else if( ionZ == 7 ) {
     2015        G4double XX_7[31]={4.521,5.025,5.925,6.708,7.394,7.99,8.506,8.946,9.32,10.46,10.9,11.04,11.04,10.86,10.57,10.26,9.946,9.635,9.336,9.049,7.81,6.846,6.084,5.47,4.544,3.884,3.392,3.012,2.711,2.467,2.266};
     2016        physicsVector = CreatePhysicsVector(E,XX_7,factor);
     2017     }
     2018     else if( ionZ == 8 ) {
     2019        G4double XX_8[31]={4.828,5.377,6.371,7.249,8.029,8.721,9.332,9.866,10.33,11.83,12.49,12.77,12.86,12.77,12.53,12.24,11.92,11.61,11.3,11,9.647,8.56,7.678,6.953,5.837,5.023,4.407,3.926,3.54,3.226,2.964};
     2020        physicsVector = CreatePhysicsVector(E,XX_8,factor);
     2021     }
     2022     else if( ionZ == 9 ) {
     2023        G4double XX_9[31]={5.063,5.651,6.724,7.682,8.543,9.318,10.01,10.63,11.18,13.03,13.93,14.35,14.53,14.54,14.36,14.09,13.79,13.47,13.16,12.85,11.42,10.24,9.259,8.442,7.162,6.211,5.48,4.902,4.435,4.051,3.729};
     2024        physicsVector = CreatePhysicsVector(E,XX_9,factor);
     2025     }
     2026     else if( ionZ == 10 ) {
     2027        G4double XX_10[31]={5.278,5.897,7.037,8.065,8.998,9.846,10.62,11.31,11.94,14.13,15.28,15.86,16.14,16.28,16.16,15.92,15.64,15.33,15.02,14.7,13.21,11.95,10.88,9.983,8.55,7.468,6.625,5.951,5.402,4.947,4.564};
     2028        physicsVector = CreatePhysicsVector(E,XX_10,factor);
     2029     }
     2030     else if( ionZ == 11 ) {
     2031        G4double XX_11[31]={5.468,6.118,7.326,8.428,9.437,10.36,11.22,12,12.71,15.31,16.77,17.58,18.03,18.38,18.38,18.23,18.01,17.74,17.45,17.15,15.65,14.31,13.14,12.13,10.48,9.207,8.196,7.378,6.704,6.141,5.665};
     2032        physicsVector = CreatePhysicsVector(E,XX_11,factor);
     2033     }
     2034     else if( ionZ == 12 ) {
     2035        G4double XX_12[31]={5.677,6.333,7.561,8.693,9.738,10.7,11.6,12.42,13.18,16.06,17.74,18.7,19.24,19.7,19.76,19.63,19.41,19.13,18.84,18.53,16.98,15.58,14.37,13.32,11.6,10.26,9.187,8.317,7.596,6.99,6.474};
     2036        physicsVector = CreatePhysicsVector(E,XX_12,factor);
     2037     }
     2038     else if( ionZ == 13 ) {
     2039        G4double XX_13[31]={5.878,6.551,7.813,8.982,10.07,11.08,12.02,12.9,13.72,16.89,18.83,19.98,20.67,21.32,21.48,21.42,21.24,21,20.72,20.42,18.86,17.42,16.15,15.03,13.18,11.73,10.55,9.59,8.785,8.104,7.521};
     2040        physicsVector = CreatePhysicsVector(E,XX_13,factor);
     2041     }
     2042     else if( ionZ == 14 ) {
     2043        G4double XX_14[31]={6.078,6.766,8.057,9.258,10.38,11.43,12.42,13.34,14.2,17.63,19.83,21.18,22.01,22.84,23.12,23.13,23,22.79,22.53,22.24,20.7,19.22,17.9,16.72,14.77,13.2,11.93,10.88,9.998,9.247,8.6};
     2044        physicsVector = CreatePhysicsVector(E,XX_14,factor);
     2045     }
     2046     else if( ionZ == 15 ) {
     2047        G4double XX_15[31]={6.312,7.015,8.334,9.566,10.72,11.81,12.83,13.79,14.7,18.38,20.82,22.38,23.37,24.41,24.82,24.93,24.86,24.69,24.47,24.21,22.7,21.2,19.83,18.61,16.53,14.86,13.48,12.33,11.36,10.52,9.805};
     2048        physicsVector = CreatePhysicsVector(E,XX_15,factor);
     2049     }
     2050     else if( ionZ == 16 ) {
     2051        G4double XX_16[31]={6.503,7.226,8.58,9.845,11.04,12.16,13.22,14.22,15.16,19.09,21.78,23.54,24.69,25.96,26.52,26.72,26.72,26.6,26.41,26.18,24.73,23.22,21.82,20.55,18.37,16.58,15.1,13.85,12.79,11.88,11.08};
     2052        physicsVector = CreatePhysicsVector(E,XX_16,factor);
     2053     }
     2054     else if( ionZ == 17 ) {
     2055        G4double XX_17[31]={6.746,7.481,8.856,10.14,11.36,12.51,13.6,14.63,15.61,19.74,22.65,24.61,25.92,27.41,28.11,28.4,28.47,28.4,28.25,28.05,26.66,25.15,23.72,22.41,20.13,18.25,16.67,15.34,14.2,13.22,12.36};
     2056        physicsVector = CreatePhysicsVector(E,XX_17,factor);
     2057     }
     2058     else if( ionZ == 18 ) {
     2059        G4double XX_18[31]={6.88,7.63,9.027,10.33,11.57,12.74,13.85,14.91,15.91,20.22,23.34,25.5,26.96,28.67,29.51,29.89,30.03,30.01,29.89,29.71,28.38,26.87,25.42,24.07,21.73,19.77,18.12,16.72,15.52,14.47,13.56};
     2060        physicsVector = CreatePhysicsVector(E,XX_18,factor);
     2061     }
     2062  }
     2063
     2064  else if( matName == namesMat[28] ) {
     2065     if( ionZ == 3 ) {
     2066        G4double YY_3[31]={2.7,2.933,3.311,3.589,3.789,3.93,4.026,4.09,4.129,4.134,4.014,3.864,3.711,3.421,3.166,2.942,2.747,2.575,2.423,2.288,1.788,1.47,1.25,1.09,0.8721,0.7307,0.6314,0.5576,0.5005,0.4549,0.4176};
     2067        physicsVector = CreatePhysicsVector(E,YY_3,factor);
     2068     }
     2069     else if( ionZ == 4 ) {
     2070        G4double YY_4[31]={3.338,3.654,4.189,4.618,4.955,5.214,5.409,5.555,5.662,5.863,5.82,5.698,5.548,5.232,4.93,4.652,4.4,4.17,3.962,3.773,3.04,2.544,2.187,1.919,1.546,1.298,1.123,0.9916,0.8899,0.8086,0.7421};
     2071        physicsVector = CreatePhysicsVector(E,YY_4,factor);
     2072     }
     2073     else if( ionZ == 5 ) {
     2074        G4double YY_5[31]={3.839,4.23,4.909,5.475,5.944,6.325,6.631,6.874,7.064,7.528,7.607,7.545,7.424,7.121,6.802,6.493,6.203,5.932,5.681,5.449,4.509,3.837,3.337,2.952,2.399,2.025,1.754,1.551,1.392,1.265,1.16};
     2075        physicsVector = CreatePhysicsVector(E,YY_5,factor);
     2076     }
     2077     else if( ionZ == 6 ) {
     2078        G4double YY_6[31]={4.229,4.687,5.496,6.189,6.782,7.283,7.702,8.048,8.33,9.11,9.349,9.373,9.3,9.037,8.723,8.403,8.09,7.792,7.51,7.244,6.131,5.3,4.66,4.156,3.414,2.898,2.52,2.232,2.006,1.823,1.673};
     2079        physicsVector = CreatePhysicsVector(E,YY_6,factor);
     2080     }
     2081     else if( ionZ == 7 ) {
     2082        G4double YY_7[31]={4.586,5.096,6.008,6.805,7.503,8.11,8.634,9.08,9.455,10.58,11.02,11.15,11.15,10.96,10.67,10.36,10.04,9.722,9.419,9.129,7.876,6.902,6.131,5.511,4.576,3.911,3.415,3.032,2.729,2.483,2.28};
     2083        physicsVector = CreatePhysicsVector(E,YY_7,factor);
     2084     }
     2085     else if( ionZ == 8 ) {
     2086        G4double YY_8[31]={4.9,5.456,6.463,7.354,8.146,8.851,9.473,10.01,10.48,11.98,12.63,12.9,12.98,12.89,12.64,12.35,12.03,11.71,11.4,11.09,9.73,8.63,7.739,7.006,5.879,5.058,4.436,3.951,3.563,3.246,2.983};
     2087        physicsVector = CreatePhysicsVector(E,YY_8,factor);
     2088     }
     2089     else if( ionZ == 9 ) {
     2090        G4double YY_9[31]={5.141,5.736,6.822,7.793,8.667,9.455,10.16,10.79,11.35,13.2,14.08,14.5,14.67,14.68,14.49,14.22,13.91,13.59,13.27,12.96,11.52,10.32,9.33,8.504,7.212,6.253,5.515,4.933,4.463,4.075,3.752};
     2091        physicsVector = CreatePhysicsVector(E,YY_9,factor);
     2092     }
     2093     else if( ionZ == 10 ) {
     2094        G4double YY_10[31]={5.361,5.988,7.141,8.182,9.127,9.988,10.77,11.48,12.11,14.32,15.45,16.02,16.3,16.43,16.3,16.06,15.77,15.46,15.14,14.82,13.32,12.04,10.97,10.06,8.609,7.517,6.667,5.988,5.435,4.976,4.591};
     2095        physicsVector = CreatePhysicsVector(E,YY_10,factor);
     2096     }
     2097     else if( ionZ == 11 ) {
     2098        G4double YY_11[31]={5.555,6.214,7.436,8.551,9.573,10.51,11.38,12.17,12.89,15.53,16.98,17.77,18.21,18.55,18.56,18.4,18.17,17.9,17.61,17.31,15.8,14.44,13.25,12.23,10.57,9.277,8.256,7.43,6.75,6.182,5.702};
     2099        physicsVector = CreatePhysicsVector(E,YY_11,factor);
     2100     }
     2101     else if( ionZ == 12 ) {
     2102        G4double YY_12[31]={5.769,6.434,7.677,8.821,9.878,10.86,11.76,12.6,13.37,16.28,17.95,18.9,19.44,19.88,19.93,19.8,19.57,19.3,19,18.68,17.12,15.7,14.48,13.41,11.68,10.32,9.246,8.369,7.642,7.032,6.512};
     2103        physicsVector = CreatePhysicsVector(E,YY_12,factor);
     2104     }
     2105     else if( ionZ == 13 ) {
     2106        G4double YY_13[31]={5.974,6.657,7.934,9.117,10.22,11.24,12.19,13.08,13.91,17.12,19.06,20.2,20.88,21.51,21.67,21.6,21.42,21.17,20.89,20.59,19.02,17.56,16.27,15.14,13.28,11.81,10.62,9.65,8.838,8.152,7.565};
     2107        physicsVector = CreatePhysicsVector(E,YY_13,factor);
     2108     }
     2109     else if( ionZ == 14 ) {
     2110        G4double YY_14[31]={6.18,6.877,8.185,9.4,10.54,11.6,12.59,13.52,14.4,17.88,20.07,21.41,22.23,23.05,23.32,23.33,23.19,22.98,22.72,22.43,20.86,19.37,18.03,16.85,14.87,13.29,12.01,10.95,10.06,9.301,8.65};
     2111        physicsVector = CreatePhysicsVector(E,YY_14,factor);
     2112     }
     2113     else if( ionZ == 15 ) {
     2114        G4double YY_15[31]={6.421,7.134,8.471,9.718,10.89,11.98,13.02,13.99,14.9,18.64,21.09,22.63,23.61,24.64,25.04,25.14,25.07,24.9,24.67,24.41,22.88,21.37,19.99,18.75,16.65,14.95,13.56,12.4,11.42,10.59,9.861};
     2115        physicsVector = CreatePhysicsVector(E,YY_15,factor);
     2116     }
     2117     else if( ionZ == 16 ) {
     2118        G4double YY_16[31]={6.617,7.35,8.723,10,11.21,12.34,13.41,14.42,15.38,19.36,22.06,23.81,24.95,26.21,26.75,26.95,26.95,26.83,26.64,26.4,24.93,23.41,21.99,20.7,18.5,16.69,15.19,13.94,12.87,11.95,11.15};
     2119        physicsVector = CreatePhysicsVector(E,YY_16,factor);
     2120     }
     2121     else if( ionZ == 17 ) {
     2122        G4double YY_17[31]={6.866,7.613,9.008,10.31,11.54,12.7,13.8,14.84,15.83,20.02,22.95,24.9,26.2,27.67,28.36,28.65,28.71,28.64,28.49,28.28,26.87,25.35,23.9,22.57,20.27,18.37,16.78,15.44,14.29,13.29,12.43};
     2123        physicsVector = CreatePhysicsVector(E,YY_17,factor);
     2124     }
     2125     else if( ionZ == 18 ) {
     2126       G4double YY_18[31]={7.003,7.765,9.183,10.51,11.75,12.94,14.06,15.12,16.14,20.5,23.65,25.8,27.25,28.94,29.76,30.15,30.28,30.26,30.14,29.95,28.6,27.08,25.61,24.25,21.87,19.9,18.23,16.82,15.61,14.56,13.64};
     2127        physicsVector = CreatePhysicsVector(E,YY_18,factor);
     2128     }
     2129  }
     2130
     2131  else if( matName == namesMat[29] ) {
     2132    if( ionZ == 3) {
     2133   G4double ZZ_3[31]={2.3193,2.5198,2.8539,3.1164,3.3203,3.4756,3.5914,3.6755,3.7347,3.8125,3.7349,3.6134,3.4818,3.2258,2.9949,2.7909,2.611,2.4517,2.3103,2.1841,1.7151,1.4139,1.2053,1.0525,0.84417,0.70862,0.61317,0.54214,0.48708,0.44305,0.40697};
     2134   physicsVector = CreatePhysicsVector(E,ZZ_3,factor);
    1182135}
    119 
    120 G4double E[31] = {.025,.03,.04,.05,.06,.07,.08,.09,.1,.15,.2,.25,.3,.4,.5,.6,.7,.8,.9,1,1.5,2,2.5,3,4,5,6,7,8,9,10};
    121 for(i=0;i<31;i++){E[i] *=MeV;}
    122 
    123 // Data name: MaterShortName_(Z_Ion)[31]
    124 G4double A_3[31]={2.748,2.992,3.386,3.674,3.877,4.016,4.108,4.166,4.2,4.186,4.059,3.906,3.751,3.458,3.2,2.974,2.777,2.603,2.449,2.313,1.807,1.485,1.263,1.1,0.8801,0.7372,0.6368,0.5623,0.5046,0.4586,0.4209};
    125 AddData(E,A_3,dens[j]*factor);
    126 G4double A_4[31]={3.391,3.718,4.275,4.722,5.07,5.333,5.527,5.668,5.769,5.944,5.889,5.762,5.61,5.291,4.986,4.706,4.45,4.219,4.008,3.817,3.075,2.571,2.21,1.938,1.56,1.31,1.132,1,0.8972,0.8151,0.748};
    127 AddData(E,A_4,dens[j]*factor);
    128 G4double A_5[31]={3.899,4.3,5.003,5.593,6.081,6.474,6.784,7.025,7.21,7.643,7.704,7.633,7.509,7.202,6.881,6.57,6.277,6.004,5.75,5.515,4.562,3.881,3.373,2.982,2.423,2.043,1.769,1.564,1.403,1.275,1.169};
    129 AddData(E,A_5,dens[j]*factor);
    130 G4double A_6[31]={4.3,4.767,5.598,6.316,6.933,7.453,7.883,8.233,8.514,9.262,9.476,9.487,9.409,9.143,8.827,8.504,8.189,7.888,7.603,7.333,6.205,5.361,4.712,4.2,3.448,2.925,2.542,2.251,2.022,1.837,1.686};
    131 AddData(E,A_6,dens[j]*factor);
    132 G4double A_7[31]={4.67,5.188,6.12,6.941,7.664,8.295,8.836,9.293,9.673,10.77,11.17,11.29,11.28,11.08,10.79,10.48,10.15,9.843,9.537,9.243,7.973,6.983,6.2,5.569,4.621,3.946,3.444,3.057,2.751,2.502,2.297};
    133 AddData(E,A_7,dens[j]*factor);
    134 G4double A_8[31]={4.999,5.564,6.589,7.5,8.319,9.049,9.693,10.25,10.73,12.2,12.82,13.07,13.14,13.04,12.79,12.5,12.18,11.86,11.54,11.23,9.852,8.734,7.828,7.082,5.938,5.105,4.475,3.984,3.591,3.271,3.005};
    135 AddData(E,A_8,dens[j]*factor);
    136 G4double A_9[31]={5.251,5.856,6.959,7.948,8.846,9.66,10.39,11.04,11.61,13.46,14.31,14.69,14.85,14.85,14.65,14.38,14.07,13.75,13.43,13.11,11.65,10.44,9.434,8.594,7.282,6.309,5.562,4.973,4.497,4.106,3.779};
    137 AddData(E,A_9,dens[j]*factor);
    138 G4double A_10[31]={5.481,6.119,7.29,8.347,9.312,10.19,11,11.74,12.39,14.62,15.71,16.25,16.5,16.61,16.48,16.24,15.95,15.64,15.32,15,13.47,12.17,11.08,10.15,8.689,7.581,6.721,6.034,5.475,5.012,4.623};
    139 AddData(E,A_10,dens[j]*factor);
    140 G4double A_11[31]={5.684,6.355,7.597,8.728,9.768,10.73,11.62,12.44,13.19,15.86,17.28,18.04,18.46,18.78,18.78,18.63,18.41,18.13,17.84,17.54,16.01,14.62,13.42,12.38,10.69,9.381,8.343,7.504,6.815,6.239,5.753};
    141 AddData(E,A_11,dens[j]*factor);
    142 G4double A_12[31]={5.906,6.584,7.845,9.005,10.07,11.07,12,12.87,13.66,16.63,18.27,19.18,19.69,20.11,20.15,20.01,19.79,19.51,19.21,18.9,17.31,15.88,14.63,13.55,11.78,10.41,9.323,8.435,7.7,7.083,6.558};
    143 AddData(E,A_12,dens[j]*factor);
    144 G4double A_13[31]={6.121,6.817,8.116,9.314,10.42,11.46,12.44,13.35,14.2,17.49,19.41,20.51,21.16,21.76,21.9,21.84,21.65,21.41,21.12,20.82,19.23,17.75,16.44,15.29,13.4,11.91,10.71,9.726,8.906,8.212,7.619};
    145 AddData(E,A_13,dens[j]*factor);
    146 G4double A_14[31]={6.335,7.047,8.378,9.61,10.75,11.83,12.84,13.8,14.69,18.27,20.45,21.74,22.53,23.31,23.57,23.57,23.44,23.23,22.96,22.67,21.09,19.58,18.22,17.01,15,13.4,12.1,11.03,10.13,9.368,8.711};
    147 AddData(E,A_14,dens[j]*factor);
    148 G4double A_15[31]={6.589,7.318,8.682,9.948,11.13,12.24,13.28,14.27,15.21,19.05,21.5,23,23.94,24.93,25.31,25.41,25.34,25.17,24.94,24.68,23.14,21.6,20.19,18.93,16.8,15.08,13.67,12.5,11.5,10.66,9.93};
    149 AddData(E,A_15,dens[j]*factor);
    150 G4double A_16[31]={6.793,7.544,8.947,10.25,11.47,12.61,13.69,14.72,15.7,19.79,22.5,24.22,25.31,26.52,27.05,27.24,27.24,27.12,26.93,26.69,25.22,23.67,22.23,20.92,18.67,16.84,15.32,14.04,12.96,12.03,11.22};
    151 AddData(E,A_16,dens[j]*factor);
    152 G4double A_17[31]={7.055,7.821,9.248,10.57,11.82,12.99,14.1,15.15,16.16,20.46,23.42,25.34,26.59,28.01,28.67,28.95,29.02,28.95,28.8,28.59,27.18,25.63,24.15,22.8,20.46,18.53,16.92,15.55,14.39,13.38,12.51};
    153 AddData(E,A_17,dens[j]*factor);
    154 G4double A_18[31]={7.196,7.978,9.43,10.77,12.04,13.24,14.37,15.44,16.47,20.95,24.14,26.26,27.67,29.29,30.09,30.46,30.59,30.57,30.45,30.27,28.91,27.36,25.87,24.48,22.07,20.06,18.38,16.94,15.72,14.65,13.72};
    155 AddData(E,A_18,dens[j]*factor);
    156 j++;
    157 
    158 G4double AA_3[31]={2.852,3.097,3.49,3.778,3.983,4.125,4.221,4.283,4.321,4.313,4.182,4.022,3.859,3.553,3.284,3.05,2.845,2.665,2.507,2.366,1.846,1.516,1.289,1.123,0.898,0.7521,0.6496,0.5735,0.5147,0.4677,0.4292};
    159 AddData(E,AA_3,dens[j]*factor);
    160 G4double AA_4[31]={3.53,3.861,4.421,4.867,5.214,5.479,5.677,5.823,5.929,6.119,6.064,5.93,5.769,5.434,5.115,4.822,4.557,4.317,4.1,3.902,3.139,2.623,2.254,1.977,1.591,1.336,1.155,1.019,0.915,0.8313,0.7627};
    161 AddData(E,AA_4,dens[j]*factor);
    162 G4double AA_5[31]={4.062,4.473,5.185,5.776,6.262,6.655,6.968,7.213,7.405,7.862,7.928,7.854,7.721,7.396,7.057,6.731,6.426,6.142,5.879,5.635,4.655,3.957,3.438,3.04,2.469,2.082,1.804,1.594,1.431,1.3,1.192};
    163 AddData(E,AA_5,dens[j]*factor);
    164 G4double AA_6[31]={4.476,4.958,5.807,6.532,7.149,7.668,8.099,8.452,8.739,9.519,9.746,9.757,9.672,9.386,9.051,8.71,8.381,8.067,7.77,7.491,6.329,5.464,4.801,4.279,3.512,2.98,2.59,2.294,2.061,1.873,1.718};
    165 AddData(E,AA_6,dens[j]*factor);
    166 G4double AA_7[31]={4.857,5.394,6.352,7.185,7.913,8.544,9.085,9.543,9.927,11.06,11.48,11.61,11.59,11.38,11.07,10.73,10.39,10.06,9.744,9.439,8.128,7.114,6.314,5.672,4.706,4.019,3.508,3.115,2.803,2.55,2.341};
    167 AddData(E,AA_7,dens[j]*factor);
    168 G4double AA_8[31]={5.192,5.778,6.836,7.768,8.596,9.33,9.974,10.53,11.01,12.52,13.17,13.43,13.5,13.38,13.11,12.79,12.46,12.12,11.79,11.47,10.04,8.895,7.969,7.209,6.044,5.197,4.557,4.057,3.658,3.332,3.062};
    169 AddData(E,AA_8,dens[j]*factor);
    170 G4double AA_9[31]={5.447,6.073,7.214,8.232,9.145,9.967,10.7,11.35,11.92,13.81,14.69,15.09,15.25,15.24,15.02,14.73,14.4,14.06,13.73,13.39,11.88,10.63,9.606,8.75,7.413,6.423,5.664,5.064,4.581,4.183,3.85};
    171 AddData(E,AA_9,dens[j]*factor);
    172 G4double AA_10[31]={5.677,6.338,7.55,8.641,9.63,10.52,11.34,12.07,12.73,14.99,16.12,16.68,16.95,17.05,16.9,16.64,16.33,16,15.66,15.32,13.74,12.4,11.28,10.34,8.848,7.721,6.845,6.146,5.578,5.107,4.711};
    173 AddData(E,AA_10,dens[j]*factor);
    174 G4double AA_11[31]={5.885,6.579,7.866,9.036,10.1,11.08,11.99,12.81,13.56,16.27,17.73,18.53,18.96,19.28,19.27,19.1,18.85,18.55,18.24,17.92,16.33,14.9,13.67,12.6,10.87,9.542,8.487,7.634,6.934,6.349,5.854};
    175 AddData(E,AA_11,dens[j]*factor);
    176 G4double AA_12[31]={6.112,6.813,8.118,9.318,10.42,11.44,12.39,13.26,14.06,17.05,18.74,19.68,20.21,20.64,20.67,20.51,20.27,19.97,19.65,19.31,17.66,16.18,14.9,13.8,12,10.6,9.493,8.59,7.842,7.215,6.681};
    177 AddData(E,AA_12,dens[j]*factor);
    178 G4double AA_13[31]={6.332,7.05,8.393,9.633,10.78,11.85,12.84,13.77,14.63,17.94,19.9,21.05,21.72,22.33,22.47,22.38,22.18,21.91,21.61,21.29,19.63,18.1,16.75,15.58,13.64,12.12,10.9,9.904,9.069,8.364,7.761};
    179 AddData(E,AA_13,dens[j]*factor);
    180 G4double AA_14[31]={6.551,7.286,8.66,9.935,11.12,12.23,13.26,14.23,15.14,18.74,20.97,22.31,23.13,23.93,24.18,24.17,24.02,23.78,23.5,23.19,21.53,19.96,18.57,17.33,15.28,13.65,12.33,11.23,10.32,9.542,8.873};
    181 AddData(E,AA_14,dens[j]*factor);
    182 G4double AA_15[31]={6.812,7.564,8.97,10.27,11.5,12.64,13.72,14.73,15.68,19.54,22.04,23.59,24.57,25.59,25.97,26.05,25.96,25.77,25.52,25.23,23.62,22.02,20.58,19.29,17.11,15.35,13.92,12.72,11.71,10.85,10.11};
    183 AddData(E,AA_15,dens[j]*factor);
    184 G4double AA_16[31]={7.022,7.795,9.24,10.58,11.84,13.02,14.14,15.19,16.19,20.31,23.06,24.83,25.98,27.22,27.75,27.92,27.9,27.77,27.55,27.3,25.73,24.13,22.64,21.3,19.01,17.14,15.59,14.29,13.19,12.25,11.43};
    185 AddData(E,AA_16,dens[j]*factor);
    186 G4double AA_17[31]={7.291,8.078,9.546,10.91,12.2,13.41,14.55,15.64,16.67,21,24,25.98,27.28,28.74,29.41,29.68,29.73,29.64,29.47,29.24,27.74,26.13,24.61,23.22,20.83,18.86,17.22,15.83,14.65,13.62,12.73};
    187 AddData(E,AA_17,dens[j]*factor);
    188 G4double AA_18[31]={7.435,8.239,9.732,11.11,12.42,13.66,14.83,15.94,16.99,21.52,24.74,26.92,28.38,30.07,30.87,31.24,31.35,31.31,31.17,30.97,29.52,27.91,26.37,24.95,22.48,20.43,18.71,17.25,16,14.92,13.97};
    189 AddData(E,AA_18,dens[j]*factor);
    190 j++;
    191 
    192 G4double B_3[31]={2.062,2.238,2.532,2.764,2.943,3.077,3.176,3.247,3.296,3.354,3.282,3.176,3.061,2.839,2.639,2.461,2.305,2.167,2.044,1.933,1.523,1.257,1.072,0.9372,0.752,0.6313,0.5463,0.4831,0.4341,0.3949,0.3627};
    193 AddData(E,B_3,dens[j]*factor);
    194 G4double B_4[31]={2.56,2.797,3.205,3.546,3.829,4.06,4.245,4.39,4.502,4.751,4.76,4.686,4.581,4.346,4.113,3.896,3.696,3.513,3.346,3.193,2.592,2.179,1.879,1.653,1.335,1.123,0.9729,0.8601,0.7724,0.7024,0.645};
    195 AddData(E,B_4,dens[j]*factor);
    196 G4double B_5[31]={2.959,3.253,3.766,4.204,4.582,4.905,5.178,5.404,5.588,6.086,6.216,6.203,6.13,5.915,5.676,5.439,5.212,4.998,4.799,4.612,3.848,3.292,2.872,2.547,2.076,1.755,1.522,1.347,1.21,1.1,1.009};
    197 AddData(E,B_5,dens[j]*factor);
    198 G4double B_6[31]={3.28,3.628,4.24,4.769,5.234,5.642,5.998,6.305,6.566,7.35,7.635,7.707,7.683,7.514,7.286,7.045,6.805,6.572,6.35,6.138,5.239,4.553,4.019,3.593,2.962,2.518,2.192,1.943,1.746,1.588,1.458};
    199 AddData(E,B_6,dens[j]*factor);
    200 G4double B_7[31]={3.554,3.946,4.645,5.254,5.796,6.28,6.712,7.094,7.428,8.517,8.989,9.172,9.216,9.119,8.923,8.692,8.451,8.21,7.974,7.746,6.741,5.941,5.298,4.775,3.979,3.407,2.978,2.646,2.382,2.168,1.99};
    201 AddData(E,B_7,dens[j]*factor);
    202 G4double B_8[31]={3.796,4.228,5.005,5.69,6.302,6.856,7.357,7.808,8.212,9.609,10.28,10.59,10.72,10.72,10.57,10.36,10.13,9.893,9.653,9.415,8.332,7.434,6.695,6.079,5.121,4.415,3.877,3.456,3.117,2.84,2.61};
    203 AddData(E,B_8,dens[j]*factor);
    204 G4double B_9[31]={4.002,4.467,5.312,6.064,6.739,7.354,7.915,8.427,8.892,10.58,11.47,11.91,12.13,12.23,12.13,11.95,11.73,11.5,11.25,11.01,9.875,8.901,8.082,7.389,6.291,5.466,4.828,4.321,3.91,3.572,3.288};
    205 AddData(E,B_9,dens[j]*factor);
    206 G4double B_10[31]={4.19,4.683,5.587,6.399,7.133,7.803,8.418,8.986,9.507,11.47,12.58,13.18,13.49,13.71,13.67,13.52,13.32,13.1,12.86,12.61,11.43,10.39,9.506,8.744,7.517,6.578,5.842,5.252,4.768,4.367,4.029};
    207 AddData(E,B_10,dens[j]*factor);
    208 G4double B_11[31]={4.337,4.854,5.813,6.684,7.477,8.206,8.878,9.502,10.08,12.34,13.71,14.5,14.94,15.33,15.4,15.33,15.18,14.98,14.77,14.54,13.38,12.3,11.34,10.51,9.131,8.049,7.183,6.477,5.894,5.404,4.988};
    209 AddData(E,B_11,dens[j]*factor);
    210 G4double B_12[31]={4.499,5.029,6.02,6.929,7.763,8.531,9.243,9.905,10.52,13,14.57,15.51,16.07,16.58,16.7,16.66,16.52,16.33,16.11,15.87,14.66,13.53,12.52,11.64,10.18,9.031,8.103,7.343,6.711,6.178,5.723};
    211 AddData(E,B_12,dens[j]*factor);
    212 G4double B_13[31]={4.647,5.193,6.215,7.16,8.035,8.846,9.599,10.3,10.96,13.65,15.45,16.57,17.25,17.93,18.16,18.17,18.08,17.91,17.71,17.49,16.28,15.12,14.07,13.14,11.57,10.32,9.31,8.47,7.765,7.166,6.653};
    213 AddData(E,B_13,dens[j]*factor);
    214 G4double B_14[31]={4.794,5.352,6.401,7.378,8.289,9.137,9.928,10.66,11.36,14.25,16.25,17.55,18.37,19.22,19.55,19.64,19.58,19.45,19.27,19.06,17.87,16.68,15.6,14.62,12.96,11.62,10.52,9.613,8.84,8.18,7.611};
    215 AddData(E,B_14,dens[j]*factor);
    216 G4double B_15[31]={4.946,5.515,6.588,7.595,8.539,9.422,10.24,11.02,11.75,14.83,17.04,18.51,19.48,20.53,20.99,21.16,21.17,21.08,20.93,20.75,19.6,18.41,17.29,16.28,14.53,13.09,11.9,10.9,10.05,9.324,8.69};
    217 AddData(E,B_15,dens[j]*factor);
    218 G4double B_16[31]={5.082,5.665,6.766,7.802,8.779,9.697,10.55,11.36,12.13,15.38,17.79,19.45,20.56,21.82,22.41,22.67,22.74,22.7,22.59,22.43,21.36,20.17,19.03,17.98,16.15,14.62,13.34,12.26,11.33,10.53,9.839};
    219 AddData(E,B_16,dens[j]*factor);
    220 G4double B_17[31]={5.242,5.836,6.957,8.015,9.017,9.963,10.85,11.69,12.48,15.89,18.48,20.31,21.57,23.04,23.77,24.11,24.25,24.25,24.18,24.05,23.04,21.86,20.7,19.62,17.71,16.11,14.75,13.6,12.6,11.73,10.98};
    221 AddData(E,B_17,dens[j]*factor);
    222 G4double B_18[31]={5.351,5.954,7.092,8.167,9.189,10.15,11.07,11.93,12.75,16.29,19.03,21.03,22.44,24.11,24.96,25.39,25.59,25.64,25.59,25.49,24.53,23.35,22.18,21.08,19.11,17.45,16.03,14.81,13.76,12.85,12.04};
    223 AddData(E,B_18,dens[j]*factor);
    224 j++;
    225 
    226 G4double C_3[31]={1.355,1.466,1.653,1.806,1.931,2.032,2.115,2.181,2.234,2.369,2.391,2.366,2.32,2.204,2.082,1.966,1.859,1.76,1.671,1.59,1.276,1.066,0.9168,0.8057,0.6519,0.5505,0.4785,0.4246,0.3826,0.3489,0.3212};
    227 AddData(E,C_3,dens[j]*factor);
    228 G4double C_4[31]={1.73,1.882,2.144,2.364,2.553,2.714,2.851,2.967,3.065,3.355,3.462,3.485,3.466,3.368,3.24,3.105,2.973,2.847,2.728,2.617,2.166,1.843,1.603,1.419,1.156,0.979,0.8516,0.7556,0.6807,0.6205,0.5712};
    229 AddData(E,C_4,dens[j]*factor);
    230 G4double C_5[31]={2.04,2.23,2.562,2.845,3.093,3.311,3.503,3.671,3.816,4.292,4.511,4.603,4.627,4.576,4.464,4.328,4.185,4.043,3.905,3.773,3.207,2.777,2.444,2.182,1.796,1.528,1.332,1.183,1.066,0.9714,0.8937};
    231 AddData(E,C_5,dens[j]*factor);
    232 G4double C_6[31]={2.295,2.523,2.922,3.267,3.572,3.844,4.087,4.306,4.5,5.177,5.527,5.704,5.786,5.803,5.722,5.599,5.458,5.31,5.161,5.015,4.36,3.835,3.415,3.074,2.559,2.191,1.917,1.706,1.538,1.403,1.29};
    233 AddData(E,C_6,dens[j]*factor);
    234 G4double C_7[31]={2.515,2.773,3.232,3.633,3.99,4.312,4.604,4.869,5.109,5.992,6.491,6.769,6.923,7.029,6.998,6.901,6.771,6.626,6.475,6.322,5.603,4.998,4.497,4.081,3.436,2.963,2.603,2.323,2.098,1.915,1.762};
    235 AddData(E,C_7,dens[j]*factor);
    236 G4double C_8[31]={2.707,2.993,3.506,3.959,4.366,4.735,5.073,5.383,5.667,6.753,7.409,7.8,8.035,8.247,8.278,8.218,8.11,7.976,7.829,7.675,6.915,6.244,5.673,5.188,4.416,3.836,3.388,3.033,2.745,2.509,2.311};
    237 AddData(E,C_8,dens[j]*factor);
    238 G4double C_9[31]={2.876,3.185,3.746,4.245,4.696,5.108,5.487,5.838,6.162,7.438,8.249,8.755,9.075,9.399,9.497,9.478,9.395,9.276,9.136,8.985,8.201,7.48,6.852,6.309,5.429,4.753,4.222,3.795,3.447,3.157,2.914};
    239 AddData(E,C_9,dens[j]*factor);
    240 G4double C_10[31]={3.029,3.359,3.961,4.502,4.994,5.446,5.863,6.251,6.613,8.069,9.037,9.665,10.07,10.52,10.69,10.72,10.67,10.57,10.44,10.3,9.503,8.742,8.065,7.471,6.491,5.724,5.113,4.617,4.207,3.864,3.574};
    241 AddData(E,C_10,dens[j]*factor);
    242 G4double C_11[31]={3.151,3.498,4.137,4.716,5.247,5.736,6.191,6.615,7.012,8.647,9.778,10.54,11.05,11.63,11.89,11.98,11.97,11.9,11.78,11.65,10.86,10.07,9.354,8.713,7.637,6.781,6.089,5.52,5.046,4.647,4.306};
    243 AddData(E,C_11,dens[j]*factor);
    244 G4double C_12[31]={3.282,3.642,4.308,4.919,5.482,6.005,6.491,6.947,7.375,9.168,10.45,11.34,11.95,12.68,13.04,13.19,13.22,13.17,13.08,12.96,12.18,11.37,10.62,9.939,8.782,7.848,7.083,6.449,5.916,5.463,5.073};
    245 AddData(E,C_12,dens[j]*factor);
    246 G4double C_13[31]={3.4,3.772,4.463,5.1,5.691,6.244,6.762,7.248,7.705,9.646,11.08,12.1,12.81,13.7,14.16,14.38,14.46,14.45,14.38,14.28,13.53,12.71,11.93,11.21,9.982,8.972,8.136,7.436,6.844,6.336,5.898};
    247 AddData(E,C_13,dens[j]*factor);
    248 G4double C_14[31]={3.513,3.896,4.608,5.268,5.884,6.463,7.008,7.521,8.006,10.08,11.65,12.8,13.62,14.66,15.23,15.53,15.66,15.69,15.65,15.57,14.85,14.02,13.22,12.48,11.18,10.1,9.201,8.441,7.792,7.234,6.748};
    249 AddData(E,C_14,dens[j]*factor);
    250 G4double C_15[31]={3.621,4.013,4.743,5.423,6.063,6.666,7.237,7.776,8.287,10.49,12.2,13.48,14.41,15.63,16.32,16.71,16.91,16.99,16.98,16.93,16.29,15.47,14.65,13.88,12.52,11.37,10.4,9.571,8.86,8.243,7.705};
    251 AddData(E,C_15,dens[j]*factor);
    252 G4double C_16[31]={3.72,4.122,4.874,5.575,6.238,6.865,7.46,8.024,8.561,10.89,12.73,14.14,15.19,16.58,17.39,17.87,18.15,18.28,18.32,18.29,17.73,16.93,16.11,15.32,13.9,12.69,11.65,10.76,9.984,9.311,8.719};
    253 AddData(E,C_16,dens[j]*factor);
    254 G4double C_17[31]={3.832,4.242,5.008,5.726,6.406,7.054,7.669,8.255,8.814,11.26,13.22,14.75,15.91,17.47,18.41,18.99,19.33,19.52,19.6,19.61,19.13,18.35,17.52,16.72,15.25,13.98,12.88,11.93,11.1,10.38,9.736};
    255 AddData(E,C_17,dens[j]*factor);
    256 G4double C_18[31]={3.921,4.338,5.118,5.849,6.544,7.208,7.842,8.448,9.026,11.58,13.65,15.29,16.55,18.29,19.35,20.02,20.43,20.67,20.8,20.84,20.43,19.67,18.84,18.02,16.51,15.18,14.03,13.04,12.16,11.39,10.71};
    257 AddData(E,C_18,dens[j]*factor);
    258 j++;
    259 
    260 G4double D_3[31]={2.204,2.403,2.723,2.962,3.137,3.265,3.355,3.418,3.459,3.491,3.406,3.291,3.171,2.939,2.731,2.548,2.387,2.244,2.117,2.004,1.581,1.307,1.117,0.9771,0.7854,0.6601,0.5718,0.5059,0.4547,0.4138,0.3803};
    261 AddData(E,D_3,dens[j]*factor);
    262 G4double D_4[31]={2.712,2.981,3.438,3.805,4.096,4.324,4.5,4.636,4.738,4.953,4.942,4.856,4.742,4.494,4.252,4.026,3.82,3.631,3.459,3.301,2.684,2.259,1.951,1.719,1.391,1.172,1.016,0.8994,0.8084,0.7355,0.6757};
    263 AddData(E,D_4,dens[j]*factor);
    264 G4double D_5[31]={3.108,3.438,4.018,4.502,4.904,5.236,5.506,5.725,5.9,6.355,6.459,6.43,6.345,6.115,5.863,5.616,5.381,5.16,4.954,4.762,3.975,3.404,2.974,2.64,2.158,1.827,1.588,1.406,1.264,1.15,1.057};
    265 AddData(E,D_5,dens[j]*factor);
    266 G4double D_6[31]={3.419,3.802,4.489,5.081,5.589,6.02,6.385,6.691,6.946,7.683,7.935,7.988,7.949,7.761,7.52,7.267,7.017,6.776,6.546,6.328,5.402,4.698,4.151,3.715,3.069,2.615,2.28,2.024,1.822,1.658,1.524};
    267 AddData(E,D_6,dens[j]*factor);
    268 G4double D_7[31]={3.699,4.122,4.892,5.573,6.171,6.693,7.146,7.536,7.87,8.913,9.345,9.503,9.529,9.41,9.198,8.955,8.703,8.452,8.208,7.972,6.937,6.116,5.46,4.925,4.113,3.528,3.09,2.75,2.479,2.259,2.077};
    269 AddData(E,D_7,dens[j]*factor);
    270 G4double D_8[31]={3.948,4.407,5.25,6.009,6.688,7.293,7.829,8.3,8.711,10.07,10.7,10.99,11.09,11.06,10.9,10.67,10.43,10.18,9.928,9.682,8.563,7.642,6.886,6.257,5.281,4.562,4.014,3.583,3.237,2.954,2.718};
    271 AddData(E,D_8,dens[j]*factor);
    272 G4double D_9[31]={4.148,4.637,5.539,6.363,7.111,7.788,8.396,8.94,9.423,11.09,11.94,12.35,12.54,12.61,12.5,12.3,12.07,11.82,11.57,11.32,10.15,9.147,8.308,7.602,6.483,5.644,4.994,4.477,4.058,3.711,3.421};
    273 AddData(E,D_9,dens[j]*factor);
    274 G4double D_10[31]={4.332,4.847,5.801,6.677,7.485,8.224,8.897,9.508,10.06,12.03,13.09,13.65,13.94,14.13,14.07,13.91,13.7,13.46,13.22,12.96,11.75,10.68,9.773,8.995,7.745,6.79,6.041,5.439,4.946,4.535,4.189};
    275 AddData(E,D_10,dens[j]*factor);
    276 G4double D_11[31]={4.494,5.033,6.04,6.97,7.838,8.642,9.383,10.06,10.69,13,14.34,15.1,15.53,15.9,15.95,15.87,15.71,15.5,15.28,15.04,13.83,12.71,11.72,10.86,9.432,8.319,7.429,6.705,6.106,5.604,5.177};
    277 AddData(E,D_11,dens[j]*factor);
    278 G4double D_12[31]={4.672,5.218,6.244,7.198,8.094,8.932,9.712,10.43,11.1,13.66,15.2,16.1,16.62,17.1,17.21,17.15,17,16.8,16.58,16.34,15.09,13.92,12.89,11.99,10.5,9.319,8.373,7.597,6.952,6.407,5.942};
    279 AddData(E,D_12,dens[j]*factor);
    280 G4double D_13[31]={4.842,5.403,6.458,7.44,8.367,9.243,10.06,10.83,11.55,14.36,16.13,17.2,17.86,18.51,18.72,18.72,18.62,18.44,18.24,18.01,16.76,15.57,14.49,13.53,11.93,10.66,9.617,8.759,8.039,7.428,6.903};
    281 AddData(E,D_13,dens[j]*factor);
    282 G4double D_14[31]={5.012,5.585,6.664,7.673,8.626,9.531,10.39,11.19,11.95,14.99,16.98,18.23,19.02,19.84,20.16,20.23,20.17,20.03,19.84,19.63,18.4,17.18,16.06,15.06,13.37,12,10.88,9.941,9.152,8.477,7.895};
    283 AddData(E,D_14,dens[j]*factor);
    284 G4double D_15[31]={5.2,5.786,6.889,7.923,8.9,9.832,10.72,11.56,12.35,15.61,17.82,19.26,20.19,21.2,21.64,21.8,21.79,21.7,21.54,21.35,20.17,18.94,17.8,16.75,14.96,13.5,12.28,11.26,10.39,9.648,9.002};
    285 AddData(E,D_15,dens[j]*factor);
    286 G4double D_16[31]={5.36,5.962,7.094,8.155,9.159,10.12,11.03,11.91,12.73,16.2,18.62,20.24,21.32,22.54,23.11,23.36,23.42,23.37,23.25,23.09,21.97,20.74,19.57,18.49,16.61,15.06,13.75,12.65,11.7,10.89,10.18};
    287 AddData(E,D_16,dens[j]*factor);
    288 G4double D_17[31]={5.554,6.169,7.319,8.4,9.423,10.4,11.34,12.24,13.09,16.74,19.36,21.16,22.38,23.8,24.5,24.83,24.96,24.96,24.88,24.74,23.69,22.47,21.28,20.17,18.22,16.58,15.19,14.02,13,12.12,11.35};
    289 AddData(E,D_17,dens[j]*factor);
    290 G4double D_18[31]={5.672,6.299,7.469,8.566,9.605,10.6,11.55,12.47,13.35,17.15,19.95,21.92,23.28,24.91,25.73,26.16,26.34,26.39,26.34,26.22,25.23,24.02,22.82,21.68,19.67,17.97,16.52,15.28,14.21,13.28,12.46};
    291 AddData(E,D_18,dens[j]*factor);
    292 j++;
    293 
    294 G4double E_3[31]={2.041,2.227,2.528,2.754,2.923,3.048,3.138,3.201,3.244,3.289,3.217,3.113,3.003,2.789,2.596,2.425,2.275,2.141,2.021,1.915,1.515,1.256,1.074,0.9407,0.7572,0.6371,0.5522,0.4889,0.4397,0.4003,0.3679};
    295 AddData(E,E_3,dens[j]*factor);
    296 G4double E_4[31]={2.507,2.76,3.189,3.535,3.811,4.031,4.203,4.337,4.44,4.665,4.667,4.593,4.491,4.264,4.041,3.831,3.639,3.463,3.301,3.153,2.572,2.169,1.876,1.654,1.341,1.132,0.9817,0.8693,0.7817,0.7114,0.6538};
    297 AddData(E,E_4,dens[j]*factor);
    298 G4double E_5[31]={2.869,3.179,3.723,4.178,4.559,4.875,5.135,5.349,5.521,5.982,6.098,6.081,6.009,5.801,5.571,5.343,5.125,4.92,4.727,4.547,3.808,3.268,2.859,2.541,2.08,1.764,1.534,1.359,1.223,1.113,1.023};
    299 AddData(E,E_5,dens[j]*factor);
    300 G4double E_6[31]={3.155,3.512,4.157,4.714,5.192,5.601,5.95,6.245,6.492,7.226,7.489,7.554,7.528,7.364,7.145,6.914,6.683,6.46,6.246,6.042,5.174,4.51,3.991,3.576,2.959,2.524,2.203,1.957,1.762,1.605,1.475};
    301 AddData(E,E_6,dens[j]*factor);
    302 G4double E_7[31]={3.408,3.802,4.524,5.165,5.729,6.222,6.653,7.026,7.348,8.376,8.816,8.984,9.023,8.928,8.74,8.519,8.288,8.057,7.831,7.612,6.644,5.871,5.249,4.741,3.966,3.407,2.986,2.659,2.399,2.186,2.011};
    303 AddData(E,E_7,dens[j]*factor);
    304 G4double E_8[31]={3.634,4.062,4.85,5.564,6.204,6.775,7.283,7.731,8.126,9.455,10.09,10.38,10.5,10.5,10.35,10.15,9.932,9.702,9.471,9.243,8.2,7.334,6.619,6.023,5.092,4.405,3.879,3.465,3.133,2.859,2.632};
    305 AddData(E,E_8,dens[j]*factor);
    306 G4double E_9[31]={3.82,4.275,5.117,5.891,6.596,7.235,7.81,8.326,8.787,10.41,11.25,11.67,11.88,11.97,11.88,11.71,11.5,11.27,11.04,10.81,9.719,8.781,7.99,7.319,6.254,5.451,4.828,4.331,3.928,3.594,3.314};
    307 AddData(E,E_9,dens[j]*factor);
    308 G4double E_10[31]={3.991,4.47,5.359,6.182,6.943,7.64,8.277,8.855,9.378,11.29,12.34,12.91,13.21,13.41,13.38,13.24,13.06,12.84,12.62,12.38,11.26,10.26,9.4,8.663,7.473,6.56,5.842,5.263,4.789,4.393,4.059};
    309 AddData(E,E_10,dens[j]*factor);
    310 G4double E_11[31]={4.141,4.641,5.578,6.448,7.264,8.022,8.721,9.364,9.953,12.18,13.49,14.24,14.68,15.06,15.14,15.07,14.93,14.75,14.55,14.33,13.21,12.17,11.24,10.42,9.075,8.016,7.167,6.475,5.901,5.419,5.009};
    311 AddData(E,E_11,dens[j]*factor);
    312 G4double E_12[31]={4.304,4.812,5.769,6.662,7.505,8.297,9.034,9.718,10.35,12.8,14.31,15.21,15.74,16.24,16.37,16.33,16.2,16.03,15.83,15.61,14.45,13.37,12.4,11.54,10.13,9.002,8.096,7.352,6.731,6.207,5.758};
    313 AddData(E,E_12,dens[j]*factor);
    314 G4double E_13[31]={4.461,4.982,5.965,6.884,7.756,8.583,9.36,10.09,10.76,13.45,15.18,16.25,16.91,17.57,17.8,17.83,17.74,17.59,17.41,17.2,16.06,14.94,13.93,13.03,11.51,10.29,9.299,8.476,7.784,7.196,6.69};
    315 AddData(E,E_13,dens[j]*factor);
    316 G4double E_14[31]={4.617,5.149,6.155,7.098,7.993,8.848,9.658,10.42,11.14,14.04,15.98,17.22,18.01,18.84,19.17,19.26,19.23,19.11,18.94,18.75,17.63,16.49,15.45,14.5,12.89,11.59,10.52,9.621,8.862,8.214,7.653};
    317 AddData(E,E_14,dens[j]*factor);
    318 G4double E_15[31]={4.786,5.33,6.357,7.322,8.239,9.119,9.959,10.75,11.51,14.61,16.76,18.17,19.1,20.13,20.58,20.76,20.77,20.7,20.57,20.4,19.33,18.19,17.11,16.13,14.43,13.04,11.88,10.9,10.07,9.349,8.727};
    319 AddData(E,E_15,dens[j]*factor);
    320 G4double E_16[31]={4.931,5.49,6.543,7.534,8.475,9.379,10.25,11.07,11.86,15.16,17.5,19.1,20.17,21.39,21.98,22.24,22.32,22.29,22.2,22.05,21.04,19.91,18.82,17.8,16.03,14.54,13.3,12.24,11.34,10.55,9.865};
    321 AddData(E,E_16,dens[j]*factor);
    322 G4double E_17[31]={5.106,5.676,6.746,7.755,8.714,9.635,10.52,11.37,12.19,15.65,18.18,19.95,21.16,22.59,23.3,23.65,23.79,23.81,23.75,23.63,22.69,21.57,20.46,19.42,17.57,16.02,14.7,13.57,12.6,11.75,11.01};
    323 AddData(E,E_17,dens[j]*factor);
    324 G4double E_18[31]={5.216,5.797,6.886,7.91,8.884,9.818,10.72,11.59,12.43,16.04,18.74,20.67,22.02,23.64,24.47,24.91,25.12,25.18,25.15,25.06,24.18,23.06,21.94,20.88,18.98,17.36,15.98,14.8,13.77,12.87,12.09};
    325 AddData(E,E_18,dens[j]*factor);
    326 j++;
    327 
    328 G4double F_3[31]={1.926,2.103,2.397,2.623,2.794,2.92,3.013,3.079,3.126,3.192,3.136,3.044,2.941,2.737,2.551,2.384,2.236,2.105,1.987,1.882,1.486,1.229,1.05,0.9178,0.7373,0.6196,0.5365,0.4747,0.4267,0.3883,0.3569};
    329 AddData(E,F_3,dens[j]*factor);
    330 G4double F_4[31]={2.371,2.606,3.017,3.357,3.634,3.855,4.029,4.165,4.271,4.519,4.545,4.488,4.397,4.186,3.972,3.77,3.582,3.409,3.251,3.105,2.528,2.129,1.838,1.618,1.309,1.102,0.955,0.8448,0.7592,0.6906,0.6344};
    331 AddData(E,F_4,dens[j]*factor);
    332 G4double F_5[31]={2.721,3.009,3.521,3.961,4.337,4.653,4.915,5.129,5.304,5.787,5.931,5.937,5.881,5.695,5.478,5.26,5.048,4.848,4.659,4.482,3.751,3.214,2.808,2.492,2.034,1.721,1.494,1.323,1.189,1.081,0.9929};
    333 AddData(E,F_5,dens[j]*factor);
    334 G4double F_6[31]={2.999,3.334,3.936,4.466,4.933,5.339,5.687,5.983,6.233,6.986,7.28,7.372,7.366,7.23,7.029,6.809,6.587,6.37,6.161,5.961,5.103,4.443,3.926,3.513,2.899,2.468,2.15,1.907,1.715,1.561,1.433};
    335 AddData(E,F_6,dens[j]*factor);
    336 G4double F_7[31]={3.243,3.614,4.29,4.894,5.437,5.922,6.35,6.724,7.048,8.093,8.565,8.766,8.83,8.769,8.602,8.395,8.174,7.951,7.731,7.516,6.56,5.791,5.171,4.665,3.893,3.336,2.919,2.595,2.338,2.129,1.956};
    337 AddData(E,F_7,dens[j]*factor);
    338 G4double F_8[31]={3.463,3.867,4.607,5.277,5.887,6.443,6.944,7.391,7.787,9.131,9.799,10.13,10.27,10.31,10.19,10.01,9.799,9.579,9.355,9.133,8.105,7.245,6.531,5.936,5.007,4.322,3.798,3.388,3.058,2.788,2.563};
    339 AddData(E,F_8,dens[j]*factor);
    340 G4double F_9[31]={3.645,4.075,4.87,5.595,6.263,6.877,7.441,7.953,8.413,10.05,10.91,11.37,11.61,11.75,11.68,11.53,11.34,11.12,10.9,10.68,9.598,8.667,7.878,7.21,6.147,5.347,4.727,4.234,3.834,3.504,3.228};
    341 AddData(E,F_9,dens[j]*factor);
    342 G4double F_10[31]={3.812,4.265,5.107,5.881,6.597,7.263,7.881,8.45,8.97,10.88,11.96,12.56,12.9,13.15,13.15,13.04,12.86,12.66,12.44,12.22,11.11,10.11,9.261,8.527,7.341,6.432,5.718,5.144,4.674,4.283,3.953};
    343 AddData(E,F_10,dens[j]*factor);
    344 G4double F_11[31]={3.948,4.421,5.31,6.132,6.899,7.618,8.292,8.921,9.504,11.73,13.06,13.85,14.32,14.76,14.87,14.83,14.71,14.54,14.35,14.14,13.05,12.02,11.1,10.29,8.949,7.893,7.048,6.358,5.787,5.308,4.901};
    345 AddData(E,F_11,dens[j]*factor);
    346 G4double F_12[31]={4.1,4.581,5.489,6.337,7.131,7.879,8.584,9.248,9.869,12.32,13.84,14.77,15.34,15.89,16.06,16.05,15.94,15.78,15.58,15.37,14.24,13.17,12.2,11.36,9.946,8.829,7.929,7.191,6.576,6.057,5.613};
    347 AddData(E,F_12,dens[j]*factor);
    348 G4double F_13[31]={4.243,4.737,5.669,6.544,7.369,8.148,8.886,9.587,10.25,12.93,14.66,15.76,16.46,17.18,17.45,17.51,17.44,17.31,17.13,16.93,15.81,14.71,13.71,12.81,11.31,10.09,9.109,8.292,7.606,7.024,6.524};
    349 AddData(E,F_13,dens[j]*factor);
    350 G4double F_14[31]={4.384,4.889,5.844,6.742,7.591,8.397,9.164,9.895,10.59,13.47,15.41,16.68,17.5,18.4,18.78,18.9,18.88,18.78,18.63,18.45,17.35,16.22,15.19,14.25,12.66,11.36,10.3,9.409,8.658,8.016,7.462};
    351 AddData(E,F_14,dens[j]*factor);
    352 G4double F_15[31]={4.538,5.054,6.03,6.951,7.825,8.656,9.45,10.21,10.93,14.01,16.15,17.59,18.56,19.65,20.16,20.36,20.41,20.35,20.23,20.07,19.03,17.9,16.84,15.86,14.18,12.79,11.64,10.67,9.844,9.133,8.517};
    353 AddData(E,F_15,dens[j]*factor);
    354 G4double F_16[31]={4.67,5.2,6.202,7.148,8.047,8.904,9.723,10.51,11.26,14.52,16.86,18.47,19.58,20.88,21.52,21.82,21.93,21.92,21.84,21.71,20.73,19.61,18.53,17.52,15.76,14.29,13.05,12,11.1,10.32,9.639};
    355 AddData(E,F_16,dens[j]*factor);
    356 G4double F_17[31]={4.832,5.372,6.391,7.353,8.271,9.148,9.989,10.8,11.57,14.98,17.51,19.29,20.53,22.03,22.8,23.19,23.37,23.41,23.36,23.26,22.35,21.24,20.14,19.11,17.28,15.73,14.42,13.3,12.33,11.49,10.75};
    357 AddData(E,F_17,dens[j]*factor);
    358 G4double F_18[31]={4.931,5.481,6.515,7.491,8.423,9.316,10.17,11,11.79,15.33,18.02,19.96,21.33,23.03,23.93,24.41,24.64,24.73,24.71,24.64,23.79,22.68,21.58,20.52,18.64,17.03,15.66,14.49,13.47,12.58,11.8};
    359 AddData(E,F_18,dens[j]*factor);
    360 j++;
    361 
    362 G4double G_3[31]={1.514,1.638,1.842,2.004,2.133,2.236,2.317,2.379,2.427,2.52,2.5,2.443,2.372,2.226,2.088,1.963,1.851,1.75,1.659,1.577,1.265,1.057,0.9105,0.801,0.6489,0.5484,0.4768,0.4231,0.3813,0.3477,0.32};
    363 AddData(E,G_3,dens[j]*factor);
    364 G4double G_4[31]={1.913,2.085,2.375,2.615,2.815,2.982,3.122,3.237,3.331,3.582,3.636,3.612,3.556,3.409,3.253,3.102,2.96,2.829,2.707,2.594,2.143,1.824,1.587,1.406,1.148,0.9733,0.8473,0.7521,0.6777,0.6179,0.5687};
    365 AddData(E,G_4,dens[j]*factor);
    366 G4double G_5[31]={2.238,2.453,2.825,3.138,3.406,3.637,3.836,4.007,4.152,4.594,4.753,4.786,4.762,4.642,4.488,4.327,4.169,4.018,3.874,3.738,3.169,2.743,2.415,2.158,1.779,1.516,1.323,1.176,1.06,0.9664,0.8893};
    367 AddData(E,G_5,dens[j]*factor);
    368 G4double G_6[31]={2.506,2.761,3.209,3.592,3.925,4.217,4.474,4.7,4.898,5.549,5.838,5.948,5.97,5.897,5.761,5.603,5.44,5.278,5.12,4.968,4.304,3.783,3.369,3.034,2.529,2.169,1.9,1.692,1.527,1.394,1.283};
    369 AddData(E,G_6,dens[j]*factor);
    370 G4double G_7[31]={2.732,3.021,3.534,3.981,4.375,4.724,5.036,5.315,5.563,6.432,6.87,7.074,7.158,7.154,7.051,6.909,6.75,6.586,6.422,6.261,5.528,4.925,4.431,4.022,3.39,2.927,2.576,2.301,2.08,1.9,1.75};
    371 AddData(E,G_7,dens[j]*factor);
    372 G4double G_8[31]={2.934,3.251,3.824,4.329,4.779,5.183,5.547,5.876,6.173,7.259,7.855,8.168,8.324,8.406,8.348,8.231,8.086,7.927,7.764,7.599,6.818,6.147,5.582,5.105,4.349,3.783,3.345,2.998,2.717,2.485,2.291};
    373 AddData(E,G_8,dens[j]*factor);
    374 G4double G_9[31]={3.114,3.456,4.078,4.635,5.135,5.589,6.001,6.376,6.718,8.011,8.77,9.196,9.431,9.608,9.602,9.514,9.386,9.236,9.076,8.911,8.097,7.374,6.75,6.214,5.349,4.687,4.168,3.751,3.41,3.127,2.888};
    375 AddData(E,G_9,dens[j]*factor);
    376 G4double G_10[31]={3.28,3.643,4.309,4.911,5.457,5.956,6.412,6.831,7.216,8.707,9.63,10.18,10.5,10.78,10.84,10.79,10.68,10.54,10.39,10.23,9.397,8.63,7.956,7.367,6.401,5.649,5.05,4.565,4.163,3.827,3.542};
    377 AddData(E,G_10,dens[j]*factor);
    378 G4double G_11[31]={3.422,3.803,4.507,5.148,5.736,6.277,6.775,7.236,7.661,9.347,10.44,11.12,11.54,11.95,12.08,12.07,11.99,11.87,11.73,11.58,10.75,9.946,9.227,8.591,7.53,6.689,6.011,5.454,4.99,4.598,4.264};
    379 AddData(E,G_11,dens[j]*factor);
    380 G4double G_12[31]={3.568,3.963,4.697,5.371,5.994,6.572,7.107,7.604,8.067,9.931,11.19,12,12.52,13.06,13.27,13.31,13.27,13.17,13.04,12.9,12.07,11.24,10.49,9.811,8.666,7.745,6.994,6.372,5.849,5.405,5.023};
    381 AddData(E,G_12,dens[j]*factor);
    382 G4double G_13[31]={3.704,4.112,4.873,5.576,6.23,6.84,7.41,7.942,8.439,10.47,11.89,12.83,13.46,14.15,14.44,14.54,14.54,14.47,14.36,14.23,13.42,12.57,11.79,11.08,9.853,8.856,8.034,7.347,6.765,6.268,5.837};
    383 AddData(E,G_13,dens[j]*factor);
    384 G4double G_14[31]={3.835,4.255,5.039,5.767,6.447,7.086,7.686,8.25,8.779,10.97,12.54,13.62,14.35,15.18,15.57,15.73,15.77,15.73,15.64,15.53,14.75,13.89,13.08,12.34,11.05,9.98,9.092,8.344,7.707,7.158,6.681};
    385 AddData(E,G_14,dens[j]*factor);
    386 G4double G_15[31]={3.959,4.391,5.195,5.945,6.65,7.315,7.943,8.535,9.094,11.44,13.15,14.37,15.21,16.21,16.71,16.95,17.04,17.04,16.98,16.89,16.16,15.32,14.49,13.72,12.36,11.22,10.27,9.452,8.753,8.148,7.62};
    387 AddData(E,G_15,dens[j]*factor);
    388 G4double G_16[31]={4.077,4.521,5.348,6.12,6.848,7.538,8.193,8.812,9.398,11.88,13.74,15.09,16.05,17.23,17.83,18.15,18.3,18.34,18.32,18.25,17.59,16.76,15.92,15.13,13.71,12.51,11.49,10.61,9.853,9.192,8.613};
    389 AddData(E,G_16,dens[j]*factor);
    390 G4double G_17[31]={4.203,4.656,5.5,6.289,7.036,7.747,8.424,9.068,9.679,12.3,14.29,15.77,16.84,18.19,18.91,19.31,19.52,19.6,19.61,19.57,18.98,18.17,17.33,16.52,15.05,13.79,12.71,11.77,10.96,10.25,9.617};
    391 AddData(E,G_17,dens[j]*factor);
    392 G4double G_18[31]={4.313,4.776,5.638,6.443,7.208,7.938,8.635,9.299,9.933,12.67,14.79,16.39,17.58,19.09,19.93,20.41,20.67,20.81,20.85,20.83,20.31,19.51,18.66,17.83,16.31,15,13.86,12.88,12.02,11.26,10.59};
    393 AddData(E,G_18,dens[j]*factor);
    394 j++;
    395 
    396 G4double H_3[31]={1.909,2.083,2.374,2.602,2.778,2.91,3.008,3.079,3.128,3.196,3.137,3.042,2.938,2.733,2.547,2.38,2.232,2.101,1.984,1.878,1.484,1.227,1.048,0.9166,0.7364,0.6188,0.5359,0.4741,0.4262,0.3879,0.3565};
    397 AddData(E,H_3,dens[j]*factor);
    398 G4double H_4[31]={2.35,2.582,2.986,3.325,3.605,3.832,4.014,4.157,4.267,4.525,4.547,4.487,4.395,4.182,3.967,3.765,3.577,3.404,3.246,3.1,2.525,2.127,1.837,1.617,1.308,1.101,0.9543,0.8441,0.7585,0.69,0.6338};
    399 AddData(E,H_4,dens[j]*factor);
    400 G4double H_5[31]={2.696,2.981,3.484,3.919,4.295,4.615,4.885,5.108,5.29,5.791,5.935,5.937,5.878,5.689,5.472,5.253,5.042,4.842,4.653,4.477,3.747,3.212,2.807,2.492,2.034,1.721,1.494,1.322,1.188,1.081,0.9923};
    401 AddData(E,H_5,dens[j]*factor);
    402 G4double H_6[31]={2.972,3.304,3.899,4.422,4.885,5.292,5.645,5.949,6.207,6.988,7.286,7.374,7.365,7.224,7.022,6.802,6.58,6.364,6.155,5.956,5.101,4.443,3.927,3.515,2.901,2.469,2.151,1.907,1.715,1.56,1.433};
    403 AddData(E,H_6,dens[j]*factor);
    404 G4double H_7[31]={3.208,3.579,4.25,4.848,5.386,5.869,6.3,6.679,7.011,8.091,8.573,8.771,8.831,8.765,8.596,8.389,8.169,7.947,7.727,7.514,6.562,5.795,5.177,4.671,3.898,3.34,2.922,2.598,2.34,2.13,1.957};
    405 AddData(E,H_7,dens[j]*factor);
    406 G4double H_8[31]={3.419,3.823,4.562,5.228,5.833,6.384,6.885,7.336,7.737,9.121,9.806,10.13,10.27,10.3,10.18,10,9.794,9.574,9.351,9.13,8.108,7.251,6.54,5.945,5.016,4.33,3.805,3.393,3.062,2.791,2.566};
    407 AddData(E,H_8,dens[j]*factor);
    408 G4double H_9[31]={3.605,4.037,4.835,5.56,6.223,6.833,7.395,7.907,8.372,10.05,10.94,11.4,11.63,11.76,11.69,11.54,11.34,11.13,10.9,10.68,9.605,8.676,7.889,7.221,6.158,5.357,4.735,4.241,3.84,3.509,3.231};
    409 AddData(E,H_9,dens[j]*factor);
    410 G4double H_10[31]={3.767,4.221,5.068,5.843,6.556,7.218,7.831,8.399,8.92,10.87,11.98,12.59,12.92,13.17,13.16,13.05,12.87,12.67,12.45,12.23,11.12,10.14,9.283,8.549,7.362,6.451,5.733,5.157,4.685,4.292,3.961};
    411 AddData(E,H_10,dens[j]*factor);
    412 G4double H_11[31]={3.897,4.371,5.263,6.088,6.854,7.567,8.235,8.858,9.438,11.69,13.05,13.84,14.31,14.73,14.83,14.79,14.66,14.5,14.3,14.1,13.01,11.99,11.08,10.28,8.943,7.892,7.049,6.36,5.79,5.311,4.904};
    413 AddData(E,H_11,dens[j]*factor);
    414 G4double H_12[31]={4.043,4.528,5.444,6.3,7.098,7.845,8.547,9.207,9.826,12.29,13.86,14.8,15.37,15.92,16.08,16.06,15.95,15.79,15.59,15.38,14.26,13.19,12.23,11.38,9.973,8.854,7.952,7.211,6.593,6.072,5.627};
    415 AddData(E,H_12,dens[j]*factor);
    416 G4double H_13[31]={4.179,4.676,5.618,6.503,7.334,8.116,8.855,9.552,10.21,12.9,14.68,15.8,16.5,17.21,17.48,17.52,17.45,17.32,17.15,16.95,15.83,14.74,13.74,12.84,11.34,10.12,9.136,8.316,7.628,7.044,6.541};
    417 AddData(E,H_13,dens[j]*factor);
    418 G4double H_14[31]={4.312,4.82,5.785,6.695,7.555,8.368,9.137,9.867,10.56,13.45,15.43,16.72,17.56,18.45,18.81,18.93,18.9,18.8,18.65,18.46,17.37,16.25,15.22,14.29,12.69,11.4,10.33,9.439,8.685,8.04,7.483};
    419 AddData(E,H_14,dens[j]*factor);
    420 G4double H_15[31]={4.45,4.968,5.953,6.887,7.774,8.615,9.415,10.18,10.9,13.98,16.16,17.64,18.61,19.7,20.19,20.39,20.43,20.37,20.25,20.09,19.05,17.94,16.88,15.91,14.23,12.84,11.68,10.71,9.878,9.164,8.545};
    421 AddData(E,H_15,dens[j]*factor);
    422 G4double H_16[31]={4.574,5.105,6.114,7.072,7.987,8.857,9.685,10.47,11.23,14.48,16.86,18.51,19.64,20.93,21.55,21.84,21.95,21.94,21.86,21.73,20.76,19.65,18.57,17.57,15.81,14.34,13.1,12.04,11.14,10.36,9.674};
    423 AddData(E,H_16,dens[j]*factor);
    424 G4double H_17[31]={4.722,5.263,6.289,7.266,8.201,9.094,9.946,10.76,11.54,14.94,17.5,19.33,20.59,22.09,22.85,23.23,23.4,23.44,23.39,23.29,22.39,21.29,20.2,19.17,17.34,15.79,14.48,13.35,12.38,11.54,10.8};
    425 AddData(E,H_17,dens[j]*factor);
    426 G4double H_18[31]={4.82,5.37,6.411,7.401,8.352,9.262,10.13,10.97,11.77,15.3,18.02,20,21.4,23.1,23.99,24.46,24.68,24.77,24.75,24.67,23.83,22.74,21.64,20.59,18.71,17.1,15.73,14.55,13.52,12.63,11.84};
    427 AddData(E,H_18,dens[j]*factor);
    428 j++;
    429 
    430 G4double I_3[31]={1.707,1.866,2.117,2.301,2.438,2.539,2.615,2.67,2.71,2.774,2.74,2.674,2.597,2.437,2.284,2.145,2.02,1.907,1.805,1.714,1.366,1.136,0.9741,0.8543,0.6893,0.5809,0.5042,0.4469,0.4023,0.3666,0.3372};
    431 AddData(E,I_3,dens[j]*factor);
    432 G4double I_4[31]={2.09,2.31,2.678,2.965,3.192,3.371,3.514,3.626,3.715,3.934,3.972,3.941,3.881,3.724,3.555,3.389,3.232,3.085,2.949,2.823,2.319,1.964,1.703,1.504,1.222,1.033,0.8972,0.7952,0.7156,0.6518,0.5994};
    433 AddData(E,I_4,dens[j]*factor);
    434 G4double I_5[31]={2.389,2.659,3.13,3.515,3.829,4.088,4.302,4.479,4.625,5.041,5.183,5.211,5.185,5.061,4.899,4.725,4.551,4.383,4.223,4.071,3.434,2.96,2.597,2.313,1.898,1.612,1.403,1.245,1.12,1.02,0.9381};
    435 AddData(E,I_5,dens[j]*factor);
    436 G4double I_6[31]={2.629,2.94,3.5,3.976,4.376,4.714,5,5.243,5.449,6.09,6.361,6.466,6.489,6.42,6.281,6.113,5.936,5.757,5.581,5.412,4.669,4.088,3.629,3.259,2.704,2.311,2.019,1.794,1.617,1.473,1.354};
    437 AddData(E,I_6,dens[j]*factor);
    438 G4double I_7[31]={2.835,3.177,3.806,4.359,4.837,5.249,5.604,5.911,6.178,7.059,7.483,7.684,7.771,7.78,7.681,7.533,7.363,7.184,7.002,6.822,6.001,5.327,4.779,4.327,3.63,3.124,2.741,2.443,2.204,2.01,1.849};
    439 AddData(E,I_7,dens[j]*factor);
    440 G4double I_8[31]={3.025,3.392,4.077,4.696,5.245,5.726,6.147,6.517,6.843,7.97,8.559,8.87,9.032,9.134,9.089,8.973,8.82,8.648,8.467,8.284,7.408,6.658,6.029,5.5,4.666,4.044,3.566,3.188,2.883,2.633,2.424};
    441 AddData(E,I_8,dens[j]*factor);
    442 G4double I_9[31]={3.194,3.582,4.312,4.983,5.591,6.134,6.615,7.043,7.425,8.789,9.548,9.974,10.22,10.42,10.43,10.35,10.22,10.06,9.882,9.698,8.787,7.977,7.283,6.689,5.736,5.01,4.443,3.989,3.619,3.313,3.055};
    443 AddData(E,I_9,dens[j]*factor);
    444 G4double I_10[31]={3.352,3.759,4.526,5.24,5.899,6.496,7.032,7.515,7.948,9.545,10.48,11.03,11.36,11.67,11.75,11.71,11.61,11.46,11.3,11.12,10.18,9.324,8.573,7.922,6.858,6.034,5.38,4.852,4.417,4.054,3.746};
    445 AddData(E,I_10,dens[j]*factor);
    446 G4double I_11[31]={3.483,3.906,4.707,5.459,6.163,6.813,7.405,7.942,8.43,10.28,11.41,12.12,12.56,13.03,13.21,13.24,13.18,13.07,12.93,12.77,11.86,10.98,10.18,9.467,8.279,7.335,6.573,5.948,5.428,4.989,4.615};
    447 AddData(E,I_11,dens[j]*factor);
    448 G4double I_12[31]={3.626,4.061,4.882,5.657,6.391,7.076,7.708,8.287,8.816,10.86,12.16,12.98,13.52,14.1,14.35,14.42,14.38,14.29,14.15,13.99,13.06,12.14,11.3,10.55,9.285,8.277,7.457,6.779,6.212,5.732,5.319};
    449 AddData(E,I_12,dens[j]*factor);
    450 G4double I_13[31]={3.759,4.208,5.051,5.846,6.605,7.323,7.994,8.614,9.185,11.43,12.91,13.87,14.51,15.25,15.59,15.73,15.74,15.68,15.56,15.42,14.51,13.56,12.69,11.9,10.55,9.462,8.565,7.817,7.186,6.647,6.183};
    451 AddData(E,I_13,dens[j]*factor);
    452 G4double I_14[31]={3.889,4.35,5.213,6.027,6.805,7.55,8.253,8.908,9.516,11.94,13.59,14.7,15.45,16.34,16.78,16.99,17.05,17.02,16.94,16.81,15.93,14.97,14.07,13.24,11.82,10.66,9.687,8.874,8.183,7.589,7.075};
    453 AddData(E,I_14,dens[j]*factor);
    454 G4double I_15[31]={4.017,4.488,5.371,6.202,6.998,7.765,8.496,9.184,9.827,12.43,14.25,15.51,16.38,17.44,18,18.29,18.41,18.43,18.38,18.28,17.47,16.51,15.59,14.73,13.24,11.99,10.95,10.06,9.303,8.647,8.076};
    455 AddData(E,I_15,dens[j]*factor);
    456 G4double I_16[31]={4.134,4.62,5.527,6.377,7.191,7.978,8.733,9.45,10.13,12.9,14.89,16.29,17.28,18.51,19.2,19.57,19.77,19.84,19.83,19.76,19.02,18.08,17.14,16.26,14.7,13.38,12.26,11.31,10.48,9.766,9.137};
    457 AddData(E,I_16,dens[j]*factor);
    458 G4double I_17[31]={4.266,4.762,5.689,6.554,7.382,8.184,8.958,9.698,10.4,13.33,15.47,17.01,18.12,19.54,20.34,20.81,21.07,21.19,21.21,21.18,20.52,19.59,18.65,17.75,16.13,14.75,13.56,12.54,11.66,10.88,10.2};
    459 AddData(E,I_17,dens[j]*factor);
    460 G4double I_18[31]={4.361,4.869,5.813,6.692,7.531,8.343,9.13,9.889,10.61,13.68,15.96,17.63,18.86,20.44,21.36,21.91,22.23,22.4,22.47,22.46,21.86,20.95,20,19.08,17.42,15.98,14.75,13.68,12.74,11.92,11.2};
    461 AddData(E,I_18,dens[j]*factor);
    462 j++;
    463 
    464 G4double J_3[31]={2.149,2.349,2.681,2.933,3.118,3.25,3.342,3.405,3.445,3.476,3.393,3.281,3.163,2.935,2.729,2.547,2.386,2.243,2.116,2.002,1.576,1.3,1.109,0.9689,0.777,0.6521,0.5641,0.4987,0.448,0.4075,0.3743};
    465 AddData(E,J_3,dens[j]*factor);
    466 G4double J_4[31]={2.637,2.902,3.364,3.746,4.054,4.294,4.477,4.616,4.718,4.931,4.923,4.841,4.733,4.492,4.254,4.031,3.825,3.637,3.464,3.306,2.684,2.255,1.944,1.709,1.379,1.16,1.004,0.8878,0.7972,0.7248,0.6655};
    467 AddData(E,J_4,dens[j]*factor);
    468 G4double J_5[31]={3.024,3.346,3.92,4.415,4.836,5.185,5.468,5.695,5.874,6.329,6.435,6.411,6.333,6.113,5.87,5.627,5.395,5.175,4.969,4.777,3.984,3.406,2.971,2.633,2.145,1.812,1.571,1.39,1.248,1.134,1.041};
    469 AddData(E,J_5,dens[j]*factor);
    470 G4double J_6[31]={3.334,3.707,4.38,4.974,5.497,5.949,6.332,6.651,6.914,7.658,7.912,7.969,7.939,7.764,7.533,7.287,7.041,6.803,6.574,6.356,5.424,4.711,4.156,3.713,3.058,2.599,2.261,2.004,1.801,1.638,1.503};
    471 AddData(E,J_6,dens[j]*factor);
    472 G4double J_7[31]={3.611,4.025,4.777,5.451,6.058,6.599,7.073,7.482,7.829,8.893,9.326,9.489,9.524,9.421,9.222,8.987,8.741,8.495,8.252,8.017,6.976,6.144,5.476,4.932,4.106,3.513,3.07,2.727,2.455,2.234,2.051};
    473 AddData(E,J_7,dens[j]*factor);
    474 G4double J_8[31]={3.86,4.31,5.135,5.88,6.56,7.179,7.735,8.228,8.658,10.05,10.68,10.97,11.09,11.08,10.92,10.71,10.48,10.23,9.99,9.746,8.623,7.689,6.919,6.278,5.283,4.552,3.996,3.56,3.211,2.925,2.688};
    475 AddData(E,J_8,dens[j]*factor);
    476 G4double J_9[31]={4.066,4.547,5.433,6.238,6.978,7.662,8.287,8.853,9.357,11.07,11.92,12.34,12.54,12.62,12.52,12.34,12.12,11.88,11.63,11.38,10.2,9.196,8.344,7.624,6.485,5.631,4.971,4.448,4.025,3.676,3.384};
    477 AddData(E,J_9,dens[j]*factor);
    478 G4double J_10[31]={4.255,4.762,5.702,6.56,7.353,8.091,8.776,9.406,9.978,12.01,13.08,13.64,13.94,14.14,14.1,13.95,13.75,13.52,13.27,13.02,11.8,10.72,9.805,9.014,7.741,6.771,6.011,5.402,4.904,4.491,4.143};
    479 AddData(E,J_10,dens[j]*factor);
    480 G4double J_11[31]={4.408,4.939,5.931,6.845,7.693,8.488,9.234,9.93,10.57,12.96,14.31,15.06,15.5,15.88,15.95,15.88,15.74,15.55,15.33,15.1,13.9,12.77,11.78,10.9,9.461,8.331,7.427,6.693,6.086,5.578,5.147};
    481 AddData(E,J_11,dens[j]*factor);
    482 G4double J_12[31]={4.579,5.119,6.133,7.075,7.954,8.779,9.557,10.29,10.97,13.62,15.17,16.07,16.6,17.09,17.22,17.17,17.03,16.84,16.62,16.39,15.14,13.96,12.92,12,10.49,9.297,8.338,7.554,6.902,6.353,5.884};
    483 AddData(E,J_12,dens[j]*factor);
    484 G4double J_13[31]={4.741,5.295,6.339,7.313,8.224,9.083,9.897,10.66,11.39,14.3,16.1,17.17,17.83,18.49,18.71,18.73,18.63,18.47,18.27,18.05,16.81,15.6,14.52,13.55,11.92,10.63,9.58,8.712,7.985,7.368,6.839};
    485 AddData(E,J_13,dens[j]*factor);
    486 G4double J_14[31]={4.901,5.468,6.538,7.539,8.48,9.369,10.21,11.01,11.77,14.91,16.94,18.19,18.98,19.81,20.14,20.22,20.17,20.04,19.87,19.66,18.44,17.21,16.08,15.07,13.35,11.96,10.83,9.885,9.087,8.408,7.822};
    487 AddData(E,J_14,dens[j]*factor);
    488 G4double J_15[31]={5.077,5.658,6.753,7.782,8.752,9.669,10.54,11.37,12.16,15.52,17.77,19.21,20.14,21.17,21.62,21.79,21.81,21.72,21.58,21.39,20.23,18.99,17.83,16.78,14.96,13.47,12.24,11.21,10.33,9.58,8.927};
    489 AddData(E,J_15,dens[j]*factor);
    490 G4double J_16[31]={5.227,5.824,6.95,8.008,9.008,9.954,10.85,11.71,12.54,16.09,18.57,20.2,21.28,22.51,23.09,23.35,23.43,23.4,23.29,23.14,22.04,20.81,19.63,18.54,16.63,15.05,13.72,12.6,11.65,10.82,10.1};
    491 AddData(E,J_16,dens[j]*factor);
    492 G4double J_17[31]={5.413,6.021,7.168,8.248,9.27,10.24,11.16,12.04,12.89,16.61,19.3,21.12,22.34,23.77,24.48,24.83,24.98,24.99,24.92,24.79,23.76,22.54,21.34,20.22,18.23,16.57,15.16,13.97,12.94,12.05,11.27};
    493 AddData(E,J_17,dens[j]*factor);
    494 G4double J_18[31]={5.524,6.145,7.31,8.406,9.446,10.43,11.37,12.27,13.14,16.99,19.88,21.86,23.23,24.85,25.69,26.13,26.33,26.39,26.35,26.25,25.28,24.07,22.85,21.7,19.66,17.93,16.47,15.21,14.13,13.18,12.35};
    495 AddData(E,J_18,dens[j]*factor);
    496 j++;
    497 
    498 G4double K_3[31]={1.622,1.757,1.984,2.165,2.312,2.429,2.522,2.595,2.652,2.774,2.762,2.702,2.624,2.457,2.297,2.152,2.022,1.905,1.8,1.705,1.349,1.116,0.9538,0.8343,0.6707,0.5639,0.4886,0.4325,0.3889,0.354,0.3255};
    499 AddData(E,K_3,dens[j]*factor);
    500 G4double K_4[31]={2.038,2.224,2.541,2.806,3.029,3.218,3.376,3.507,3.616,3.918,3.997,3.981,3.922,3.757,3.577,3.402,3.237,3.084,2.943,2.813,2.294,1.933,1.67,1.471,1.19,1.003,0.8695,0.7696,0.6918,0.6295,0.5785};
    501 AddData(E,K_4,dens[j]*factor);
    502 G4double K_5[31]={2.368,2.601,3.005,3.348,3.645,3.903,4.127,4.32,4.486,5.003,5.207,5.26,5.241,5.109,4.932,4.746,4.561,4.384,4.217,4.059,3.403,2.918,2.551,2.264,1.85,1.566,1.36,1.205,1.083,0.9854,0.9052};
    503 AddData(E,K_5,dens[j]*factor);
    504 G4double K_6[31]={2.629,2.905,3.391,3.81,4.178,4.503,4.791,5.046,5.27,6.024,6.377,6.522,6.559,6.483,6.326,6.142,5.95,5.76,5.575,5.397,4.628,4.032,3.565,3.192,2.636,2.245,1.957,1.736,1.562,1.422,1.306};
    505 AddData(E,K_6,dens[j]*factor);
    506 G4double K_7[31]={2.856,3.166,3.721,4.207,4.639,5.025,5.373,5.686,5.966,6.963,7.487,7.744,7.854,7.86,7.74,7.571,7.382,7.187,6.993,6.803,5.947,5.254,4.695,4.237,3.538,3.034,2.655,2.362,2.129,1.939,1.782};
    507 AddData(E,K_7,dens[j]*factor);
    508 G4double K_8[31]={3.056,3.396,4.013,4.561,5.053,5.498,5.902,6.269,6.603,7.841,8.547,8.93,9.126,9.234,9.166,9.024,8.849,8.658,8.462,8.265,7.346,6.572,5.928,5.39,4.55,3.929,3.455,3.083,2.784,2.539,2.335};
    509 AddData(E,K_8,dens[j]*factor);
    510 G4double K_9[31]={3.218,3.582,4.251,4.853,5.398,5.894,6.349,6.765,7.148,8.61,9.495,10.01,10.3,10.51,10.5,10.39,10.23,10.05,9.855,9.656,8.694,7.857,7.147,6.544,5.584,4.861,4.299,3.853,3.491,3.191,2.941};
    511 AddData(E,K_9,dens[j]*factor);
    512 G4double K_10[31]={3.364,3.749,4.461,5.11,5.702,6.246,6.747,7.21,7.637,9.314,10.38,11.03,11.42,11.76,11.81,11.74,11.6,11.43,11.24,11.04,10.05,9.166,8.398,7.737,6.667,5.846,5.199,4.68,4.254,3.9,3.602};
    513 AddData(E,K_10,dens[j]*factor);
    514 G4double K_11[31]={3.476,3.878,4.632,5.327,5.97,6.565,7.116,7.629,8.107,10.03,11.31,12.14,12.66,13.18,13.35,13.35,13.27,13.13,12.97,12.79,11.83,10.9,10.08,9.351,8.14,7.185,6.419,5.793,5.275,4.84,4.47};
    515 AddData(E,K_11,dens[j]*factor);
    516 G4double K_12[31]={3.604,4.015,4.786,5.505,6.174,6.798,7.38,7.924,8.434,10.52,11.96,12.91,13.53,14.18,14.41,14.44,14.37,14.24,14.08,13.9,12.89,11.93,11.07,10.31,9.035,8.027,7.213,6.544,5.987,5.517,5.115};
    517 AddData(E,K_12,dens[j]*factor);
    518 G4double K_13[31]={3.723,4.144,4.937,5.679,6.378,7.034,7.649,8.228,8.772,11.03,12.64,13.75,14.49,15.31,15.65,15.75,15.72,15.62,15.48,15.31,14.32,13.33,12.43,11.63,10.27,9.178,8.286,7.547,6.926,6.398,5.945};
    519 AddData(E,K_13,dens[j]*factor);
    520 G4double K_14[31]={3.84,4.27,5.081,5.844,6.566,7.248,7.893,8.502,9.077,11.5,13.27,14.52,15.39,16.38,16.83,17,17.02,16.95,16.83,16.67,15.7,14.7,13.77,12.93,11.5,10.33,9.367,8.563,7.883,7.301,6.798};
    521 AddData(E,K_14,dens[j]*factor);
    522 G4double K_15[31]={3.971,4.409,5.238,6.02,6.764,7.472,8.144,8.782,9.387,11.96,13.89,15.29,16.29,17.48,18.05,18.31,18.39,18.36,18.27,18.14,17.22,16.22,15.27,14.39,12.88,11.63,10.59,9.708,8.96,8.316,7.758};
    523 AddData(E,K_15,dens[j]*factor);
    524 G4double K_16[31]={4.08,4.53,5.379,6.182,6.95,7.683,8.382,9.047,9.68,12.41,14.49,16.04,17.16,18.55,19.26,19.61,19.76,19.78,19.73,19.62,18.77,17.77,16.8,15.9,14.31,12.98,11.87,10.91,10.1,9.394,8.779};
    525 AddData(E,K_16,dens[j]*factor);
    526 G4double K_17[31]={4.22,4.677,5.538,6.353,7.136,7.889,8.609,9.298,9.956,12.81,15.04,16.72,17.97,19.55,20.4,20.84,21.05,21.12,21.1,21.02,20.23,19.24,18.26,17.34,15.69,14.29,13.11,12.1,11.22,10.46,9.792};
    527 AddData(E,K_17,dens[j]*factor);
    528 G4double K_18[31]={4.299,4.762,5.633,6.458,7.252,8.018,8.755,9.463,10.14,13.11,15.46,17.27,18.64,20.41,21.38,21.91,22.18,22.3,22.31,22.26,21.52,20.55,19.55,18.61,16.92,15.47,14.24,13.18,12.25,11.45,10.74};
    529 AddData(E,K_18,dens[j]*factor);
    530 j++;
    531 
    532 G4double L_3[31]={1.968,2.15,2.444,2.663,2.824,2.943,3.029,3.091,3.133,3.185,3.123,3.027,2.922,2.717,2.53,2.363,2.215,2.083,1.966,1.861,1.466,1.211,1.033,0.9028,0.7245,0.6083,0.5265,0.4656,0.4184,0.3807,0.3498};
    533 AddData(E,L_3,dens[j]*factor);
    534 G4double L_4[31]={2.403,2.652,3.075,3.412,3.679,3.89,4.055,4.184,4.283,4.511,4.526,4.464,4.371,4.157,3.942,3.739,3.55,3.377,3.218,3.072,2.497,2.1,1.811,1.593,1.286,1.083,0.9375,0.8289,0.7446,0.6771,0.6219};
    535 AddData(E,L_4,dens[j]*factor);
    536 G4double L_5[31]={2.739,3.045,3.58,4.026,4.396,4.701,4.952,5.157,5.324,5.779,5.908,5.906,5.846,5.656,5.438,5.218,5.006,4.804,4.615,4.437,3.706,3.171,2.768,2.454,2.001,1.691,1.467,1.298,1.166,1.06,0.9734};
    537 AddData(E,L_5,dens[j]*factor);
    538 G4double L_6[31]={3.003,3.358,3.992,4.538,5.005,5.403,5.74,6.024,6.262,6.98,7.255,7.335,7.324,7.181,6.978,6.756,6.533,6.314,6.104,5.904,5.045,4.386,3.872,3.462,2.853,2.426,2.112,1.872,1.683,1.531,1.405};
    539 AddData(E,L_6,dens[j]*factor);
    540 G4double L_7[31]={3.237,3.628,4.341,4.97,5.522,6.003,6.421,6.781,7.092,8.093,8.541,8.726,8.781,8.712,8.541,8.332,8.109,7.884,7.662,7.447,6.488,5.72,5.102,4.599,3.832,3.28,2.868,2.548,2.294,2.088,1.918};
    541 AddData(E,L_7,dens[j]*factor);
    542 G4double L_8[31]={3.448,3.869,4.647,5.349,5.977,6.536,7.03,7.464,7.845,9.135,9.774,10.08,10.22,10.24,10.12,9.934,9.723,9.5,9.274,9.051,8.019,7.157,6.446,5.853,4.931,4.251,3.733,3.327,3.002,2.735,2.514};
    543 AddData(E,L_8,dens[j]*factor);
    544 G4double L_9[31]={3.63,4.073,4.905,5.665,6.357,6.982,7.543,8.043,8.489,10.06,10.89,11.33,11.55,11.67,11.6,11.45,11.25,11.03,10.81,10.58,9.495,8.562,7.775,7.109,6.053,5.26,4.646,4.158,3.764,3.438,3.166};
    545 AddData(E,L_9,dens[j]*factor);
    546 G4double L_10[31]={3.799,4.263,5.137,5.946,6.692,7.375,7.996,8.558,9.064,10.91,11.94,12.52,12.83,13.07,13.06,12.94,12.76,12.55,12.33,12.1,10.98,9.992,9.139,8.407,7.228,6.326,5.619,5.051,4.587,4.202,3.877};
    547 AddData(E,L_10,dens[j]*factor);
    548 G4double L_11[31]={3.933,4.415,5.328,6.184,6.983,7.724,8.407,9.032,9.603,11.75,13.03,13.78,14.23,14.64,14.74,14.69,14.57,14.4,14.2,13.99,12.89,11.86,10.95,10.15,8.813,7.768,6.931,6.25,5.686,5.213,4.812};
    549 AddData(E,L_11,dens[j]*factor);
    550 G4double L_12[31]={4.086,4.576,5.507,6.386,7.213,7.988,8.709,9.376,9.991,12.35,13.82,14.72,15.26,15.79,15.94,15.92,15.81,15.64,15.44,15.23,14.08,13,12.04,11.2,9.795,8.687,7.795,7.065,6.457,5.945,5.508};
    551 AddData(E,L_12,dens[j]*factor);
    552 G4double L_13[31]={4.23,4.732,5.684,6.586,7.441,8.25,9.011,9.721,10.38,12.97,14.65,15.71,16.38,17.07,17.32,17.36,17.29,17.15,16.97,16.77,15.64,14.53,13.53,12.64,11.14,9.934,8.956,8.148,7.471,6.896,6.402};
    553 AddData(E,L_13,dens[j]*factor);
    554 G4double L_14[31]={4.374,4.887,5.858,6.779,7.658,8.495,9.287,10.03,10.73,13.53,15.41,16.63,17.42,18.28,18.64,18.75,18.72,18.61,18.46,18.27,17.15,16.03,14.99,14.06,12.47,11.18,10.13,9.246,8.504,7.87,7.323};
    555 AddData(E,L_14,dens[j]*factor);
    556 G4double L_15[31]={4.527,5.052,6.042,6.982,7.882,8.744,9.566,10.34,11.08,14.08,16.15,17.55,18.48,19.53,20.01,20.2,20.23,20.17,20.04,19.88,18.82,17.69,16.62,15.65,13.97,12.59,11.45,10.49,9.67,8.968,8.359};
    557 AddData(E,L_15,dens[j]*factor);
    558 G4double L_16[31]={4.659,5.201,6.216,7.177,8.1,8.985,9.833,10.64,11.41,14.61,16.87,18.43,19.5,20.75,21.36,21.64,21.74,21.72,21.64,21.5,20.5,19.38,18.29,17.29,15.53,14.06,12.84,11.79,10.9,10.13,9.462};
    559 AddData(E,L_16,dens[j]*factor);
    560 G4double L_17[31]={4.821,5.374,6.409,7.386,8.323,9.227,10.1,10.93,11.72,15.09,17.52,19.25,20.46,21.9,22.64,23.01,23.17,23.2,23.15,23.04,22.11,20.99,19.89,18.86,17.03,15.49,14.19,13.07,12.12,11.28,10.56};
    561 AddData(E,L_17,dens[j]*factor);
    562 G4double L_18[31]={4.923,5.487,6.539,7.527,8.475,9.391,10.27,11.12,11.94,15.45,18.04,19.92,21.26,22.89,23.75,24.21,24.43,24.51,24.49,24.4,23.52,22.41,21.3,20.24,18.36,16.77,15.4,14.24,13.23,12.35,11.58};
    563 AddData(E,L_18,dens[j]*factor);
    564 j++;
    565 
    566 G4double M_3[31]={3.507,3.775,4.211,4.539,4.78,4.952,5.072,5.152,5.203,5.217,5.066,4.872,4.671,4.291,3.955,3.664,3.41,3.188,2.992,2.819,2.187,1.79,1.517,1.32,1.052,0.8799,0.759,0.6694,0.6001,0.5449,0.4998};
    567 AddData(E,M_3,dens[j]*factor);
    568 G4double M_4[31]={4.48,4.839,5.448,5.94,6.331,6.635,6.866,7.04,7.169,7.41,7.349,7.185,6.985,6.562,6.159,5.791,5.459,5.16,4.891,4.647,3.713,3.091,2.648,2.319,1.862,1.561,1.348,1.189,1.066,0.9678,0.8876};
    569 AddData(E,M_4,dens[j]*factor);
    570 G4double M_5[31]={5.276,5.728,6.503,7.151,7.691,8.133,8.489,8.772,8.995,9.539,9.619,9.522,9.352,8.935,8.501,8.087,7.7,7.342,7.013,6.71,5.503,4.657,4.034,3.559,2.884,2.428,2.102,1.856,1.665,1.512,1.386};
    571 AddData(E,M_5,dens[j]*factor);
    572 G4double M_6[31]={5.909,6.449,7.385,8.181,8.863,9.444,9.93,10.33,10.66,11.57,11.83,11.83,11.71,11.34,10.9,10.46,10.04,9.64,9.265,8.915,7.474,6.421,5.624,5,4.094,3.468,3.012,2.666,2.394,2.175,1.995};
    573 AddData(E,M_6,dens[j]*factor);
    574 G4double M_7[31]={6.512,7.125,8.193,9.111,9.914,10.61,11.22,11.74,12.17,13.47,13.96,14.09,14.05,13.74,13.33,12.89,12.44,12.02,11.61,11.23,9.59,8.349,7.384,6.615,5.473,4.667,4.07,3.612,3.249,2.956,2.713};
    575 AddData(E,M_7,dens[j]*factor);
    576 G4double M_8[31]={7.02,7.704,8.902,9.939,10.85,11.67,12.39,13.02,13.56,15.28,16.02,16.3,16.36,16.16,15.79,15.37,14.92,14.48,14.05,13.64,11.84,10.43,9.31,8.399,7.017,6.023,5.275,4.695,4.232,3.855,3.542};
    577 AddData(E,M_8,dens[j]*factor);
    578 G4double M_9[31]={7.39,8.136,9.451,10.59,11.61,12.53,13.35,14.08,14.72,16.86,17.86,18.3,18.47,18.39,18.07,17.67,17.23,16.79,16.35,15.92,14.01,12.47,11.22,10.19,8.599,7.436,6.549,5.853,5.292,4.832,4.448};
    579 AddData(E,M_9,dens[j]*factor);
    580 G4double M_10[31]={7.713,8.512,9.933,11.17,12.28,13.29,14.2,15.03,15.76,18.32,19.61,20.23,20.51,20.56,20.32,19.95,19.53,19.09,18.64,18.2,16.2,14.54,13.18,12.04,10.26,8.933,7.909,7.098,6.439,5.894,5.436};
    581 AddData(E,M_10,dens[j]*factor);
    582 G4double M_11[31]={7.985,8.827,10.34,11.67,12.87,13.95,14.95,15.87,16.7,19.7,21.3,22.14,22.57,22.8,22.65,22.34,21.95,21.52,21.08,20.64,18.56,16.8,15.32,14.07,12.09,10.59,9.417,8.48,7.713,7.076,6.537};
    583 AddData(E,M_11,dens[j]*factor);
    584 G4double M_12[31]={8.334,9.2,10.77,12.16,13.42,14.58,15.64,16.62,17.53,20.92,22.84,23.9,24.48,24.91,24.87,24.62,24.26,23.86,23.42,22.98,20.86,19,17.43,16.08,13.93,12.27,10.97,9.911,9.042,8.315,7.698};
    585 AddData(E,M_12,dens[j]*factor);
    586 G4double M_13[31]={8.64,9.535,11.16,12.62,13.95,15.16,16.28,17.33,18.3,22.05,24.28,25.57,26.32,26.96,27.05,26.87,26.57,26.19,25.78,25.35,23.19,21.27,19.61,18.17,15.84,14.04,12.6,11.43,10.46,9.637,8.938};
    587 AddData(E,M_13,dens[j]*factor);
    588 G4double M_14[31]={8.94,9.859,11.54,13.06,14.44,15.7,16.88,17.97,19,23.07,25.6,27.12,28.03,28.89,29.11,29.02,28.76,28.42,28.03,27.61,25.45,23.47,21.73,20.22,17.75,15.8,14.24,12.96,11.89,10.99,10.21};
    589 AddData(E,M_14,dens[j]*factor);
    590 G4double M_15[31]={9.314,10.26,11.99,13.56,15,16.32,17.54,18.69,19.76,24.14,26.97,28.71,29.8,30.9,31.27,31.27,31.09,30.8,30.44,30.05,27.91,25.88,24.08,22.49,19.85,17.76,16.07,14.66,13.49,12.49,11.63};
    591 AddData(E,M_15,dens[j]*factor);
    592 G4double M_16[31]={9.598,10.57,12.37,14,15.49,16.87,18.15,19.34,20.47,25.14,28.27,30.26,31.54,32.89,33.42,33.54,33.43,33.19,32.88,32.51,30.42,28.36,26.49,24.84,22.05,19.81,17.98,16.46,15.17,14.07,13.12};
    593 AddData(E,M_16,dens[j]*factor);
    594 G4double M_17[31]={9.983,10.97,12.8,14.46,16,17.42,18.74,19.98,21.15,26.06,29.46,31.68,33.13,34.73,35.42,35.64,35.61,35.43,35.15,34.81,32.77,30.69,28.78,27.06,24.15,21.79,19.84,18.21,16.83,15.64,14.61};
    595 AddData(E,M_17,dens[j]*factor);
    596 G4double M_18[31]={10.18,11.19,13.05,14.75,16.32,17.78,19.14,20.42,21.63,26.77,30.43,32.88,34.52,36.37,37.21,37.55,37.59,37.46,37.22,36.91,34.93,32.84,30.89,29.12,26.11,23.64,21.6,19.88,18.42,17.15,16.05};
    597 AddData(E,M_18,dens[j]*factor);
    598 j++;
    599 
    600 G4double N_3[31]={2.654,2.875,3.232,3.499,3.697,3.84,3.942,4.013,4.059,4.086,3.975,3.828,3.676,3.388,3.134,2.912,2.719,2.548,2.398,2.264,1.77,1.455,1.238,1.08,0.8645,0.7247,0.6264,0.5534,0.4968,0.4516,0.4146};
    601 AddData(E,N_3,dens[j]*factor);
    602 G4double N_4[31]={3.29,3.594,4.103,4.51,4.833,5.088,5.286,5.438,5.552,5.786,5.758,5.641,5.493,5.179,4.878,4.602,4.351,4.124,3.918,3.731,3.007,2.517,2.165,1.901,1.532,1.287,1.114,0.984,0.8833,0.8027,0.7368};
    603 AddData(E,N_4,dens[j]*factor);
    604 G4double N_5[31]={3.785,4.166,4.817,5.355,5.801,6.169,6.471,6.715,6.912,7.417,7.519,7.465,7.347,7.046,6.727,6.42,6.131,5.863,5.614,5.384,4.456,3.794,3.301,2.922,2.377,2.007,1.74,1.539,1.381,1.255,1.152};
    605 AddData(E,N_5,dens[j]*factor);
    606 G4double N_6[31]={4.166,4.615,5.399,6.062,6.626,7.106,7.512,7.852,8.137,8.959,9.23,9.267,9.2,8.94,8.626,8.306,7.995,7.699,7.419,7.155,6.057,5.238,4.609,4.112,3.382,2.873,2.499,2.214,1.99,1.81,1.661};
    607 AddData(E,N_6,dens[j]*factor);
    608 G4double N_7[31]={4.507,5.009,5.902,6.671,7.339,7.919,8.421,8.854,9.225,10.39,10.86,11.02,11.02,10.84,10.55,10.23,9.915,9.603,9.302,9.015,7.779,6.82,6.063,5.452,4.532,3.876,3.386,3.008,2.708,2.465,2.264};
    609 AddData(E,N_7,dens[j]*factor);
    610 G4double N_8[31]={4.804,5.352,6.342,7.21,7.973,8.648,9.242,9.765,10.22,11.74,12.44,12.73,12.83,12.74,12.5,12.2,11.89,11.57,11.26,10.95,9.606,8.524,7.649,6.928,5.82,5.012,4.399,3.92,3.536,3.223,2.962};
    611 AddData(E,N_8,dens[j]*factor);
    612 G4double N_9[31]={5.032,5.618,6.689,7.641,8.489,9.247,9.924,10.53,11.06,12.92,13.86,14.3,14.49,14.51,14.33,14.05,13.75,13.43,13.11,12.8,11.38,10.2,9.227,8.415,7.144,6.199,5.471,4.896,4.431,4.048,3.727};
    613 AddData(E,N_9,dens[j]*factor);
    614 G4double N_10[31]={5.239,5.856,6.994,8.019,8.942,9.776,10.53,11.21,11.82,14.01,15.19,15.8,16.1,16.25,16.12,15.89,15.6,15.29,14.97,14.65,13.17,11.91,10.85,9.956,8.532,7.456,6.616,5.946,5.399,4.945,4.562};
    615 AddData(E,N_10,dens[j]*factor);
    616 G4double N_11[31]={5.425,6.072,7.277,8.376,9.379,10.29,11.13,11.89,12.58,15.17,16.66,17.51,17.97,18.33,18.33,18.18,17.95,17.67,17.38,17.07,15.58,14.24,13.08,12.07,10.44,9.172,8.168,7.356,6.687,6.127,5.653};
    617 AddData(E,N_11,dens[j]*factor);
    618 G4double N_12[31]={5.628,6.282,7.507,8.639,9.68,10.64,11.52,12.33,13.07,15.91,17.62,18.62,19.19,19.67,19.72,19.59,19.36,19.09,18.79,18.47,16.92,15.53,14.32,13.28,11.57,10.24,9.174,8.308,7.589,6.985,6.471};
    619 AddData(E,N_12,dens[j]*factor);
    620 G4double N_13[31]={5.824,6.493,7.751,8.919,10,11.01,11.94,12.81,13.61,16.73,18.7,19.89,20.61,21.28,21.45,21.38,21.2,20.95,20.67,20.36,18.8,17.37,16.1,14.99,13.15,11.71,10.54,9.579,8.777,8.098,7.517};
    621 AddData(E,N_13,dens[j]*factor);
    622 G4double N_14[31]={6.02,6.703,7.987,9.187,10.31,11.36,12.34,13.25,14.09,17.47,19.68,21.07,21.94,22.81,23.09,23.1,22.96,22.75,22.48,22.19,20.64,19.16,17.85,16.68,14.73,13.18,11.92,10.87,9.99,9.241,8.596};
    623 AddData(E,N_14,dens[j]*factor);
    624 G4double N_15[31]={6.246,6.943,8.254,9.482,10.64,11.72,12.74,13.7,14.59,18.21,20.66,22.25,23.28,24.37,24.79,24.89,24.82,24.64,24.41,24.15,22.63,21.13,19.77,18.56,16.5,14.83,13.46,12.31,11.35,10.52,9.8};
    625 AddData(E,N_15,dens[j]*factor);
    626 G4double N_16[31]={6.433,7.148,8.491,9.751,10.94,12.07,13.12,14.12,15.05,18.91,21.59,23.4,24.59,25.91,26.47,26.67,26.67,26.55,26.35,26.11,24.65,23.15,21.75,20.49,18.32,16.55,15.07,13.83,12.78,11.87,11.08};
    627 AddData(E,N_16,dens[j]*factor);
    628 G4double N_17[31]={6.668,7.395,8.757,10.04,11.25,12.4,13.49,14.52,15.49,19.55,22.45,24.45,25.81,27.35,28.06,28.36,28.42,28.35,28.19,27.98,26.57,25.07,23.64,22.34,20.08,18.21,16.65,15.32,14.19,13.21,12.35};
    629 AddData(E,N_17,dens[j]*factor);
    630 G4double N_18[31]={6.799,7.541,8.924,10.22,11.45,12.62,13.74,14.8,15.8,20.04,23.14,25.33,26.84,28.61,29.46,29.86,29.99,29.96,29.84,29.65,28.3,26.79,25.35,24.01,21.68,19.74,18.1,16.71,15.51,14.47,13.56};
    631 AddData(E,N_18,dens[j]*factor);
    632 j++;
    633 
    634 G4double O_3[31]={2.784,3.026,3.417,3.703,3.906,4.047,4.141,4.202,4.238,4.231,4.103,3.948,3.79,3.492,3.23,3.001,2.801,2.625,2.469,2.331,1.821,1.496,1.272,1.108,0.8863,0.7423,0.6413,0.5662,0.5082,0.4618,0.4239};
    635 AddData(E,O_3,dens[j]*factor);
    636 G4double O_4[31]={3.441,3.767,4.322,4.765,5.11,5.374,5.57,5.714,5.818,6.004,5.951,5.822,5.666,5.341,5.031,4.746,4.487,4.252,4.039,3.845,3.096,2.589,2.225,1.952,1.571,1.319,1.14,1.007,0.9035,0.8208,0.7532};
    637 AddData(E,O_4,dens[j]*factor);
    638 G4double O_5[31]={3.957,4.361,5.063,5.649,6.133,6.524,6.834,7.078,7.266,7.715,7.782,7.711,7.583,7.27,6.941,6.625,6.327,6.05,5.792,5.554,4.592,3.905,3.395,3.001,2.438,2.057,1.782,1.575,1.413,1.284,1.178};
    639 AddData(E,O_5,dens[j]*factor);
    640 G4double O_6[31]={4.362,4.834,5.668,6.385,6.997,7.514,7.942,8.292,8.576,9.344,9.568,9.581,9.501,9.227,8.903,8.573,8.253,7.947,7.657,7.384,6.245,5.394,4.741,4.226,3.47,2.944,2.559,2.266,2.036,1.85,1.698};
    641 AddData(E,O_6,dens[j]*factor);
    642 G4double O_7[31]={4.74,5.265,6.205,7.026,7.747,8.374,8.912,9.367,9.748,10.87,11.29,11.41,11.4,11.19,10.89,10.57,10.24,9.915,9.604,9.307,8.022,7.024,6.237,5.602,4.65,3.971,3.466,3.077,2.769,2.519,2.313};
    643 AddData(E,O_7,dens[j]*factor);
    644 G4double O_8[31]={5.063,5.635,6.671,7.587,8.405,9.133,9.773,10.33,10.81,12.3,12.94,13.2,13.27,13.16,12.91,12.6,12.27,11.95,11.62,11.31,9.911,8.784,7.871,7.122,5.972,5.136,4.503,4.009,3.615,3.293,3.025};
    645 AddData(E,O_8,dens[j]*factor);
    646 G4double O_9[31]={7.121,7.892,9.331,10.67,11.93,13.12,14.24,15.31,16.32,20.61,23.59,25.53,26.82,28.26,28.93,29.21,29.27,29.19,29.03,28.81,27.36,25.79,24.3,22.94,20.59,18.64,17.02,15.65,14.48,13.47,12.59};
    647 AddData(E,O_9,dens[j]*factor);
    648 G4double O_10[31]={5.543,6.188,7.373,8.442,9.413,10.3,11.11,11.84,12.49,14.73,15.84,16.4,16.66,16.77,16.63,16.38,16.08,15.76,15.44,15.11,13.56,12.25,11.15,10.22,8.743,7.63,6.764,6.074,5.512,5.046,4.655};
    649 AddData(E,O_10,dens[j]*factor);
    650 G4double O_11[31]={5.732,6.403,7.645,8.776,9.811,10.76,11.64,12.45,13.18,15.8,17.2,17.93,18.32,18.59,18.53,18.33,18.06,17.76,17.44,17.11,15.53,14.14,12.95,11.93,10.3,9.044,8.057,7.261,6.609,6.064,5.603};
    651 AddData(E,O_11,dens[j]*factor);
    652 G4double O_12[31]={5.969,6.654,7.93,9.104,10.19,11.19,12.12,12.99,13.78,16.75,18.42,19.34,19.87,20.29,20.33,20.19,19.95,19.67,19.36,19.04,17.42,15.98,14.72,13.63,11.86,10.48,9.379,8.487,7.749,7.129,6.601};
    653 AddData(E,O_12,dens[j]*factor);
    654 G4double O_13[31]={6.184,6.887,8.201,9.414,10.54,11.59,12.57,13.48,14.33,17.62,19.56,20.69,21.35,21.96,22.1,22.03,21.84,21.58,21.29,20.98,19.36,17.87,16.55,15.39,13.48,11.98,10.78,9.788,8.963,8.266,7.67};
    655 AddData(E,O_13,dens[j]*factor);
    656 G4double O_14[31]={6.399,7.118,8.463,9.71,10.87,11.96,12.98,13.94,14.83,18.4,20.6,21.93,22.73,23.53,23.79,23.79,23.64,23.42,23.15,22.85,21.24,19.71,18.33,17.12,15.1,13.49,12.18,11.1,10.2,9.43,8.769};
    657 AddData(E,O_14,dens[j]*factor);
    658 G4double O_15[31]={6.653,7.389,8.766,10.05,11.24,12.37,13.42,14.42,15.36,19.19,21.66,23.19,24.15,25.16,25.55,25.63,25.56,25.38,25.14,24.87,23.3,21.74,20.32,19.05,16.91,15.18,13.76,12.58,11.58,10.73,9.995};
    659 AddData(E,O_15,dens[j]*factor);
    660 G4double O_16[31]={6.858,7.616,9.031,10.35,11.58,12.74,13.84,14.87,15.85,19.93,22.66,24.41,25.53,26.76,27.29,27.48,27.47,27.34,27.15,26.9,25.39,23.82,22.36,21.05,18.79,16.94,15.42,14.14,13.05,12.11,11.3};
    661 AddData(E,O_16,dens[j]*factor);
    662 G4double O_17[31]={7.121,7.892,9.331,10.67,11.93,13.12,14.24,15.31,16.32,20.61,23.59,25.53,26.82,28.26,28.93,29.21,29.27,29.19,29.03,28.81,27.36,25.79,24.3,22.94,20.59,18.64,17.02,15.65,14.48,13.47,12.59};
    663 AddData(E,O_17,dens[j]*factor);
    664 G4double O_18[31]={7.278,8.066,9.53,10.89,12.17,13.38,14.53,15.62,16.66,21.14,24.34,26.49,27.93,29.6,30.41,30.78,30.91,30.88,30.76,30.57,29.17,27.6,26.09,24.69,22.25,20.22,18.52,17.08,15.84,14.77,13.83};
    665 AddData(E,O_18,dens[j]*factor);
    666 j++;
    667 
    668 G4double P_3[31]={1.023,1.127,1.298,1.427,1.522,1.591,1.641,1.677,1.704,1.755,1.743,1.711,1.671,1.585,1.5,1.42,1.346,1.279,1.218,1.162,0.9451,0.7987,0.6937,0.6149,0.5043,0.4302,0.3768,0.3364,0.3046,0.2788,0.2575};
    669 AddData(E,P_3,dens[j]*factor);
    670 G4double P_4[31]={1.245,1.386,1.628,1.825,1.983,2.106,2.202,2.276,2.335,2.487,2.524,2.517,2.489,2.41,2.319,2.227,2.138,2.053,1.972,1.897,1.589,1.367,1.201,1.073,0.8873,0.7599,0.667,0.596,0.54,0.4945,0.4569};
    671 AddData(E,P_4,dens[j]*factor);
    672 G4double P_5[31]={1.418,1.587,1.888,2.146,2.363,2.543,2.689,2.808,2.904,3.184,3.29,3.323,3.32,3.266,3.184,3.091,2.996,2.9,2.808,2.719,2.336,2.043,1.816,1.635,1.366,1.177,1.036,0.9275,0.8412,0.7709,0.7124};
    673 AddData(E,P_5,dens[j]*factor);
    674 G4double P_6[31]={1.557,1.747,2.097,2.406,2.676,2.91,3.107,3.273,3.411,3.837,4.029,4.114,4.146,4.132,4.07,3.986,3.892,3.794,3.695,3.598,3.158,2.803,2.517,2.285,1.93,1.674,1.48,1.328,1.207,1.107,1.024};
    675 AddData(E,P_6,dens[j]*factor);
    676 G4double P_7[31]={1.678,1.883,2.268,2.618,2.933,3.213,3.458,3.669,3.85,4.436,4.726,4.876,4.951,4.991,4.96,4.894,4.809,4.715,4.616,4.515,4.036,3.63,3.292,3.011,2.572,2.246,1.995,1.796,1.635,1.502,1.391};
    677 AddData(E,P_7,dens[j]*factor);
    678 G4double P_8[31]={1.791,2.007,2.419,2.803,3.155,3.476,3.764,4.019,4.242,4.994,5.393,5.614,5.74,5.845,5.854,5.813,5.744,5.658,5.563,5.463,4.961,4.512,4.129,3.802,3.281,2.886,2.576,2.328,2.125,1.955,1.812};
    679 AddData(E,P_8,dens[j]*factor);
    680 G4double P_9[31]={1.889,2.115,2.548,2.958,3.34,3.694,4.02,4.313,4.575,5.493,6.004,6.304,6.485,6.663,6.716,6.704,6.654,6.58,6.493,6.397,5.885,5.404,4.984,4.62,4.026,3.567,3.201,2.905,2.659,2.453,2.278};
    681 AddData(E,P_9,dens[j]*factor);
    682 G4double P_10[31]={1.981,2.217,2.667,3.097,3.504,3.885,4.241,4.569,4.867,5.948,6.577,6.96,7.202,7.46,7.564,7.585,7.559,7.501,7.424,7.335,6.824,6.321,5.868,5.47,4.811,4.29,3.871,3.527,3.239,2.996,2.788};
    683 AddData(E,P_10,dens[j]*factor);
    684 G4double P_11[31]={2.062,2.309,2.776,3.225,3.654,4.061,4.446,4.806,5.138,6.389,7.15,7.631,7.948,8.31,8.483,8.553,8.561,8.529,8.471,8.395,7.906,7.387,6.906,6.472,5.739,5.149,4.665,4.264,3.925,3.637,3.388};
    685 AddData(E,P_11,dens[j]*factor);
    686 G4double P_12[31]={2.147,2.4,2.877,3.336,3.778,4.201,4.604,4.986,5.344,6.735,7.608,8.174,8.553,9,9.226,9.334,9.368,9.354,9.308,9.241,8.762,8.231,7.73,7.275,6.498,5.865,5.342,4.905,4.532,4.213,3.937};
    687 AddData(E,P_12,dens[j]*factor);
    688 G4double P_13[31]={2.227,2.489,2.98,3.448,3.903,4.341,4.761,5.163,5.544,7.074,8.069,8.729,9.181,9.73,10.02,10.18,10.25,10.26,10.24,10.19,9.739,9.205,8.686,8.209,7.381,6.698,6.128,5.645,5.233,4.877,4.566};
    689 AddData(E,P_13,dens[j]*factor);
    690 G4double P_14[31]={2.303,2.574,3.079,3.557,4.021,4.47,4.905,5.322,5.722,7.378,8.491,9.246,9.773,10.43,10.79,11,11.11,11.15,11.15,11.11,10.71,10.17,9.643,9.147,8.275,7.546,6.931,6.407,5.957,5.565,5.222};
    691 AddData(E,P_14,dens[j]*factor);
    692 G4double P_15[31]={2.379,2.659,3.178,3.665,4.137,4.597,5.043,5.474,5.89,7.66,8.89,9.743,10.35,11.12,11.56,11.83,11.98,12.06,12.08,12.07,11.72,11.2,10.66,10.15,9.236,8.462,7.802,7.235,6.743,6.314,5.935};
    693 AddData(E,P_15,dens[j]*factor);
    694 G4double P_16[31]={1.791,2.007,2.419,2.803,3.155,3.476,3.764,4.019,4.242,4.994,5.393,5.614,5.74,5.845,5.854,5.813,5.744,5.658,5.563,5.463,4.961,4.512,4.129,3.802,3.281,2.886,2.576,2.328,2.125,1.955,1.812};
    695 AddData(E,P_16,dens[j]*factor);
    696 G4double P_17[31]={2.525,2.82,3.37,3.879,4.368,4.844,5.308,5.761,6.202,8.163,9.615,10.66,11.42,12.43,13.04,13.43,13.68,13.83,13.92,13.95,13.74,13.26,12.72,12.19,11.21,10.35,9.614,8.967,8.4,7.898,7.452};
    697 AddData(E,P_17,dens[j]*factor);
    698 G4double P_18[31]={2.583,2.886,3.449,3.97,4.466,4.948,5.419,5.879,6.328,8.364,9.915,11.05,11.89,13.02,13.71,14.16,14.46,14.65,14.76,14.82,14.67,14.22,13.68,13.15,12.14,11.26,10.48,9.805,9.206,8.674,8.2};
    699 AddData(E,P_18,dens[j]*factor);
    700 j++;
    701 
    702 G4double Q_3[31]={2.597,2.831,3.212,3.493,3.691,3.828,3.919,3.977,4.012,4.006,3.89,3.747,3.601,3.326,3.081,2.867,2.679,2.513,2.366,2.235,1.75,1.439,1.224,1.068,0.8543,0.7158,0.6185,0.5463,0.4904,0.4457,0.4092};
    703 AddData(E,Q_3,dens[j]*factor);
    704 G4double Q_4[31]={3.198,3.511,4.048,4.481,4.821,5.078,5.269,5.409,5.509,5.688,5.643,5.528,5.387,5.088,4.801,4.536,4.294,4.073,3.872,3.689,2.977,2.493,2.144,1.881,1.515,1.273,1.1,0.9718,0.8721,0.7924,0.7272};
    705 AddData(E,Q_4,dens[j]*factor);
    706 G4double Q_5[31]={3.674,4.056,4.73,5.3,5.774,6.157,6.461,6.698,6.881,7.313,7.382,7.323,7.21,6.926,6.626,6.333,6.056,5.797,5.555,5.331,4.419,3.763,3.273,2.896,2.354,1.985,1.72,1.52,1.365,1.24,1.137};
    707 AddData(E,Q_5,dens[j]*factor);
    708 G4double Q_6[31]={4.051,4.495,5.289,5.98,6.577,7.083,7.502,7.845,8.121,8.862,9.081,9.103,9.036,8.794,8.5,8.198,7.901,7.617,7.346,7.09,6.012,5.2,4.574,4.079,3.351,2.844,2.472,2.189,1.967,1.787,1.64};
    709 AddData(E,Q_6,dens[j]*factor);
    710 G4double Q_7[31]={4.399,4.891,5.779,6.565,7.264,7.876,8.403,8.849,9.221,10.31,10.71,10.84,10.84,10.67,10.4,10.11,9.804,9.506,9.216,8.938,7.725,6.775,6.021,5.411,4.493,3.838,3.351,2.975,2.677,2.435,2.235};
    711 AddData(E,Q_7,dens[j]*factor);
    712 G4double Q_8[31]={4.708,5.245,6.219,7.091,7.878,8.585,9.21,9.755,10.22,11.68,12.29,12.55,12.63,12.55,12.33,12.05,11.76,11.46,11.16,10.87,9.548,8.476,7.603,6.883,5.775,4.967,4.355,3.878,3.496,3.184,2.926};
    713 AddData(E,Q_8,dens[j]*factor);
    714 G4double Q_9[31]={4.95,5.523,6.572,7.516,8.376,9.161,9.871,10.5,11.06,12.88,13.72,14.1,14.27,14.29,14.12,13.87,13.59,13.29,12.99,12.69,11.3,10.13,9.163,8.353,7.083,6.139,5.414,4.841,4.378,3.998,3.68};
    715 AddData(E,Q_9,dens[j]*factor);
    716 G4double Q_10[31]={5.171,5.776,6.888,7.895,8.819,9.67,10.45,11.16,11.8,13.98,15.06,15.6,15.86,15.99,15.88,15.67,15.4,15.11,14.81,14.51,13.06,11.82,10.76,9.872,8.452,7.378,6.542,5.875,5.331,4.881,4.502};
    717 AddData(E,Q_10,dens[j]*factor);
    718 G4double Q_11[31]={5.362,5.997,7.176,8.252,9.245,10.17,11.03,11.82,12.54,15.16,16.55,17.3,17.72,18.06,18.08,17.95,17.74,17.49,17.22,16.93,15.49,14.17,13.02,12.02,10.39,9.122,8.117,7.303,6.634,6.075,5.602};
    719 AddData(E,Q_11,dens[j]*factor);
    720 G4double Q_12[31]={5.572,6.215,7.413,8.517,9.541,10.5,11.39,12.23,13,15.9,17.51,18.4,18.91,19.35,19.41,19.3,19.1,18.85,18.57,18.27,16.77,15.4,14.21,13.17,11.46,10.13,9.076,8.213,7.499,6.899,6.388};
    721 AddData(E,Q_12,dens[j]*factor);
    722 G4double Q_13[31]={5.774,6.434,7.668,8.809,9.871,10.87,11.8,12.68,13.51,16.71,18.59,19.68,20.32,20.93,21.1,21.05,20.9,20.67,20.41,20.13,18.63,17.22,15.96,14.86,13.03,11.59,10.43,9.471,8.674,7.999,7.422};
    723 AddData(E,Q_13,dens[j]*factor);
    724 G4double Q_14[31]={5.976,6.651,7.915,9.089,10.18,11.21,12.18,13.1,13.97,17.45,19.59,20.86,21.64,22.43,22.7,22.73,22.62,22.43,22.19,21.92,20.43,18.99,17.69,16.53,14.59,13.05,11.79,10.74,9.87,9.126,8.486};
    725 AddData(E,Q_14,dens[j]*factor);
    726 G4double Q_15[31]={6.211,6.903,8.199,9.405,10.53,11.59,12.6,13.55,14.45,18.19,20.58,22.06,22.99,23.98,24.38,24.49,24.45,24.3,24.1,23.86,22.42,20.95,19.61,18.4,16.34,14.68,13.32,12.18,11.21,10.39,9.676};
    727 AddData(E,Q_15,dens[j]*factor);
    728 G4double Q_16[31]={6.402,7.115,8.448,9.69,10.85,11.95,12.98,13.97,14.91,18.88,21.54,23.22,24.31,25.51,26.05,26.26,26.28,26.19,26.02,25.8,24.43,22.96,21.58,20.33,18.17,16.39,14.92,13.69,12.63,11.73,10.94};
    729 AddData(E,Q_16,dens[j]*factor);
    730 G4double Q_17[31]={6.647,7.373,8.73,9.996,11.18,12.3,13.37,14.38,15.35,19.51,22.41,24.29,25.53,26.94,27.61,27.91,28,27.96,27.83,27.64,26.33,24.86,23.46,22.16,19.91,18.04,16.48,15.16,14.03,13.05,12.2};
    731 AddData(E,Q_17,dens[j]*factor);
    732 G4double Q_18[31]={6.781,7.522,8.903,10.19,11.4,12.54,13.62,14.65,15.64,19.98,23.1,25.17,26.56,28.17,28.98,29.37,29.52,29.52,29.42,29.26,28.01,26.54,25.12,23.79,21.47,19.53,17.9,16.51,15.32,14.28,13.38};
    733 AddData(E,Q_18,dens[j]*factor);
    734 j++;
    735 
    736 G4double R_3[31]={2.358,2.573,2.927,3.191,3.383,3.517,3.609,3.671,3.709,3.726,3.628,3.501,3.37,3.119,2.895,2.698,2.524,2.37,2.234,2.112,1.658,1.366,1.163,1.015,0.8137,0.6824,0.59,0.5214,0.4682,0.4258,0.391};
    737 AddData(E,R_3,dens[j]*factor);
    738 G4double R_4[31]={2.899,3.186,3.682,4.086,4.408,4.656,4.843,4.983,5.085,5.286,5.263,5.166,5.041,4.773,4.512,4.269,4.046,3.842,3.656,3.486,2.822,2.367,2.038,1.79,1.443,1.213,1.05,0.9278,0.8329,0.7571,0.695};
    739 AddData(E,R_4,dens[j]*factor);
    740 G4double R_5[31]={3.326,3.677,4.296,4.825,5.269,5.633,5.926,6.158,6.34,6.789,6.88,6.841,6.747,6.497,6.226,5.959,5.706,5.467,5.245,5.037,4.188,3.574,3.113,2.757,2.243,1.894,1.642,1.452,1.303,1.184,1.087};
    741 AddData(E,R_5,dens[j]*factor);
    742 G4double R_6[31]={3.666,4.073,4.802,5.44,5.996,6.471,6.871,7.201,7.471,8.219,8.46,8.503,8.456,8.249,7.988,7.715,7.445,7.185,6.936,6.7,5.699,4.94,4.352,3.886,3.196,2.715,2.361,2.092,1.88,1.709,1.568};
    743 AddData(E,R_6,dens[j]*factor);
    744 G4double R_7[31]={3.974,4.425,5.241,5.967,6.615,7.188,7.685,8.11,8.47,9.55,9.975,10.12,10.14,10,9.776,9.513,9.24,8.969,8.704,8.448,7.327,6.439,5.732,5.158,4.289,3.667,3.203,2.844,2.56,2.329,2.139};
    745 AddData(E,R_7,dens[j]*factor);
    746 G4double R_8[31]={4.249,4.74,5.635,6.439,7.168,7.827,8.414,8.93,9.377,10.8,11.43,11.71,11.81,11.77,11.58,11.34,11.08,10.8,10.53,10.26,9.055,8.057,7.239,6.562,5.515,4.748,4.166,3.711,3.346,3.048,2.801};
    747 AddData(E,R_8,dens[j]*factor);
    748 G4double R_9[31]={4.469,4.993,5.956,6.826,7.623,8.352,9.016,9.611,10.13,11.9,12.75,13.16,13.35,13.4,13.27,13.06,12.81,12.54,12.26,11.99,10.71,9.634,8.728,7.967,6.767,5.871,5.181,4.635,4.193,3.829,3.525};
    749 AddData(E,R_9,dens[j]*factor);
    750 G4double R_10[31]={4.672,5.224,6.244,7.173,8.027,8.818,9.547,10.21,10.81,12.92,14,14.55,14.84,15.01,14.93,14.75,14.52,14.26,13.99,13.72,12.39,11.23,10.25,9.418,8.077,7.058,6.263,5.627,5.108,4.677,4.314};
    751 AddData(E,R_10,dens[j]*factor);
    752 G4double R_11[31]={4.841,5.42,6.5,7.49,8.406,9.261,10.06,10.8,11.47,13.97,15.35,16.11,16.54,16.9,16.95,16.85,16.68,16.46,16.21,15.96,14.64,13.43,12.36,11.42,9.896,8.702,7.752,6.981,6.345,5.813,5.362};
    753 AddData(E,R_11,dens[j]*factor);
    754 G4double R_12[31]={5.029,5.617,6.716,7.735,8.682,9.568,10.4,11.18,11.9,14.66,16.25,17.16,17.68,18.15,18.25,18.17,18,17.78,17.53,17.27,15.9,14.64,13.52,12.55,10.95,9.694,8.688,7.867,7.186,6.613,6.125};
    755 AddData(E,R_12,dens[j]*factor);
    756 G4double R_13[31]={5.209,5.812,6.943,7.995,8.978,9.901,10.77,11.59,12.36,15.41,17.25,18.34,18.99,19.64,19.83,19.82,19.7,19.51,19.28,19.02,17.66,16.36,15.19,14.16,12.45,11.08,9.982,9.073,8.313,7.669,7.118};
    757 AddData(E,R_13,dens[j]*factor);
    758 G4double R_14[31]={5.387,6.004,7.163,8.245,9.259,10.21,11.11,11.97,12.78,16.07,18.16,19.43,20.22,21.04,21.34,21.4,21.32,21.16,20.96,20.72,19.37,18.04,16.83,15.76,13.93,12.47,11.28,10.29,9.46,8.75,8.139};
    759 AddData(E,R_14,dens[j]*factor);
    760 G4double R_15[31]={5.591,6.222,7.409,8.52,9.564,10.54,11.48,12.37,13.21,16.74,19.07,20.53,21.47,22.49,22.92,23.06,23.05,22.94,22.76,22.55,21.25,19.91,18.67,17.54,15.61,14.04,12.75,11.66,10.75,9.965,9.285};
    761 AddData(E,R_15,dens[j]*factor);
    762 G4double R_16[31]={5.759,6.409,7.629,8.771,9.848,10.86,11.82,12.74,13.62,17.37,19.93,21.6,22.69,23.91,24.48,24.72,24.77,24.71,24.57,24.39,23.16,21.82,20.55,19.38,17.35,15.68,14.29,13.12,12.11,11.25,10.5};
    763 AddData(E,R_16,dens[j]*factor);
    764 G4double R_17[31]={5.972,6.633,7.875,9.04,10.14,11.18,12.17,13.11,14.02,17.94,20.73,22.58,23.82,25.25,25.95,26.28,26.4,26.38,26.28,26.13,24.97,23.63,22.33,21.13,19.02,17.26,15.79,14.53,13.45,12.52,11.71};
    765 AddData(E,R_17,dens[j]*factor);
    766 G4double R_18[31]={6.093,6.768,8.031,9.213,10.33,11.39,12.39,13.36,14.28,18.36,21.35,23.39,24.78,26.41,27.24,27.65,27.83,27.86,27.8,27.67,26.56,25.23,23.92,22.68,20.52,18.69,17.14,15.83,14.69,13.71,12.84};
    767 AddData(E,R_18,dens[j]*factor);
    768 j++;
    769 
    770 G4double S_3[31]={3.038,3.3,3.719,4.021,4.232,4.375,4.469,4.527,4.56,4.531,4.384,4.211,4.037,3.712,3.428,3.181,2.966,2.777,2.61,2.462,1.918,1.574,1.337,1.164,0.9296,0.778,0.6717,0.5928,0.5318,0.4832,0.4433};
    771 AddData(E,S_3,dens[j]*factor);
    772 G4double S_4[31]={3.761,4.114,4.711,5.183,5.547,5.82,6.02,6.164,6.267,6.432,6.358,6.209,6.036,5.678,5.34,5.03,4.751,4.498,4.269,4.062,3.261,2.722,2.337,2.048,1.647,1.382,1.194,1.054,0.9453,0.8586,0.7877};
    773 AddData(E,S_4,dens[j]*factor);
    774 G4double S_5[31]={4.329,4.766,5.525,6.153,6.667,7.077,7.399,7.648,7.839,8.273,8.318,8.226,8.079,7.729,7.368,7.023,6.7,6.4,6.123,5.866,4.837,4.106,3.565,3.149,2.555,2.154,1.865,1.647,1.478,1.342,1.231};
    775 AddData(E,S_5,dens[j]*factor);
    776 G4double S_6[31]={4.774,5.286,6.188,6.959,7.613,8.16,8.609,8.972,9.264,10.03,10.23,10.22,10.12,9.809,9.45,9.088,8.738,8.406,8.093,7.799,6.576,5.669,4.976,4.431,3.634,3.081,2.677,2.369,2.128,1.934,1.774};
    777 AddData(E,S_6,dens[j]*factor);
    778 G4double S_7[31]={5.194,5.763,6.779,7.664,8.436,9.103,9.671,10.15,10.54,11.67,12.07,12.17,12.14,11.9,11.56,11.2,10.84,10.49,10.15,9.827,8.445,7.38,6.543,5.872,4.867,4.154,3.624,3.216,2.893,2.632,2.416};
    779 AddData(E,S_7,dens[j]*factor);
    780 G4double S_8[31]={5.553,6.174,7.294,8.281,9.159,9.936,10.61,11.2,11.7,13.23,13.85,14.09,14.14,13.99,13.7,13.35,13,12.64,12.28,11.94,10.43,9.228,8.257,7.463,6.249,5.369,4.705,4.188,3.775,3.438,3.158};
    781 AddData(E,S_8,dens[j]*factor);
    782 G4double S_9[31]={5.826,6.49,7.698,8.774,9.741,10.61,11.39,12.07,12.67,14.59,15.45,15.83,15.97,15.92,15.68,15.36,15.01,14.65,14.3,13.94,12.34,11.03,9.95,9.055,7.662,6.633,5.845,5.225,4.725,4.313,3.97};
    783 AddData(E,S_9,dens[j]*factor);
    784 G4double S_10[31]={6.073,6.774,8.058,9.21,10.25,11.21,12.07,12.84,13.53,15.85,16.96,17.5,17.75,17.82,17.64,17.35,17.02,16.66,16.3,15.94,14.27,12.87,11.69,10.7,9.143,7.971,7.062,6.339,5.751,5.264,4.855};
    785 AddData(E,S_10,dens[j]*factor);
    786 G4double S_11[31]={6.28,7.01,8.355,9.574,10.69,11.71,12.65,13.51,14.28,17.02,18.42,19.15,19.52,19.75,19.66,19.42,19.11,18.77,18.42,18.06,16.34,14.85,13.58,12.5,10.77,9.448,8.411,7.577,6.894,6.324,5.843};
    787 AddData(E,S_11,dens[j]*factor);
    788 G4double S_12[31]={6.544,7.288,8.67,9.936,11.1,12.18,13.17,14.1,14.94,18.04,19.74,20.67,21.17,21.57,21.57,21.39,21.12,20.8,20.45,20.1,18.35,16.78,15.44,14.28,12.4,10.95,9.793,8.857,8.083,7.434,6.883};
    789 AddData(E,S_12,dens[j]*factor);
    790 G4double S_13[31]={6.783,7.547,8.969,10.28,11.49,12.61,13.66,14.64,15.54,18.99,20.98,22.11,22.76,23.34,23.45,23.34,23.11,22.82,22.5,22.15,20.39,18.77,17.36,16.13,14.11,12.52,11.25,10.21,9.349,8.619,7.996};
    791 AddData(E,S_13,dens[j]*factor);
    792 G4double S_14[31]={7.021,7.803,9.26,10.61,11.86,13.02,14.11,15.13,16.09,19.85,22.11,23.44,24.24,25.01,25.24,25.2,25.02,24.76,24.46,24.13,22.37,20.71,19.24,17.94,15.8,14.1,12.72,11.59,10.64,9.832,9.14};
    793 AddData(E,S_14,dens[j]*factor);
    794 G4double S_15[31]={7.309,8.11,9.602,10.98,12.27,13.47,14.6,15.67,16.67,20.71,23.26,24.8,25.76,26.75,27.11,27.16,27.05,26.84,26.57,26.26,24.53,22.85,21.32,19.97,17.68,15.86,14.36,13.12,12.08,11.18,10.41};
    795 AddData(E,S_15,dens[j]*factor);
    796 G4double S_16[31]={7.538,8.363,9.898,11.32,12.65,13.89,15.06,16.17,17.21,21.53,24.36,26.12,27.25,28.46,28.96,29.12,29.08,28.92,28.68,28.4,26.74,25.03,23.47,22.05,19.65,17.7,16.09,14.74,13.6,12.62,11.77};
    797 AddData(E,S_16,dens[j]*factor);
    798 G4double S_17[31]={7.835,8.674,10.23,11.68,13.04,14.31,15.51,16.65,17.73,22.27,25.36,27.34,28.63,30.06,30.7,30.95,30.98,30.87,30.67,30.42,28.81,27.1,25.5,24.04,21.53,19.47,17.76,16.32,15.09,14.03,13.11};
    799 AddData(E,S_17,dens[j]*factor);
    800 G4double S_18[31]={8.007,8.865,10.45,11.92,13.3,14.6,15.82,16.99,18.1,22.84,26.18,28.37,29.83,31.48,32.27,32.61,32.71,32.65,32.49,32.26,30.71,28.99,27.36,25.86,23.27,21.12,19.33,17.81,16.51,15.38,14.4};
    801 AddData(E,S_18,dens[j]*factor);
    802 j++;
    803 
    804 G4double T_3[31]={2.242,2.448,2.786,3.041,3.229,3.363,3.457,3.52,3.562,3.591,3.503,3.385,3.26,3.021,2.806,2.617,2.45,2.302,2.17,2.052,1.613,1.331,1.134,0.9906,0.7941,0.6663,0.5764,0.5095,0.4576,0.4162,0.3823};
    805 AddData(E,T_3,dens[j]*factor);
    806 G4double T_4[31]={2.756,3.03,3.503,3.891,4.203,4.446,4.632,4.772,4.877,5.093,5.081,4.993,4.877,4.622,4.373,4.14,3.926,3.73,3.552,3.388,2.746,2.306,1.987,1.746,1.409,1.185,1.025,0.9067,0.8141,0.7401,0.6796};
    807 AddData(E,T_4,dens[j]*factor);
    808 G4double T_5[31]={3.161,3.495,4.086,4.592,5.019,5.372,5.66,5.889,6.072,6.535,6.639,6.611,6.525,6.291,6.033,5.779,5.536,5.308,5.094,4.894,4.076,3.482,3.035,2.689,2.19,1.85,1.604,1.419,1.274,1.158,1.063};
    809 AddData(E,T_5,dens[j]*factor);
    810 G4double T_6[31]={3.482,3.87,4.566,5.176,5.709,6.168,6.556,6.88,7.147,7.905,8.161,8.215,8.177,7.987,7.741,7.482,7.224,6.975,6.737,6.51,5.547,4.814,4.244,3.791,3.121,2.653,2.308,2.045,1.838,1.671,1.534};
    811 AddData(E,T_6,dens[j]*factor);
    812 G4double T_7[31]={3.769,4.2,4.981,5.675,6.296,6.847,7.328,7.742,8.095,9.177,9.617,9.778,9.808,9.69,9.475,9.225,8.966,8.707,8.454,8.209,7.131,6.275,5.59,5.034,4.19,3.584,3.132,2.782,2.504,2.279,2.093};
    813 AddData(E,T_7,dens[j]*factor);
    814 G4double T_8[31]={4.026,4.495,5.352,6.122,6.821,7.453,8.019,8.519,8.955,10.37,11.02,11.3,11.41,11.39,11.22,11,10.75,10.49,10.23,9.978,8.813,7.851,7.061,6.405,5.388,4.642,4.074,3.63,3.274,2.983,2.742};
    815 AddData(E,T_8,dens[j]*factor);
    816 G4double T_9[31]={4.235,4.735,5.656,6.491,7.254,7.955,8.593,9.168,9.679,11.42,12.28,12.71,12.9,12.98,12.86,12.67,12.43,12.18,11.91,11.65,10.43,9.391,8.515,7.778,6.613,5.742,5.069,4.536,4.104,3.749,3.451};
    817 AddData(E,T_9,dens[j]*factor);
    818 G4double T_10[31]={4.427,4.954,5.93,6.821,7.641,8.4,9.1,9.742,10.32,12.39,13.48,14.05,14.34,14.53,14.48,14.32,14.1,13.85,13.6,13.33,12.07,10.95,10,9.197,7.895,6.904,6.129,5.508,5.001,4.58,4.225};
    819 AddData(E,T_10,dens[j]*factor);
    820 G4double T_11[31]={4.585,5.138,6.169,7.118,7.997,8.817,9.583,10.29,10.94,13.38,14.75,15.53,15.97,16.35,16.41,16.32,16.16,15.95,15.72,15.48,14.22,13.06,12.03,11.13,9.654,8.497,7.574,6.824,6.205,5.686,5.247};
    821 AddData(E,T_11,dens[j]*factor);
    822 G4double T_12[31]={4.762,5.323,6.375,7.352,8.263,9.115,9.915,10.66,11.36,14.05,15.64,16.55,17.09,17.58,17.69,17.63,17.48,17.27,17.04,16.79,15.48,14.27,13.19,12.25,10.7,9.481,8.502,7.701,7.036,6.476,5.999};
    823 AddData(E,T_12,dens[j]*factor);
    824 G4double T_13[31]={4.93,5.505,6.587,7.597,8.542,9.43,10.26,11.06,11.8,14.76,16.59,17.68,18.35,19.01,19.23,19.23,19.12,18.94,18.73,18.49,17.19,15.94,14.82,13.83,12.16,10.84,9.767,8.881,8.14,7.511,6.972};
    825 AddData(E,T_13,dens[j]*factor);
    826 G4double T_14[31]={5.097,5.685,6.793,7.83,8.806,9.725,10.59,11.42,12.2,15.39,17.45,18.73,19.54,20.37,20.69,20.77,20.7,20.56,20.36,20.14,18.86,17.59,16.42,15.38,13.62,12.2,11.04,10.07,9.264,8.571,7.973};
    827 AddData(E,T_14,dens[j]*factor);
    828 G4double T_15[31]={5.283,5.884,7.018,8.083,9.087,10.03,10.93,11.79,12.61,16.02,18.32,19.79,20.74,21.77,22.22,22.38,22.38,22.28,22.12,21.92,20.69,19.41,18.21,17.12,15.26,13.74,12.48,11.42,10.53,9.763,9.098};
    829 AddData(E,T_15,dens[j]*factor);
    830 G4double T_16[31]={5.44,6.058,7.223,8.317,9.352,10.33,11.26,12.15,12.99,16.62,19.14,20.8,21.9,23.15,23.73,23.98,24.05,24,23.88,23.71,22.54,21.26,20.04,18.91,16.96,15.34,13.99,12.84,11.87,11.02,10.29};
    831 AddData(E,T_16,dens[j]*factor);
    832 G4double T_17[31]={5.636,6.266,7.45,8.566,9.623,10.62,11.58,12.49,13.36,17.16,19.89,21.74,22.99,24.44,25.16,25.5,25.63,25.63,25.54,25.4,24.3,23.03,21.79,20.63,18.59,16.89,15.45,14.23,13.18,12.27,11.48};
    833 AddData(E,T_17,dens[j]*factor);
    834 G4double T_18[31]={5.751,6.393,7.597,8.728,9.803,10.82,11.79,12.73,13.62,17.56,20.49,22.52,23.91,25.56,26.4,26.83,27.02,27.07,27.02,26.9,25.86,24.59,23.33,22.15,20.05,18.28,16.78,15.5,14.4,13.43,12.59};
    835 AddData(E,T_18,dens[j]*factor);
    836 j++;
    837 
    838 G4double U_3[31]={2.534,2.757,3.121,3.391,3.587,3.725,3.82,3.884,3.924,3.937,3.829,3.69,3.547,3.276,3.035,2.824,2.639,2.476,2.331,2.202,1.725,1.42,1.208,1.054,0.8438,0.7073,0.6114,0.5401,0.485,0.4409,0.4048};
    839 AddData(E,U_3,dens[j]*factor);
    840 G4double U_4[31]={3.127,3.427,3.941,4.355,4.683,4.936,5.128,5.272,5.378,5.583,5.551,5.442,5.304,5.011,4.728,4.466,4.228,4.011,3.814,3.634,2.934,2.458,2.114,1.857,1.496,1.257,1.088,0.9608,0.8624,0.7838,0.7194};
    841 AddData(E,U_4,dens[j]*factor);
    842 G4double U_5[31]={3.592,3.963,4.61,5.155,5.609,5.981,6.28,6.518,6.705,7.168,7.256,7.206,7.097,6.819,6.523,6.234,5.961,5.706,5.468,5.248,4.352,3.709,3.228,2.857,2.324,1.961,1.7,1.503,1.349,1.226,1.125};
    843 AddData(E,U_5,dens[j]*factor);
    844 G4double U_6[31]={3.958,4.39,5.159,5.822,6.393,6.88,7.288,7.625,7.902,8.673,8.918,8.952,8.892,8.656,8.367,8.068,7.776,7.496,7.23,6.978,5.92,5.124,4.51,4.024,3.308,2.809,2.443,2.164,1.945,1.768,1.623};
    845 AddData(E,U_6,dens[j]*factor);
    846 G4double U_7[31]={4.294,4.776,5.641,6.401,7.071,7.659,8.167,8.602,8.969,10.08,10.51,10.66,10.67,10.5,10.24,9.947,9.649,9.355,9.07,8.796,7.607,6.675,5.936,5.338,4.436,3.792,3.312,2.941,2.647,2.409,2.212};
    847 AddData(E,U_7,dens[j]*factor);
    848 G4double U_8[31]={4.583,5.108,6.06,6.907,7.666,8.345,8.947,9.474,9.931,11.4,12.05,12.32,12.41,12.34,12.13,11.86,11.57,11.27,10.98,10.69,9.398,8.348,7.493,6.788,5.701,4.907,4.305,3.835,3.458,3.151,2.895};
    849 AddData(E,U_8,dens[j]*factor);
    850 G4double U_9[31]={4.813,5.373,6.399,7.321,8.155,8.912,9.594,10.2,10.74,12.56,13.43,13.85,14.03,14.06,13.9,13.65,13.37,13.08,12.78,12.49,11.12,9.983,9.035,8.241,6.995,6.067,5.353,4.789,4.333,3.957,3.643};
    851 AddData(E,U_9,dens[j]*factor);
    852 G4double U_10[31]={5.022,5.613,6.702,7.688,8.588,9.413,10.17,10.85,11.47,13.63,14.74,15.31,15.59,15.74,15.64,15.43,15.17,14.88,14.59,14.29,12.87,11.65,10.62,9.745,8.351,7.295,6.472,5.814,5.278,4.833,4.458};
    853 AddData(E,U_10,dens[j]*factor);
    854 G4double U_11[31]={5.194,5.808,6.949,7.992,8.951,9.836,10.65,11.41,12.1,14.61,15.99,16.74,17.14,17.44,17.42,17.26,17.03,16.76,16.47,16.18,14.73,13.44,12.33,11.38,9.835,8.647,7.709,6.952,6.329,5.808,5.368};
    855 AddData(E,U_11,dens[j]*factor);
    856 G4double U_12[31]={5.404,6.031,7.205,8.289,9.292,10.22,11.09,11.9,12.65,15.48,17.11,18.05,18.58,19.05,19.12,19.01,18.81,18.56,18.28,17.99,16.52,15.18,14.01,12.99,11.32,10.02,8.974,8.125,7.421,6.829,6.325};
    857 AddData(E,U_12,dens[j]*factor);
    858 G4double U_13[31]={5.596,6.24,7.447,8.566,9.609,10.58,11.5,12.35,13.15,16.27,18.17,19.29,19.97,20.61,20.78,20.74,20.59,20.37,20.11,19.83,18.36,16.97,15.75,14.67,12.87,11.46,10.31,9.371,8.585,7.92,7.35};
    859 AddData(E,U_13,dens[j]*factor);
    860 G4double U_14[31]={5.788,6.446,7.681,8.832,9.908,10.92,11.87,12.76,13.6,16.98,19.13,20.44,21.26,22.08,22.37,22.4,22.29,22.1,21.87,21.6,20.14,18.72,17.45,16.32,14.42,12.9,11.66,10.63,9.77,9.036,8.404};
    861 AddData(E,U_14,dens[j]*factor);
    862 G4double U_15[31]={6.009,6.682,7.945,9.126,10.23,11.28,12.26,13.19,14.07,17.7,20.09,21.6,22.57,23.6,24.02,24.14,24.09,23.95,23.75,23.51,22.09,20.66,19.34,18.16,16.14,14.51,13.17,12.05,11.1,10.29,9.584};
    863 AddData(E,U_15,dens[j]*factor);
    864 G4double U_16[31]={6.191,6.883,8.18,9.394,10.54,11.61,12.63,13.6,14.52,18.37,21.01,22.72,23.85,25.1,25.65,25.87,25.89,25.8,25.64,25.42,24.07,22.63,21.28,20.06,17.94,16.2,14.76,13.54,12.51,11.61,10.84};
    865 AddData(E,U_16,dens[j]*factor);
    866 G4double U_17[31]={6.421,7.126,8.445,9.68,10.85,11.95,13,13.99,14.94,18.98,21.85,23.76,25.04,26.5,27.19,27.5,27.59,27.55,27.42,27.24,25.94,24.51,23.14,21.87,19.66,17.83,16.3,15,13.89,12.92,12.08};
    867 AddData(E,U_17,dens[j]*factor);
    868 G4double U_18[31]={6.564,7.283,8.624,9.878,11.06,12.19,13.26,14.28,15.25,19.47,22.54,24.64,26.08,27.75,28.59,28.99,29.15,29.15,29.06,28.9,27.66,26.23,24.83,23.53,21.25,19.35,17.74,16.37,15.19,14.17,13.27};
    869 AddData(E,U_18,dens[j]*factor);
    870 j++;
    871 
    872 G4double V_3[31]={2.541,2.772,3.148,3.426,3.623,3.759,3.849,3.907,3.942,3.94,3.827,3.688,3.546,3.276,3.037,2.827,2.642,2.479,2.335,2.206,1.728,1.422,1.21,1.055,0.8447,0.7079,0.6118,0.5404,0.4851,0.441,0.4049};
    873 AddData(E,V_3,dens[j]*factor);
    874 G4double V_4[31]={3.127,3.434,3.963,4.392,4.729,4.984,5.174,5.313,5.413,5.594,5.553,5.441,5.304,5.014,4.733,4.473,4.236,4.019,3.822,3.642,2.941,2.463,2.119,1.86,1.498,1.259,1.088,0.9614,0.8628,0.784,0.7195};
    875 AddData(E,V_4,dens[j]*factor);
    876 G4double V_5[31]={3.591,3.966,4.629,5.192,5.661,6.041,6.342,6.577,6.759,7.191,7.263,7.208,7.1,6.825,6.532,6.246,5.974,5.72,5.483,5.263,4.366,3.719,3.236,2.863,2.328,1.964,1.702,1.504,1.35,1.227,1.126};
    877 AddData(E,V_5,dens[j]*factor);
    878 G4double V_6[31]={3.96,4.395,5.175,5.856,6.445,6.946,7.362,7.702,7.977,8.714,8.935,8.961,8.899,8.665,8.38,8.085,7.795,7.517,7.251,7,5.94,5.14,4.523,4.035,3.315,2.814,2.446,2.166,1.946,1.769,1.623};
    879 AddData(E,V_6,dens[j]*factor);
    880 G4double V_7[31]={4.304,4.787,5.659,6.433,7.122,7.727,8.249,8.691,9.061,10.14,10.55,10.68,10.68,10.51,10.26,9.969,9.674,9.383,9.099,8.826,7.635,6.699,5.955,5.353,4.446,3.799,3.316,2.944,2.649,2.41,2.213};
    881 AddData(E,V_7,dens[j]*factor);
    882 G4double V_8[31]={4.602,5.127,6.083,6.94,7.716,8.414,9.032,9.572,10.04,11.48,12.09,12.35,12.44,12.36,12.15,11.89,11.6,11.31,11.01,10.73,9.436,8.381,7.52,6.81,5.715,4.916,4.311,3.839,3.461,3.152,2.896};
    883 AddData(E,V_8,dens[j]*factor);
    884 G4double V_9[31]={4.84,5.401,6.429,7.356,8.203,8.977,9.679,10.3,10.85,12.66,13.5,13.88,14.05,14.08,13.92,13.68,13.41,13.12,12.82,12.53,11.16,10.02,9.063,8.264,7.01,6.077,5.359,4.792,4.334,3.958,3.643};
    885 AddData(E,V_9,dens[j]*factor);
    886 G4double V_10[31]={5.057,5.649,6.739,7.728,8.637,9.476,10.25,10.95,11.58,13.75,14.82,15.35,15.62,15.76,15.66,15.46,15.2,14.92,14.62,14.33,12.91,11.68,10.65,9.768,8.365,7.304,6.477,5.817,5.278,4.832,4.457};
    887 AddData(E,V_10,dens[j]*factor);
    888 G4double V_11[31]={5.234,5.85,6.992,8.036,8.999,9.896,10.73,11.5,12.21,14.75,16.08,16.8,17.18,17.46,17.44,17.29,17.06,16.8,16.51,16.22,14.77,13.48,12.36,11.4,9.853,8.658,7.716,6.955,6.33,5.809,5.367};
    889 AddData(E,V_11,dens[j]*factor);
    890 G4double V_12[31]={5.449,6.079,7.253,8.337,9.343,10.28,11.16,11.99,12.75,15.62,17.22,18.12,18.62,19.06,19.13,19.03,18.84,18.59,18.32,18.04,16.57,15.22,14.05,13.02,11.34,10.03,8.983,8.13,7.423,6.83,6.324};
    891 AddData(E,V_12,dens[j]*factor);
    892 G4double V_13[31]={5.647,6.293,7.503,8.623,9.666,10.64,11.57,12.43,13.25,16.42,18.29,19.37,20.01,20.63,20.8,20.76,20.61,20.4,20.15,19.87,18.41,17.02,15.79,14.7,12.9,11.47,10.32,9.377,8.588,7.921,7.35};
    893 AddData(E,V_13,dens[j]*factor);
    894 G4double V_14[31]={5.843,6.505,7.745,8.897,9.973,10.98,11.94,12.84,13.7,17.14,19.26,20.53,21.31,22.1,22.38,22.42,22.31,22.13,21.9,21.64,20.19,18.77,17.49,16.35,14.44,12.91,11.67,10.64,9.772,9.036,8.403};
    895 AddData(E,V_14,dens[j]*factor);
    896 G4double V_15[31]={6.072,6.75,8.021,9.205,10.31,11.35,12.34,13.28,14.17,17.87,20.25,21.71,22.64,23.63,24.04,24.16,24.12,23.98,23.79,23.55,22.15,20.71,19.39,18.2,16.17,14.53,13.18,12.06,11.1,10.29,9.583};
    897 AddData(E,V_15,dens[j]*factor);
    898 G4double V_16[31]={6.259,6.957,8.265,9.483,10.63,11.7,12.72,13.69,14.62,18.55,21.18,22.85,23.93,25.13,25.68,25.89,25.92,25.84,25.68,25.47,24.14,22.7,21.35,20.11,17.98,16.23,14.78,13.55,12.51,11.62,10.84};
    899 AddData(E,V_16,dens[j]*factor);
    900 G4double V_17[31]={6.496,7.208,8.54,9.782,10.95,12.05,13.09,14.09,15.04,19.17,22.04,23.91,25.14,26.54,27.22,27.53,27.62,27.59,27.47,27.29,26.01,24.58,23.2,21.92,19.7,17.86,16.32,15.01,13.89,12.93,12.08};
    901 AddData(E,V_17,dens[j]*factor);
    902 G4double V_18[31]={6.642,7.369,8.724,9.986,11.17,12.3,13.36,14.38,15.35,19.64,22.74,24.8,26.18,27.8,28.61,29,29.17,29.18,29.09,28.94,27.73,26.29,24.89,23.58,21.29,19.37,17.75,16.37,15.19,14.16,13.27};
    903 AddData(E,V_18,dens[j]*factor);
    904 j++;
    905 
    906 G4double W_3[31]={1.603,1.75,1.999,2.196,2.352,2.474,2.568,2.64,2.694,2.799,2.774,2.705,2.623,2.454,2.295,2.151,2.023,1.908,1.804,1.711,1.358,1.127,0.965,0.8452,0.6807,0.573,0.4969,0.4401,0.396,0.3606,0.3316};
    907 AddData(E,W_3,dens[j]*factor);
    908 G4double W_4[31]={1.976,2.173,2.518,2.808,3.052,3.255,3.421,3.556,3.665,3.952,4.014,3.986,3.921,3.751,3.572,3.4,3.238,3.088,2.949,2.821,2.31,1.952,1.69,1.49,1.209,1.02,0.8848,0.7835,0.7046,0.6415,0.5896};
    909 AddData(E,W_4,dens[j]*factor);
    910 G4double W_5[31]={2.267,2.509,2.939,3.312,3.636,3.916,4.156,4.36,4.531,5.044,5.229,5.268,5.24,5.101,4.924,4.74,4.56,4.387,4.224,4.07,3.425,2.946,2.581,2.295,1.879,1.593,1.385,1.227,1.104,1.005,0.923};
    911 AddData(E,W_5,dens[j]*factor);
    912 G4double W_6[31]={2.498,2.779,3.287,3.735,4.133,4.486,4.798,5.069,5.305,6.07,6.406,6.535,6.56,6.474,6.317,6.136,5.949,5.764,5.584,5.412,4.66,4.073,3.609,3.237,2.679,2.285,1.994,1.77,1.594,1.451,1.333};
    913 AddData(E,W_6,dens[j]*factor);
    914 G4double W_7[31]={2.696,3.008,3.579,4.091,4.554,4.973,5.349,5.685,5.983,7.012,7.524,7.764,7.86,7.853,7.732,7.566,7.384,7.196,7.008,6.824,5.991,5.311,4.757,4.3,3.6,3.092,2.709,2.411,2.174,1.981,1.821};
    915 AddData(E,W_7,dens[j]*factor);
    916 G4double W_8[31]={2.869,3.207,3.834,4.403,4.924,5.401,5.838,6.234,6.591,7.882,8.584,8.951,9.133,9.225,9.155,9.017,8.848,8.665,8.477,8.289,7.399,6.641,6.006,5.472,4.632,4.007,3.527,3.149,2.845,2.595,2.387};
    917 AddData(E,W_8,dens[j]*factor);
    918 G4double W_9[31]={3.02,3.38,4.053,4.67,5.241,5.769,6.256,6.705,7.116,8.654,9.546,10.05,10.32,10.52,10.5,10.4,10.25,10.07,9.886,9.696,8.768,7.95,7.249,6.65,5.69,4.961,4.393,3.939,3.57,3.265,3.009};
    919 AddData(E,W_9,dens[j]*factor);
    920 G4double W_10[31]={3.16,3.539,4.25,4.909,5.523,6.095,6.629,7.125,7.584,9.359,10.44,11.09,11.46,11.78,11.83,11.76,11.63,11.47,11.29,11.1,10.15,9.283,8.527,7.87,6.8,5.972,5.317,4.789,4.355,3.993,3.688};
    921 AddData(E,W_10,dens[j]*factor);
    922 G4double W_11[31]={3.269,3.662,4.406,5.102,5.754,6.367,6.942,7.482,7.987,9.996,11.28,12.08,12.57,13.04,13.17,13.15,13.05,12.91,12.74,12.56,11.6,10.7,9.889,9.18,8.003,7.076,6.334,5.727,5.225,4.803,4.444};
    923 AddData(E,W_11,dens[j]*factor);
    924 G4double W_12[31]={3.392,3.795,4.561,5.284,5.967,6.612,7.222,7.798,8.341,10.56,12.04,12.99,13.6,14.22,14.44,14.47,14.41,14.29,14.14,13.96,13,12.07,11.22,10.47,9.203,8.191,7.369,6.692,6.126,5.647,5.237};
    925 AddData(E,W_12,dens[j]*factor);
    926 G4double W_13[31]={3.506,3.919,4.705,5.45,6.159,6.833,7.473,8.081,8.659,11.06,12.73,13.85,14.58,15.37,15.69,15.79,15.77,15.68,15.54,15.38,14.44,13.49,12.61,11.81,10.46,9.366,8.467,7.719,7.088,6.551,6.089};
    927 AddData(E,W_13,dens[j]*factor);
    928 G4double W_14[31]={3.618,4.04,4.843,5.607,6.337,7.034,7.701,8.337,8.945,11.52,13.37,14.63,15.49,16.46,16.89,17.05,17.08,17.02,16.91,16.76,15.84,14.88,13.97,13.14,11.71,10.54,9.573,8.76,8.07,7.478,6.966};
    929 AddData(E,W_14,dens[j]*factor);
    930 G4double W_15[31]={3.732,4.163,4.982,5.763,6.513,7.233,7.924,8.587,9.221,11.96,13.98,15.41,16.4,17.56,18.11,18.37,18.45,18.43,18.36,18.24,17.38,16.41,15.48,14.63,13.12,11.87,10.82,9.936,9.178,8.524,7.954};
    931 AddData(E,W_15,dens[j]*factor);
    932 G4double W_16[31]={3.835,4.276,5.116,5.916,6.686,7.428,8.142,8.829,9.488,12.38,14.56,16.15,17.28,18.64,19.33,19.67,19.82,19.85,19.81,19.72,18.92,17.97,17.03,16.15,14.58,13.26,12.13,11.17,10.35,9.631,9.005};
    933 AddData(E,W_16,dens[j]*factor);
    934 G4double W_17[31]={3.958,4.407,5.258,6.072,6.857,7.616,8.349,9.056,9.738,12.76,15.1,16.83,18.09,19.65,20.48,20.91,21.12,21.2,21.2,21.13,20.41,19.47,18.52,17.62,15.99,14.6,13.41,12.39,11.5,10.73,10.05};
    935 AddData(E,W_17,dens[j]*factor);
    936 G4double W_18[31]={4.048,4.504,5.369,6.194,6.991,7.764,8.512,9.236,9.936,13.07,15.55,17.43,18.81,20.57,21.52,22.05,22.33,22.45,22.48,22.44,21.78,20.85,19.89,18.97,17.29,15.85,14.6,13.53,12.59,11.77,11.05};
    937 AddData(E,W_18,dens[j]*factor);
    938 j++;
    939 
    940 G4double X_3[31]={3.332,3.612,4.056,4.373,4.592,4.739,4.835,4.893,4.924,4.88,4.713,4.519,4.326,3.97,3.659,3.39,3.157,2.952,2.773,2.613,2.031,1.663,1.411,1.228,0.9798,0.8194,0.7071,0.6238,0.5594,0.508,0.466};
    941 AddData(E,X_3,dens[j]*factor);
    942 G4double X_4[31]={4.135,4.515,5.152,5.649,6.03,6.313,6.519,6.667,6.771,6.928,6.834,6.663,6.468,6.07,5.698,5.36,5.055,4.781,4.533,4.309,3.45,2.875,2.465,2.159,1.735,1.455,1.256,1.109,0.9941,0.9026,0.8279};
    943 AddData(E,X_4,dens[j]*factor);
    944 G4double X_5[31]={4.766,5.239,6.053,6.721,7.261,7.69,8.024,8.281,8.476,8.912,8.94,8.827,8.657,8.263,7.862,7.483,7.129,6.802,6.501,6.223,5.115,4.335,3.759,3.318,2.69,2.266,1.961,1.732,1.554,1.411,1.294};
    945 AddData(E,X_5,dens[j]*factor);
    946 G4double X_6[31]={5.255,5.811,6.786,7.61,8.302,8.877,9.345,9.723,10.02,10.8,10.99,10.97,10.84,10.48,10.08,9.68,9.295,8.932,8.59,8.271,6.952,5.981,5.244,4.666,3.822,3.239,2.813,2.489,2.236,2.031,1.863};
    947 AddData(E,X_6,dens[j]*factor);
    948 G4double X_7[31]={5.72,6.34,7.441,8.391,9.212,9.916,10.51,11.01,11.42,12.58,12.97,13.06,13,12.71,12.33,11.93,11.53,11.14,10.77,10.42,8.924,7.783,6.891,6.178,5.115,4.363,3.805,3.376,3.037,2.763,2.536};
    949 AddData(E,X_7,dens[j]*factor);
    950 G4double X_8[31]={6.114,6.792,8.008,9.073,10.01,10.83,11.55,12.16,12.68,14.26,14.89,15.11,15.14,14.95,14.61,14.22,13.82,13.42,13.03,12.66,11.02,9.728,8.693,7.849,6.564,5.636,4.937,4.394,3.96,3.606,3.313};
    951 AddData(E,X_8,dens[j]*factor);
    952 G4double X_9[31]={6.408,7.134,8.448,9.611,10.65,11.58,12.4,13.11,13.74,15.73,16.61,16.98,17.1,17.01,16.72,16.36,15.96,15.56,15.17,14.78,13.04,11.63,10.47,9.522,8.047,6.961,6.132,5.48,4.955,4.523,4.163};
    953 AddData(E,X_9,dens[j]*factor);
    954 G4double X_10[31]={6.674,7.439,8.836,10.09,11.21,12.23,13.14,13.96,14.68,17.09,18.23,18.77,19,19.03,18.81,18.47,18.09,17.7,17.3,16.9,15.08,13.56,12.31,11.26,9.601,8.365,7.408,6.648,6.03,5.519,5.09};
    955 AddData(E,X_10,dens[j]*factor);
    956 G4double X_11[31]={6.899,7.695,9.16,10.48,11.69,12.78,13.78,14.69,15.51,18.36,19.81,20.54,20.91,21.1,20.96,20.68,20.33,19.94,19.55,19.15,17.27,15.66,14.3,13.15,11.31,9.914,8.822,7.945,7.227,6.629,6.124};
    957 AddData(E,X_11,dens[j]*factor);
    958 G4double X_12[31]={7.191,8.003,9.507,10.88,12.14,13.3,14.36,15.34,16.23,19.48,21.23,22.17,22.68,23.05,23.01,22.78,22.46,22.1,21.71,21.32,19.39,17.71,16.26,15.03,13.03,11.49,10.27,9.286,8.473,7.791,7.213};
    959 AddData(E,X_12,dens[j]*factor);
    960 G4double X_13[31]={7.454,8.287,9.835,11.26,12.57,13.78,14.9,15.94,16.9,20.51,22.57,23.72,24.38,24.95,25.02,24.86,24.59,24.26,23.89,23.5,21.56,19.81,18.29,16.97,14.82,13.14,11.8,10.71,9.799,9.032,8.377};
    961 AddData(E,X_13,dens[j]*factor);
    962 G4double X_14[31]={7.717,8.569,10.15,11.61,12.97,14.22,15.39,16.49,17.5,21.44,23.79,25.16,25.97,26.73,26.92,26.84,26.62,26.32,25.97,25.6,23.65,21.85,20.27,18.88,16.6,14.8,13.34,12.15,11.15,10.3,9.576};
    963 AddData(E,X_14,dens[j]*factor);
    964 G4double X_15[31]={8.04,8.913,10.54,12.04,13.43,14.73,15.94,17.08,18.14,22.39,25.04,26.63,27.61,28.59,28.92,28.93,28.78,28.52,28.21,27.86,25.94,24.11,22.46,21.01,18.58,16.64,15.06,13.75,12.65,11.71,10.91};
    965 AddData(E,X_15,dens[j]*factor);
    966 G4double X_16[31]={8.294,9.193,10.86,12.4,13.84,15.18,16.44,17.63,18.74,23.29,26.23,28.06,29.21,30.42,30.9,31.02,30.94,30.74,30.46,30.13,28.27,26.41,24.72,23.2,20.63,18.56,16.86,15.44,14.24,13.21,12.32};
    967 AddData(E,X_16,dens[j]*factor);
    968 G4double X_17[31]={8.625,9.54,11.24,12.8,14.27,15.64,16.94,18.16,19.31,24.1,27.32,29.37,30.69,32.13,32.76,32.97,32.96,32.81,32.57,32.27,30.46,28.59,26.85,25.28,22.6,20.42,18.61,17.09,15.8,14.69,13.72};
    969 AddData(E,X_17,dens[j]*factor);
    970 G4double X_18[31]={8.813,9.748,11.47,13.07,14.56,15.96,17.28,18.53,19.71,24.73,28.21,30.48,31.98,33.65,34.43,34.74,34.8,34.7,34.49,34.23,32.47,30.59,28.82,27.21,24.43,22.15,20.26,18.65,17.29,16.1,15.07};
    971 AddData(E,X_18,dens[j]*factor);
    972 
    973 
    974 
    975 G4double Y_3[53]={1.481,1.6,1.8,1.961,2.091,2.197,2.28,2.347,2.399,2.52,2.526,2.488,2.432,2.302,2.17,2.046,1.932,1.829,1.735,1.649,1.321,1.102,0.9471,0.8318,0.6725,0.5676,0.4931,0.4374,0.394,0.3592,0.3306};
    976 AddData(E,Y_3,dens[j]*factor);
    977 G4double Y_4[53]={1.894,2.058,2.337,2.571,2.77,2.938,3.08,3.198,3.296,3.576,3.664,3.67,3.638,3.521,3.379,3.233,3.092,2.958,2.833,2.716,2.242,1.905,1.656,1.464,1.193,1.009,0.8775,0.7783,0.7009,0.6388,0.5877};
    978 AddData(E,Y_4,dens[j]*factor);
    979 G4double Y_5[53]={2.237,2.443,2.798,3.099,3.361,3.59,3.79,3.963,4.112,4.582,4.781,4.853,4.861,4.786,4.657,4.508,4.355,4.203,4.057,3.917,3.321,2.871,2.525,2.252,1.852,1.575,1.372,1.218,1.097,1,0.9198};
    980 AddData(E,Y_5,dens[j]*factor);
    981 G4double Y_6[53]={2.522,2.767,3.196,3.564,3.887,4.174,4.429,4.656,4.856,5.536,5.867,6.022,6.085,6.072,5.972,5.835,5.681,5.521,5.362,5.207,4.515,3.965,3.527,3.172,2.638,2.258,1.974,1.756,1.584,1.444,1.328};
    982 AddData(E,Y_6,dens[j]*factor);
    983 G4double Y_7[53]={2.767,3.047,3.541,3.97,4.349,4.69,4.997,5.274,5.523,6.419,6.901,7.156,7.287,7.359,7.305,7.192,7.049,6.892,6.729,6.565,5.804,5.168,4.645,4.212,3.542,3.052,2.681,2.391,2.16,1.97,1.813};
    984 AddData(E,Y_7,dens[j]*factor);
    985 G4double Y_8[53]={2.982,3.293,3.847,4.333,4.766,5.158,5.514,5.839,6.135,7.245,7.888,8.255,8.465,8.639,8.644,8.566,8.443,8.297,8.137,7.972,7.164,6.457,5.86,5.354,4.552,3.952,3.488,3.121,2.825,2.581,2.377};
    986 AddData(E,Y_8,dens[j]*factor);
    987 G4double Y_9[53]={3.17,3.508,4.116,4.653,5.135,5.573,5.973,6.341,6.68,7.991,8.796,9.279,9.572,9.852,9.921,9.882,9.783,9.65,9.498,9.335,8.499,7.738,7.079,6.512,5.596,4.896,4.347,3.906,3.547,3.248,2.997};
    988 AddData(E,Y_9,dens[j]*factor);
    989 G4double Y_10[53]={3.34,3.702,4.357,4.942,5.469,5.95,6.392,6.801,7.18,8.682,9.65,10.26,10.64,11.04,11.18,11.18,11.11,11,10.86,10.7,9.851,9.046,8.335,7.713,6.693,5.897,5.265,4.752,4.329,3.975,3.676};
    990 AddData(E,Y_10,dens[j]*factor);
    991 G4double Y_11[53]={3.478,3.859,4.556,5.183,5.753,6.275,6.757,7.205,7.623,9.316,10.45,11.19,11.68,12.21,12.44,12.5,12.47,12.38,12.25,12.11,11.26,10.42,9.668,8.996,7.875,6.986,6.27,5.682,5.193,4.78,4.428};
    992 AddData(E,Y_11,dens[j]*factor);
    993 G4double Y_12[53]={3.623,4.019,4.749,5.412,6.018,6.578,7.096,7.578,8.029,9.891,11.19,12.06,12.65,13.32,13.64,13.76,13.77,13.71,13.6,13.47,12.63,11.77,10.98,10.27,9.058,8.087,7.294,6.638,6.087,5.62,5.218};
    994 AddData(E,Y_12,dens[j]*factor);
    995 G4double Y_13[53]={3.754,4.165,4.923,5.616,6.256,6.849,7.401,7.917,8.4,10.42,11.88,12.88,13.58,14.4,14.82,15.01,15.07,15.04,14.96,14.85,14.04,13.16,12.33,11.58,10.3,9.246,8.38,7.655,7.042,6.518,6.066};
    996 AddData(E,Y_13,dens[j]*factor);
    997 G4double Y_14[53]={3.88,4.303,5.086,5.806,6.474,7.097,7.68,8.225,8.738,10.9,12.51,13.65,14.45,15.43,15.95,16.21,16.32,16.34,16.28,16.18,15.41,14.52,13.67,12.89,11.53,10.41,9.478,8.69,8.019,7.442,6.941};
    998 AddData(E,Y_14,dens[j]*factor);
    999 G4double Y_15[53]={4,4.433,5.238,5.982,6.678,7.329,7.94,8.515,9.057,11.36,13.11,14.39,15.31,16.46,17.1,17.45,17.63,17.69,17.67,17.6,16.9,16.02,15.15,14.34,12.92,11.72,10.71,9.853,9.117,8.48,7.924};
    1000 AddData(E,Y_15,dens[j]*factor);
    1001 G4double Y_16[53]={4.111,4.556,5.384,6.154,6.876,7.554,8.193,8.796,9.366,11.81,13.7,15.11,16.14,17.47,18.23,18.68,18.92,19.03,19.06,19.02,18.4,17.54,16.66,15.83,14.34,13.08,12,11.07,10.27,9.578,8.966};
    1002 AddData(E,Y_16,dens[j]*factor);
    1003 G4double Y_17[53]={4.234,4.688,5.534,6.322,7.066,7.768,8.431,9.058,9.652,12.22,14.24,15.78,16.92,18.43,19.31,19.85,20.16,20.33,20.39,20.39,19.85,19.01,18.13,17.28,15.74,14.41,13.27,12.28,11.43,10.67,10.01};
    1004 AddData(E,Y_17,dens[j]*factor);
    1005 G4double Y_18[53]={4.333,4.796,5.658,6.463,7.224,7.946,8.63,9.28,9.896,12.58,14.71,16.37,17.63,19.31,20.31,20.94,21.32,21.54,21.64,21.67,21.21,20.38,19.49,18.63,17.04,15.65,14.46,13.42,12.51,11.72,11.01};
    1006 AddData(E,Y_18,dens[j]*factor);
    1007 j++;
    1008 
    1009 G4double Z_3[53]={1.572,1.764,2.123,2.452,2.743,2.998,3.22,3.417,3.593,4.244,4.656,4.924,5.094,5.266,5.319,5.315,5.281,5.229,5.167,5.099,4.73,4.375,4.056,3.775,3.31,2.946,2.656,2.419,2.222,2.057,1.915};
    1010 AddData(E,Z_3,dens[j]*factor);
    1011 G4double Z_4[53]={1.032,1.139,1.311,1.439,1.539,1.618,1.683,1.737,1.781,1.917,1.966,1.971,1.955,1.896,1.828,1.759,1.693,1.631,1.571,1.516,1.284,1.113,0.983,0.8813,0.7334,0.6312,0.5563,0.4989,0.4534,0.4163,0.3856};
    1012 AddData(E,Z_4,dens[j]*factor);
    1013 G4double Z_5[53]={1.181,1.315,1.542,1.72,1.861,1.977,2.073,2.154,2.224,2.452,2.56,2.603,2.61,2.574,2.512,2.443,2.372,2.302,2.234,2.169,1.883,1.66,1.483,1.34,1.127,0.9759,0.863,0.7755,0.7057,0.6485,0.6009};
    1014 AddData(E,Z_5,dens[j]*factor);
    1015 G4double Z_6[53]={1.3,1.455,1.729,1.954,2.137,2.29,2.419,2.529,2.625,2.955,3.132,3.222,3.26,3.26,3.214,3.152,3.083,3.011,2.939,2.868,2.542,2.273,2.053,1.871,1.591,1.386,1.231,1.11,1.011,0.9306,0.8628};
    1016 AddData(E,Z_6,dens[j]*factor);
    1017 G4double Z_7[53]={1.399,1.569,1.88,2.146,2.369,2.557,2.718,2.858,2.981,3.417,3.669,3.814,3.892,3.94,3.921,3.873,3.811,3.742,3.67,3.597,3.246,2.941,2.682,2.463,2.117,1.858,1.658,1.499,1.369,1.262,1.171};
    1018 AddData(E,Z_7,dens[j]*factor);
    1019 G4double Z_8[53]={1.49,1.672,2.01,2.311,2.571,2.793,2.986,3.155,3.305,3.849,4.181,4.385,4.508,4.614,4.628,4.601,4.551,4.49,4.421,4.35,3.985,3.65,3.358,3.105,2.697,2.384,2.138,1.939,1.776,1.64,1.524};
    1020 AddData(E,Z_8,dens[j]*factor);
    1021 G4double Z_9[53]={1.572,1.764,2.123,2.452,2.743,2.998,3.22,3.417,3.593,4.244,4.656,4.924,5.094,5.266,5.319,5.315,5.281,5.229,5.167,5.099,4.73,4.375,4.056,3.775,3.31,2.946,2.656,2.419,2.222,2.057,1.915};
    1022 AddData(E,Z_9,dens[j]*factor);
    1023 G4double Z_10[53]={1.652,1.85,2.226,2.576,2.895,3.178,3.429,3.652,3.853,4.609,5.103,5.435,5.657,5.901,5.999,6.024,6.009,5.97,5.917,5.855,5.49,5.121,4.779,4.473,3.957,3.545,3.212,2.937,2.707,2.511,2.343};
    1024 AddData(E,Z_10,dens[j]*factor);
    1025 G4double Z_11[53]={1.725,1.93,2.319,2.685,3.026,3.335,3.611,3.86,4.085,4.946,5.522,5.921,6.199,6.522,6.671,6.731,6.739,6.717,6.675,6.621,6.271,5.893,5.534,5.205,4.642,4.185,3.81,3.497,3.232,3.006,2.81};
    1026 AddData(E,Z_11,dens[j]*factor);
    1027 G4double Z_12[53]={1.8,2.011,2.41,2.788,3.146,3.477,3.777,4.049,4.297,5.258,5.915,6.381,6.713,7.118,7.322,7.42,7.454,7.451,7.423,7.379,7.047,6.665,6.292,5.945,5.34,4.842,4.428,4.079,3.782,3.527,3.304};
    1028 AddData(E,Z_12,dens[j]*factor);
    1029 G4double Z_13[53]={1.872,2.089,2.498,2.885,3.256,3.604,3.925,4.219,4.487,5.546,6.283,6.817,7.206,7.697,7.96,8.099,8.163,8.181,8.17,8.138,7.835,7.455,7.072,6.71,6.067,5.53,5.078,4.695,4.366,4.08,3.83};
    1030 AddData(E,Z_13,dens[j]*factor);
    1031 G4double Z_14[53]={1.942,2.166,2.583,2.978,3.358,3.72,4.059,4.371,4.66,5.81,6.625,7.226,7.673,8.253,8.577,8.76,8.856,8.897,8.904,8.885,8.619,8.245,7.856,7.481,6.805,6.232,5.746,5.329,4.97,4.656,4.38};
    1032 AddData(E,Z_14,dens[j]*factor);
    1033 G4double Z_15[53]={2.007,2.237,2.663,3.065,3.452,3.825,4.178,4.508,4.814,6.052,6.945,7.613,8.119,8.792,9.184,9.417,9.55,9.62,9.648,9.648,9.429,9.07,8.681,8.297,7.592,6.984,6.463,6.013,5.622,5.278,4.975};
    1034 AddData(E,Z_15,dens[j]*factor);
    1035 G4double Z_16[53]={2.071,2.309,2.745,3.153,3.546,3.928,4.293,4.638,4.961,6.283,7.25,7.983,8.548,9.316,9.78,10.06,10.24,10.34,10.39,10.41,10.24,9.904,9.518,9.129,8.4,7.761,7.207,6.725,6.303,5.93,5.599};
    1036 AddData(E,Z_16,dens[j]*factor);
    1037 G4double Z_17[53]={2.134,2.38,2.826,3.24,3.638,4.025,4.401,4.758,5.095,6.494,7.533,8.331,8.953,9.818,10.35,10.69,10.91,11.04,11.11,11.15,11.05,10.73,10.35,9.958,9.209,8.542,7.959,7.447,6.996,6.597,6.24};
    1038 AddData(E,Z_17,dens[j]*factor);
    1039 G4double Z_18[53]={2.199,2.452,2.911,3.332,3.735,4.128,4.511,4.879,5.229,6.701,7.809,8.67,9.348,10.31,10.92,11.31,11.56,11.73,11.83,11.89,11.83,11.54,11.17,10.77,10,9.31,8.699,8.16,7.683,7.258,6.877};
    1040 AddData(E,Z_18,dens[j]*factor);
    1041 j++;
    1042 
    1043 G4double XX_3[53]={2.663,2.892,3.261,3.535,3.734,3.875,3.973,4.038,4.08,4.092,3.977,3.829,3.678,3.391,3.138,2.917,2.724,2.553,2.403,2.269,1.774,1.459,1.241,1.082,0.8659,0.7257,0.6271,0.5539,0.4973,0.452,0.415};
    1044 AddData(E,XX_3,dens[j]*factor);
    1045 G4double XX_4[53]={3.295,3.605,4.129,4.549,4.881,5.138,5.334,5.481,5.59,5.801,5.764,5.645,5.498,5.186,4.887,4.611,4.361,4.135,3.929,3.741,3.016,2.524,2.17,1.905,1.535,1.289,1.115,0.9851,0.8841,0.8034,0.7374};
    1046 AddData(E,XX_4,dens[j]*factor);
    1047 G4double XX_5[53]={3.789,4.174,4.84,5.395,5.855,6.232,6.535,6.778,6.969,7.445,7.532,7.474,7.356,7.057,6.741,6.436,6.148,5.88,5.632,5.402,4.472,3.807,3.311,2.93,2.382,2.011,1.743,1.541,1.383,1.257,1.153};
    1048 AddData(E,XX_5,dens[j]*factor);
    1049 G4double XX_6[53]={4.173,4.625,5.421,6.101,6.682,7.175,7.589,7.932,8.214,9.005,9.254,9.283,9.213,8.956,8.645,8.328,8.019,7.723,7.444,7.181,6.08,5.257,4.624,4.125,3.39,2.878,2.503,2.217,1.993,1.812,1.663};
    1050 AddData(E,XX_6,dens[j]*factor);
    1051 G4double XX_7[53]={4.521,5.025,5.925,6.708,7.394,7.99,8.506,8.946,9.32,10.46,10.9,11.04,11.04,10.86,10.57,10.26,9.946,9.635,9.336,9.049,7.81,6.846,6.084,5.47,4.544,3.884,3.392,3.012,2.711,2.467,2.266};
    1052 AddData(E,XX_7,dens[j]*factor);
    1053 G4double XX_8[53]={4.828,5.377,6.371,7.249,8.029,8.721,9.332,9.866,10.33,11.83,12.49,12.77,12.86,12.77,12.53,12.24,11.92,11.61,11.3,11,9.647,8.56,7.678,6.953,5.837,5.023,4.407,3.926,3.54,3.226,2.964};
    1054 AddData(E,XX_8,dens[j]*factor);
    1055 G4double XX_9[53]={5.063,5.651,6.724,7.682,8.543,9.318,10.01,10.63,11.18,13.03,13.93,14.35,14.53,14.54,14.36,14.09,13.79,13.47,13.16,12.85,11.42,10.24,9.259,8.442,7.162,6.211,5.48,4.902,4.435,4.051,3.729};
    1056 AddData(E,XX_9,dens[j]*factor);
    1057 G4double XX_10[53]={5.278,5.897,7.037,8.065,8.998,9.846,10.62,11.31,11.94,14.13,15.28,15.86,16.14,16.28,16.16,15.92,15.64,15.33,15.02,14.7,13.21,11.95,10.88,9.983,8.55,7.468,6.625,5.951,5.402,4.947,4.564};
    1058 AddData(E,XX_10,dens[j]*factor);
    1059 G4double XX_11[53]={5.468,6.118,7.326,8.428,9.437,10.36,11.22,12,12.71,15.31,16.77,17.58,18.03,18.38,18.38,18.23,18.01,17.74,17.45,17.15,15.65,14.31,13.14,12.13,10.48,9.207,8.196,7.378,6.704,6.141,5.665};
    1060 AddData(E,XX_11,dens[j]*factor);
    1061 G4double XX_12[53]={5.677,6.333,7.561,8.693,9.738,10.7,11.6,12.42,13.18,16.06,17.74,18.7,19.24,19.7,19.76,19.63,19.41,19.13,18.84,18.53,16.98,15.58,14.37,13.32,11.6,10.26,9.187,8.317,7.596,6.99,6.474};
    1062 AddData(E,XX_12,dens[j]*factor);
    1063 G4double XX_13[53]={5.878,6.551,7.813,8.982,10.07,11.08,12.02,12.9,13.72,16.89,18.83,19.98,20.67,21.32,21.48,21.42,21.24,21,20.72,20.42,18.86,17.42,16.15,15.03,13.18,11.73,10.55,9.59,8.785,8.104,7.521};
    1064 AddData(E,XX_13,dens[j]*factor);
    1065 G4double XX_14[53]={6.078,6.766,8.057,9.258,10.38,11.43,12.42,13.34,14.2,17.63,19.83,21.18,22.01,22.84,23.12,23.13,23,22.79,22.53,22.24,20.7,19.22,17.9,16.72,14.77,13.2,11.93,10.88,9.998,9.247,8.6};
    1066 AddData(E,XX_14,dens[j]*factor);
    1067 G4double XX_15[53]={6.312,7.015,8.334,9.566,10.72,11.81,12.83,13.79,14.7,18.38,20.82,22.38,23.37,24.41,24.82,24.93,24.86,24.69,24.47,24.21,22.7,21.2,19.83,18.61,16.53,14.86,13.48,12.33,11.36,10.52,9.805};
    1068 AddData(E,XX_15,dens[j]*factor);
    1069 G4double XX_16[53]={6.503,7.226,8.58,9.845,11.04,12.16,13.22,14.22,15.16,19.09,21.78,23.54,24.69,25.96,26.52,26.72,26.72,26.6,26.41,26.18,24.73,23.22,21.82,20.55,18.37,16.58,15.1,13.85,12.79,11.88,11.08};
    1070 AddData(E,XX_16,dens[j]*factor);
    1071 G4double XX_17[53]={6.746,7.481,8.856,10.14,11.36,12.51,13.6,14.63,15.61,19.74,22.65,24.61,25.92,27.41,28.11,28.4,28.47,28.4,28.25,28.05,26.66,25.15,23.72,22.41,20.13,18.25,16.67,15.34,14.2,13.22,12.36};
    1072 AddData(E,XX_17,dens[j]*factor);
    1073 G4double XX_18[53]={6.88,7.63,9.027,10.33,11.57,12.74,13.85,14.91,15.91,20.22,23.34,25.5,26.96,28.67,29.51,29.89,30.03,30.01,29.89,29.71,28.38,26.87,25.42,24.07,21.73,19.77,18.12,16.72,15.52,14.47,13.56};
    1074 AddData(E,XX_18,dens[j]*factor);
    1075 j++;
    1076 
    1077 G4double YY_3[53]={2.7,2.933,3.311,3.589,3.789,3.93,4.026,4.09,4.129,4.134,4.014,3.864,3.711,3.421,3.166,2.942,2.747,2.575,2.423,2.288,1.788,1.47,1.25,1.09,0.8721,0.7307,0.6314,0.5576,0.5005,0.4549,0.4176};
    1078 AddData(E,YY_3,dens[j]*factor);
    1079 G4double YY_4[53]={3.338,3.654,4.189,4.618,4.955,5.214,5.409,5.555,5.662,5.863,5.82,5.698,5.548,5.232,4.93,4.652,4.4,4.17,3.962,3.773,3.04,2.544,2.187,1.919,1.546,1.298,1.123,0.9916,0.8899,0.8086,0.7421};
    1080 AddData(E,YY_4,dens[j]*factor);
    1081 G4double YY_5[53]={3.839,4.23,4.909,5.475,5.944,6.325,6.631,6.874,7.064,7.528,7.607,7.545,7.424,7.121,6.802,6.493,6.203,5.932,5.681,5.449,4.509,3.837,3.337,2.952,2.399,2.025,1.754,1.551,1.392,1.265,1.16};
    1082 AddData(E,YY_5,dens[j]*factor);
    1083 G4double YY_6[53]={4.229,4.687,5.496,6.189,6.782,7.283,7.702,8.048,8.33,9.11,9.349,9.373,9.3,9.037,8.723,8.403,8.09,7.792,7.51,7.244,6.131,5.3,4.66,4.156,3.414,2.898,2.52,2.232,2.006,1.823,1.673};
    1084 AddData(E,YY_6,dens[j]*factor);
    1085 G4double YY_7[53]={4.586,5.096,6.008,6.805,7.503,8.11,8.634,9.08,9.455,10.58,11.02,11.15,11.15,10.96,10.67,10.36,10.04,9.722,9.419,9.129,7.876,6.902,6.131,5.511,4.576,3.911,3.415,3.032,2.729,2.483,2.28};
    1086 AddData(E,YY_7,dens[j]*factor);
    1087 G4double YY_8[53]={4.9,5.456,6.463,7.354,8.146,8.851,9.473,10.01,10.48,11.98,12.63,12.9,12.98,12.89,12.64,12.35,12.03,11.71,11.4,11.09,9.73,8.63,7.739,7.006,5.879,5.058,4.436,3.951,3.563,3.246,2.983};
    1088 AddData(E,YY_8,dens[j]*factor);
    1089 G4double YY_9[53]={5.141,5.736,6.822,7.793,8.667,9.455,10.16,10.79,11.35,13.2,14.08,14.5,14.67,14.68,14.49,14.22,13.91,13.59,13.27,12.96,11.52,10.32,9.33,8.504,7.212,6.253,5.515,4.933,4.463,4.075,3.752};
    1090 AddData(E,YY_9,dens[j]*factor);
    1091 G4double YY_10[53]={5.361,5.988,7.141,8.182,9.127,9.988,10.77,11.48,12.11,14.32,15.45,16.02,16.3,16.43,16.3,16.06,15.77,15.46,15.14,14.82,13.32,12.04,10.97,10.06,8.609,7.517,6.667,5.988,5.435,4.976,4.591};
    1092 AddData(E,YY_10,dens[j]*factor);
    1093 G4double YY_11[53]={5.555,6.214,7.436,8.551,9.573,10.51,11.38,12.17,12.89,15.53,16.98,17.77,18.21,18.55,18.56,18.4,18.17,17.9,17.61,17.31,15.8,14.44,13.25,12.23,10.57,9.277,8.256,7.43,6.75,6.182,5.702};
    1094 AddData(E,YY_11,dens[j]*factor);
    1095 G4double YY_12[53]={5.769,6.434,7.677,8.821,9.878,10.86,11.76,12.6,13.37,16.28,17.95,18.9,19.44,19.88,19.93,19.8,19.57,19.3,19,18.68,17.12,15.7,14.48,13.41,11.68,10.32,9.246,8.369,7.642,7.032,6.512};
    1096 AddData(E,YY_12,dens[j]*factor);
    1097 G4double YY_13[53]={5.974,6.657,7.934,9.117,10.22,11.24,12.19,13.08,13.91,17.12,19.06,20.2,20.88,21.51,21.67,21.6,21.42,21.17,20.89,20.59,19.02,17.56,16.27,15.14,13.28,11.81,10.62,9.65,8.838,8.152,7.565};
    1098 AddData(E,YY_13,dens[j]*factor);
    1099 G4double YY_14[53]={6.18,6.877,8.185,9.4,10.54,11.6,12.59,13.52,14.4,17.88,20.07,21.41,22.23,23.05,23.32,23.33,23.19,22.98,22.72,22.43,20.86,19.37,18.03,16.85,14.87,13.29,12.01,10.95,10.06,9.301,8.65};
    1100 AddData(E,YY_14,dens[j]*factor);
    1101 G4double YY_15[53]={6.421,7.134,8.471,9.718,10.89,11.98,13.02,13.99,14.9,18.64,21.09,22.63,23.61,24.64,25.04,25.14,25.07,24.9,24.67,24.41,22.88,21.37,19.99,18.75,16.65,14.95,13.56,12.4,11.42,10.59,9.861};
    1102 AddData(E,YY_15,dens[j]*factor);
    1103 G4double YY_16[53]={6.617,7.35,8.723,10,11.21,12.34,13.41,14.42,15.38,19.36,22.06,23.81,24.95,26.21,26.75,26.95,26.95,26.83,26.64,26.4,24.93,23.41,21.99,20.7,18.5,16.69,15.19,13.94,12.87,11.95,11.15};
    1104 AddData(E,YY_16,dens[j]*factor);
    1105 G4double YY_17[53]={6.866,7.613,9.008,10.31,11.54,12.7,13.8,14.84,15.83,20.02,22.95,24.9,26.2,27.67,28.36,28.65,28.71,28.64,28.49,28.28,26.87,25.35,23.9,22.57,20.27,18.37,16.78,15.44,14.29,13.29,12.43};
    1106 AddData(E,YY_17,dens[j]*factor);
    1107 G4double YY_18[53]={7.003,7.765,9.183,10.51,11.75,12.94,14.06,15.12,16.14,20.5,23.65,25.8,27.25,28.94,29.76,30.15,30.28,30.26,30.14,29.95,28.6,27.08,25.61,24.25,21.87,19.9,18.23,16.82,15.61,14.56,13.64};
    1108 AddData(E,YY_18,dens[j]*factor);
    1109 j++;
    1110 
    1111 G4double ZZ_3[53]={2.626,2.84,3.191,3.461,3.665,3.817,3.927,4.004,4.056,4.102,3.998,3.853,3.702,3.413,3.158,2.934,2.739,2.567,2.415,2.28,1.782,1.465,1.247,1.087,0.8706,0.7299,0.631,0.5575,0.5005,0.455,0.4178};
    1112 AddData(E,ZZ_3,dens[j]*factor);
    1113 G4double ZZ_4[53]={3.272,3.565,4.061,4.463,4.79,5.052,5.258,5.419,5.542,5.803,5.787,5.675,5.529,5.215,4.912,4.634,4.381,4.152,3.944,3.756,3.026,2.533,2.179,1.913,1.542,1.296,1.122,0.9911,0.8898,0.8087,0.7423};
    1114 AddData(E,ZZ_4,dens[j]*factor);
    1115 G4double ZZ_5[53]={3.773,4.142,4.776,5.304,5.749,6.122,6.431,6.684,6.89,7.432,7.551,7.505,7.391,7.091,6.772,6.463,6.172,5.901,5.65,5.418,4.484,3.817,3.322,2.94,2.392,2.02,1.752,1.549,1.391,1.265,1.161};
    1116 AddData(E,ZZ_5,dens[j]*factor);
    1117 G4double ZZ_6[53]={4.154,4.593,5.358,6.009,6.568,7.049,7.46,7.809,8.103,8.968,9.262,9.311,9.25,8.994,8.68,8.358,8.045,7.747,7.465,7.199,6.093,5.269,4.636,4.137,3.403,2.891,2.516,2.23,2.004,1.823,1.673};
    1118 AddData(E,ZZ_6,dens[j]*factor);
    1119 G4double ZZ_7[53]={4.49,4.984,5.86,6.616,7.276,7.854,8.36,8.799,9.179,10.39,10.89,11.07,11.08,10.9,10.61,10.3,9.974,9.66,9.357,9.068,7.823,6.859,6.097,5.484,4.56,3.9,3.408,3.029,2.727,2.482,2.28};
    1120 AddData(E,ZZ_7,dens[j]*factor);
    1121 G4double ZZ_8[53]={4.778,5.321,6.298,7.152,7.907,8.578,9.173,9.7,10.16,11.73,12.46,12.78,12.89,12.81,12.57,12.27,11.95,11.63,11.32,11.01,9.659,8.571,7.691,6.967,5.854,5.042,4.427,3.945,3.56,3.245,2.983};
    1122 AddData(E,ZZ_8,dens[j]*factor);
    1123 G4double ZZ_9[53]={4.992,5.575,6.637,7.578,8.418,9.171,9.847,10.45,11,12.9,13.88,14.35,14.56,14.59,14.4,14.13,13.83,13.51,13.19,12.87,11.44,10.26,9.279,8.463,7.187,6.237,5.506,4.928,4.461,4.076,3.753};
    1124 AddData(E,ZZ_9,dens[j]*factor);
    1125 G4double ZZ_10[53]={5.182,5.797,6.931,7.948,8.865,9.693,10.44,11.12,11.74,13.98,15.21,15.85,16.17,16.33,16.21,15.98,15.69,15.38,15.06,14.74,13.24,11.98,10.91,10.01,8.584,7.503,6.66,5.986,5.436,4.979,4.595};
    1126 AddData(E,ZZ_10,dens[j]*factor);
    1127 G4double ZZ_11[53]={5.352,5.998,7.203,8.3,9.298,10.21,11.04,11.81,12.5,15.13,16.68,17.56,18.04,18.43,18.44,18.29,18.05,17.78,17.48,17.18,15.67,14.32,13.15,12.14,10.5,9.226,8.218,7.401,6.728,6.166,5.69};
    1128 AddData(E,ZZ_11,dens[j]*factor);
    1129 G4double ZZ_12[53]={5.542,6.193,7.42,8.551,9.59,10.54,11.42,12.23,12.98,15.85,17.62,18.66,19.26,19.76,19.83,19.7,19.47,19.2,18.89,18.58,17.02,15.62,14.41,13.36,11.64,10.3,9.233,8.362,7.64,7.033,6.516};
    1130 AddData(E,ZZ_12,dens[j]*factor);
    1131 G4double ZZ_13[53]={5.724,6.39,7.649,8.82,9.905,10.91,11.84,12.71,13.51,16.66,18.69,19.93,20.68,21.38,21.56,21.5,21.32,21.07,20.79,20.48,18.91,17.47,16.19,15.08,13.24,11.78,10.61,9.641,8.835,8.153,7.569};
    1132 AddData(E,ZZ_13,dens[j]*factor);
    1133 G4double ZZ_14[53]={5.905,6.583,7.868,9.073,10.2,11.25,12.23,13.14,13.99,17.4,19.66,21.1,22.01,22.91,23.21,23.22,23.09,22.87,22.61,22.32,20.76,19.28,17.95,16.78,14.83,13.26,11.99,10.94,10.06,9.304,8.656};
    1134 AddData(E,ZZ_14,dens[j]*factor);
    1135 G4double ZZ_15[53]={6.12,6.81,8.118,9.352,10.51,11.61,12.63,13.58,14.48,18.13,20.63,22.28,23.34,24.47,24.91,25.02,24.95,24.78,24.55,24.28,22.76,21.26,19.89,18.67,16.59,14.92,13.54,12.39,11.42,10.59,9.867};
    1136 AddData(E,ZZ_15,dens[j]*factor);
    1137 G4double ZZ_16[53]={6.294,7,8.338,9.604,10.8,11.94,13,14,14.94,18.82,21.55,23.41,24.65,26.01,26.6,26.81,26.81,26.69,26.5,26.26,24.79,23.28,21.88,20.61,18.43,16.64,15.16,13.92,12.86,11.95,11.15};
    1138 AddData(E,ZZ_16,dens[j]*factor);
    1139 G4double ZZ_17[53]={6.522,7.237,8.59,9.875,11.1,12.26,13.36,14.39,15.37,19.45,22.4,24.45,25.86,27.46,28.19,28.5,28.57,28.5,28.34,28.13,26.72,25.21,23.78,22.47,20.2,18.32,16.75,15.42,14.28,13.3,12.44};
    1140 AddData(E,ZZ_17,dens[j]*factor);
    1141 G4double ZZ_18[53]={6.642,7.369,8.739,10.04,11.28,12.47,13.59,14.66,15.66,19.93,23.08,25.32,26.89,28.72,29.6,30.01,30.15,30.13,30,29.82,28.46,26.94,25.49,24.15,21.81,19.86,18.22,16.82,15.61,14.57,13.65};
    1142 AddData(E,ZZ_18,dens[j]*factor);
    1143 j++;
    1144 
    1145 G4double Z3_3[53]={2.388,2.599,2.949,3.221,3.429,3.584,3.697,3.778,3.833,3.892,3.802,3.672,3.534,3.269,3.032,2.824,2.64,2.478,2.334,2.206,1.73,1.426,1.215,1.06,0.8501,0.7134,0.6172,0.5456,0.4901,0.4457,0.4094};
    1146 AddData(E,Z3_3,dens[j]*factor);
    1147 G4double Z3_4[53]={2.938,3.224,3.715,4.119,4.451,4.718,4.929,5.095,5.222,5.5,5.5,5.404,5.275,4.99,4.712,4.455,4.219,4.005,3.809,3.631,2.937,2.464,2.122,1.866,1.506,1.267,1.097,0.97,0.8712,0.7922,0.7274};
    1148 AddData(E,Z3_4,dens[j]*factor);
    1149 G4double Z3_5[53]={3.35,3.707,4.329,4.856,5.304,5.683,5.999,6.26,6.472,7.035,7.172,7.144,7.048,6.781,6.491,6.208,5.939,5.687,5.453,5.235,4.35,3.712,3.235,2.867,2.336,1.975,1.714,1.517,1.363,1.239,1.137};
    1150 AddData(E,Z3_5,dens[j]*factor);
    1151 G4double Z3_6[53]={3.652,4.071,4.816,5.459,6.019,6.505,6.924,7.281,7.583,8.477,8.792,8.86,8.817,8.597,8.316,8.024,7.737,7.461,7.199,6.951,5.908,5.122,4.515,4.034,3.323,2.826,2.461,2.183,1.963,1.786,1.64};
    1152 AddData(E,Z3_6,dens[j]*factor);
    1153 G4double Z3_7[53]={3.922,4.388,5.229,5.97,6.625,7.207,7.719,8.168,8.557,9.804,10.33,10.52,10.56,10.41,10.16,9.879,9.587,9.299,9.019,8.751,7.582,6.665,5.936,5.347,4.453,3.813,3.335,2.965,2.671,2.432,2.235};
    1154 AddData(E,Z3_7,dens[j]*factor);
    1155 G4double Z3_8[53]={4.155,4.659,5.587,6.416,7.16,7.83,8.43,8.965,9.439,11.05,11.81,12.15,12.28,12.24,12.03,11.77,11.49,11.19,10.91,10.62,9.358,8.327,7.487,6.792,5.717,4.93,4.331,3.863,3.487,3.18,2.924};
    1156 AddData(E,Z3_8,dens[j]*factor);
    1157 G4double Z3_9[53]={4.323,4.856,5.853,6.759,7.58,8.326,9.004,9.617,10.17,12.12,13.13,13.63,13.86,13.93,13.78,13.55,13.28,12.99,12.7,12.41,11.08,9.959,9.028,8.246,7.016,6.097,5.387,4.825,4.369,3.994,3.679};
    1158 AddData(E,Z3_9,dens[j]*factor);
    1159 G4double Z3_10[53]={4.476,5.033,6.084,7.054,7.943,8.758,9.505,10.19,10.81,13.1,14.37,15.04,15.38,15.59,15.51,15.31,15.06,14.78,14.49,14.2,12.81,11.62,10.61,9.753,8.378,7.332,6.514,5.859,5.324,4.879,4.504};
    1160 AddData(E,Z3_10,dens[j]*factor);
    1161 G4double Z3_11[53]={4.616,5.195,6.301,7.337,8.298,9.189,10.01,10.78,11.48,14.16,15.75,16.66,17.17,17.6,17.65,17.54,17.34,17.1,16.84,16.56,15.17,13.91,12.8,11.83,10.25,9.023,8.044,7.25,6.594,6.045,5.58};
    1162 AddData(E,Z3_11,dens[j]*factor);
    1163 G4double Z3_12[53]={4.777,5.356,6.47,7.526,8.518,9.443,10.31,11.11,11.86,14.79,16.6,17.68,18.3,18.85,18.96,18.87,18.68,18.44,18.17,17.89,16.45,15.15,14,13,11.35,10.06,9.029,8.184,7.482,6.891,6.387};
    1164 AddData(E,Z3_12,dens[j]*factor);
    1165 G4double Z3_13[53]={4.935,5.524,6.657,7.74,8.767,9.736,10.65,11.5,12.3,15.5,17.58,18.86,19.64,20.38,20.6,20.59,20.44,20.23,19.98,19.71,18.28,16.93,15.73,14.67,12.91,11.51,10.37,9.435,8.652,7.988,7.419};
    1166 AddData(E,Z3_13,dens[j]*factor);
    1167 G4double Z3_14[53]={5.095,5.692,6.842,7.946,9.003,10.01,10.95,11.85,12.69,16.14,18.46,19.95,20.88,21.83,22.17,22.23,22.14,21.96,21.73,21.47,20.05,18.68,17.43,16.32,14.45,12.95,11.72,10.7,9.846,9.114,8.483};
    1168 AddData(E,Z3_14,dens[j]*factor);
    1169 G4double Z3_15[53]={5.29,5.897,7.06,8.183,9.265,10.3,11.28,12.22,13.1,16.78,19.34,21.03,22.13,23.31,23.8,23.95,23.92,23.79,23.59,23.36,21.98,20.59,19.31,18.15,16.18,14.57,13.24,12.12,11.18,10.37,9.67};
    1170 AddData(E,Z3_15,dens[j]*factor);
    1171 G4double Z3_16[53]={4.155,4.659,5.587,6.416,7.16,7.83,8.43,8.965,9.439,11.05,11.81,12.15,12.28,12.24,12.03,11.77,11.49,11.19,10.91,10.62,9.358,8.327,7.487,6.792,5.717,4.93,4.331,3.863,3.487,3.18,2.924};
    1172 AddData(E,Z3_16,dens[j]*factor);
    1173 G4double Z3_17[53]={5.652,6.28,7.478,8.633,9.757,10.84,11.89,12.88,13.84,17.92,20.93,23.04,24.48,26.13,26.92,27.27,27.38,27.35,27.23,27.05,25.8,24.41,23.08,21.84,19.69,17.89,16.37,15.09,13.98,13.02,12.19};
    1174 AddData(E,Z3_17,dens[j]*factor);
    1175 G4double Z3_18[53]={5.752,6.391,7.603,8.767,9.901,11,12.07,13.09,14.06,18.31,21.52,23.82,25.42,27.31,28.25,28.7,28.88,28.9,28.81,28.66,27.47,26.08,24.73,23.47,21.25,19.38,17.8,16.45,15.28,14.27,13.38};
    1176 AddData(E,Z3_18,dens[j]*factor);
    1177 j++;
    1178 
    1179 
     2136 else if( ionZ == 4) {
     2137   G4double ZZ_4[31]={2.872,3.1439,3.6102,3.9967,4.3169,4.5788,4.7897,4.9568,5.0872,5.387,5.4028,5.3185,5.1971,4.9243,4.6549,4.4036,4.1732,3.9629,3.771,3.5957,2.9117,2.4439,2.1062,1.8518,1.4956,1.2587,1.0901,0.96393,0.86589,0.78742,0.72313};
     2138   physicsVector = CreatePhysicsVector(E,ZZ_4,factor);
     2139 }
     2140 else if( ionZ == 5) {
     2141   G4double ZZ_5[31]={3.2922,3.6315,4.2226,4.7242,5.1543,5.5219,5.8323,6.0911,6.3043,6.8888,7.0451,7.0309,6.9445,6.6925,6.4129,6.1372,5.8747,5.6283,5.3983,5.1841,4.3121,3.6826,3.2109,2.8459,2.3203,1.9619,1.7028,1.5072,1.3543,1.2315,1.1307};
     2142   physicsVector = CreatePhysicsVector(E,ZZ_5,factor);
     2143 }
     2144 else if( ionZ == 6) {
     2145   G4double ZZ_6[31]={3.6037,4.0035,4.7125,5.3248,5.8601,6.3287,6.7363,7.0875,7.3872,8.2986,8.635,8.7189,8.6879,8.485,8.2162,7.9331,7.6534,7.3839,7.1272,6.884,5.8573,5.0814,4.4808,4.0044,3.3005,2.808,2.4458,2.1691,1.9511,1.7751,1.6302};
     2146   physicsVector = CreatePhysicsVector(E,ZZ_6,factor);
     2147 }
     2148 else if( ionZ == 7) {
     2149   G4double ZZ_7[31]={3.8821,4.3278,5.1314,5.8371,6.4632,7.021,7.5168,7.9545,8.3378,9.5943,10.145,10.356,10.402,10.278,10.041,9.7677,9.4845,9.2035,8.9301,8.6668,7.5173,6.6126,5.8919,5.308,4.4226,3.7883,3.3138,2.9467,2.655,2.4179,2.2217};
     2150   physicsVector = CreatePhysicsVector(E,ZZ_7,factor);
     2151 }
     2152 else if( ionZ == 8) {
     2153   G4double ZZ_8[31]={4.1215,4.6063,5.4945,6.2868,6.9978,7.6391,8.2175,8.7372,9.201,10.808,11.596,11.955,12.096,12.077,11.89,11.639,11.364,11.081,10.799,10.523,9.2787,8.2615,7.4307,6.7431,5.6787,4.8981,4.3045,3.8393,3.4663,3.161,2.9069};
     2154   physicsVector = CreatePhysicsVector(E,ZZ_8,factor);
     2155 }
     2156else if( ionZ == 9) {
     2157  G4double ZZ_9[31]={4.2951,4.8107,5.7678,6.6342,7.4196,8.1343,8.7858,9.3786,9.9152,11.857,12.89,13.408,13.652,13.749,13.62,13.398,13.136,12.857,12.573,12.291,10.982,9.88,8.9601,8.1871,6.9687,6.0574,5.3535,4.7954,4.3434,3.9704,3.658};
     2158  physicsVector = CreatePhysicsVector(E,ZZ_9,factor);
    11802159}
     2160else if( ionZ == 10) {
     2161  G4double ZZ_10[31]={4.4513,4.991,6.004,6.9338,7.7852,8.5662,9.284,9.9435,10.547,12.813,14.099,14.791,15.151,15.382,15.321,15.136,14.895,14.626,14.345,14.061,12.705,11.53,10.532,9.6823,8.3208,7.2846,6.4735,5.8234,5.2919,4.8502,4.4779};
     2162  physicsVector = CreatePhysicsVector(E,ZZ_10,factor);
     2163}
     2164 else if( ionZ == 11) {
     2165   G4double ZZ_11[31]={4.5914,5.1553,6.2244,7.2203,8.1435,8.9982,9.7906,10.526,11.206,13.848,15.453,16.384,16.916,17.369,17.442,17.344,17.16,16.93,16.675,16.407,15.045,13.799,12.706,11.753,10.187,8.9672,7.9956,7.2072,6.5562,6.0112,5.5493};
     2166   physicsVector = CreatePhysicsVector(E,ZZ_11,factor);
     2167 }
     2168 else if( ionZ == 12) {
     2169   G4double ZZ_12[31]={4.7537,5.3178,6.3962,7.4137,8.3663,9.2554,10.085,10.859,11.581,14.455,16.279,17.373,18.018,18.598,18.727,18.654,18.479,18.25,17.99,17.716,16.313,15.026,13.895,12.907,11.277,9.9981,8.9727,8.1344,7.4376,6.8507,6.35};
     2170   physicsVector = CreatePhysicsVector(E,ZZ_12,factor);
     2171 }
     2172 else if( ionZ == 13) {
     2173   G4double ZZ_13[31]={4.911,5.4856,6.5852,7.6302,8.6193,9.551,10.426,11.248,12.018,15.152,17.23,18.531,19.33,20.11,20.354,20.352,20.224,20.024,19.785,19.521,18.12,16.795,15.611,14.565,12.819,11.431,10.305,9.3772,8.6003,7.9413,7.3761};
     2174   physicsVector = CreatePhysicsVector(E,ZZ_13,factor);
     2175 }
     2176 else if( ionZ == 14) {
     2177   G4double ZZ_14[31]={5.0697,5.6529,6.77,7.8376,8.8564,9.8229,10.736,11.597,12.409,15.773,18.09,19.594,20.549,21.535,21.9,21.975,21.896,21.73,21.513,21.265,19.878,18.525,17.298,16.202,14.354,12.867,11.651,10.64,9.7876,9.0607,8.4341};
     2178   physicsVector = CreatePhysicsVector(E,ZZ_14,factor);
     2179 }
     2180 else if( ionZ == 15) {
     2181   G4double ZZ_15[31]={5.2616,5.8538,6.9867,8.074,9.1192,10.117,11.065,11.964,12.815,16.396,18.945,20.657,21.779,22.993,23.502,23.672,23.659,23.54,23.356,23.132,21.792,20.425,19.162,18.02,16.066,14.472,13.155,12.051,11.114,10.311,9.6149};
     2182   physicsVector = CreatePhysicsVector(E,ZZ_15,factor);
     2183 }
     2184 else if( ionZ == 16) {
     2185   G4double ZZ_16[31]={5.4129,6.0193,7.1761,8.2871,9.36,10.39,11.373,12.308,13.196,16.986,19.762,21.683,22.976,24.431,25.091,25.363,25.421,25.354,25.208,25.013,23.734,22.366,21.074,19.891,17.84,16.146,14.731,13.536,12.516,11.636,10.869};
     2186   physicsVector = CreatePhysicsVector(E,ZZ_16,factor);
     2187 }
     2188 else if( ionZ == 17) {
     2189   G4double ZZ_17[31]={5.6171,6.2307,7.3984,8.5209,9.6097,10.661,11.669,12.632,13.551,17.518,20.497,22.615,24.076,25.769,26.58,26.953,27.082,27.066,26.958,26.791,25.579,24.214,22.901,21.685,19.553,17.771,16.271,14.996,13.9,12.949,12.118};
     2190   physicsVector = CreatePhysicsVector(E,ZZ_17,factor);
     2191 }
     2192 else if( ionZ == 18) {
     2193   G4double ZZ_18[31]={5.7158,6.3394,7.5204,8.6525,9.7528,10.82,11.849,12.836,13.78,17.904,21.07,23.375,24.999,26.928,27.889,28.361,28.559,28.592,28.521,28.381,27.228,25.869,24.541,23.299,21.103,19.255,17.686,16.346,15.19,14.183,13.3};
     2194   physicsVector = CreatePhysicsVector(E,ZZ_18,factor);
     2195 }
     2196  }
     2197 
     2198  else if( matName == namesMat[30] ) {
     2199    if( ionZ == 3) {
     2200   G4double Z3_3[31]={2.5756,2.7949,3.1551,3.4304,3.6374,3.7896,3.899,3.9751,4.0258,4.0654,3.9592,3.8156,3.6658,3.3814,3.1293,2.9089,2.716,2.5462,2.3961,2.2626,1.7699,1.456,1.2393,1.0811,0.86577,0.72598,0.6277,0.55463,0.49803,0.45281,0.41577};
     2201   physicsVector = CreatePhysicsVector(E,Z3_3,factor);
     2202 }
     2203 else if( ionZ == 4) {
     2204   G4double Z3_4[31]={3.1808,3.4804,3.989,4.4026,4.7367,5.0026,5.2109,5.3716,5.4936,5.7485,5.7287,5.6167,5.4725,5.1634,4.8658,4.5919,4.343,4.1174,3.9126,3.7263,3.0052,2.5166,2.1655,1.9019,1.5337,1.2895,1.1158,0.98607,0.88532,0.80474,0.73875};
     2205   physicsVector = CreatePhysicsVector(E,Z3_4,factor);
     2206 }
     2207 else if( ionZ == 5) {
     2208   G4double Z3_5[31]={3.6406,4.016,4.6644,5.207,5.6635,6.0445,6.3589,6.6152,6.8219,7.3586,7.4733,7.4265,7.3134,7.0185,6.705,6.4016,6.1159,5.8498,5.603,5.3742,4.4516,3.7924,3.3012,2.9226,2.379,2.0095,1.7428,1.5416,1.3845,1.2585,1.1551};
     2209   physicsVector = CreatePhysicsVector(E,Z3_5,factor);
     2210 }
     2211 else if( ionZ == 6) {
     2212   G4double Z3_6[31]={3.9822,4.4258,5.206,5.8723,6.4462,6.9391,7.359,7.7136,8.0105,8.8754,9.165,9.212,9.1507,8.8994,8.592,8.2768,7.9698,7.6768,7.3997,7.1387,6.0479,5.2336,4.6072,4.1123,3.3838,2.8758,2.5029,2.2184,1.9945,1.8139,1.6652};
     2213   physicsVector = CreatePhysicsVector(E,Z3_6,factor);
     2214 }
     2215 else if( ionZ == 7) {
     2216   G4double Z3_7[31]={4.2846,4.7807,5.6683,6.4396,7.1157,7.7088,8.2263,8.6746,9.0603,10.276,10.776,10.946,10.958,10.781,10.502,10.192,9.8785,9.5706,9.2737,8.9896,7.7641,6.8117,6.0585,5.4511,4.534,3.8794,3.3908,3.0134,2.7137,2.4704,2.2692};
     2217   physicsVector = CreatePhysicsVector(E,Z3_7,factor);
     2218 }
     2219 else if( ionZ == 8) {
     2220   G4double Z3_8[31]={4.5438,5.0849,6.0686,6.9369,7.7081,8.3949,9.0047,9.5432,10.016,11.593,12.327,12.642,12.746,12.669,12.436,12.146,11.836,11.524,11.216,10.917,9.5846,8.511,7.6411,6.9248,5.8213,5.0153,4.4038,3.9255,3.5425,3.2292,2.9686};
     2221   physicsVector = CreatePhysicsVector(E,Z3_8,factor);
     2222 }
     2223 else if( ionZ == 9) {
     2224   G4double Z3_9[31]={4.7328,5.3092,6.3724,7.3248,8.1798,8.9497,9.6421,10.262,10.815,12.742,13.72,14.19,14.394,14.429,14.25,13.986,13.688,13.377,13.065,12.757,11.35,10.183,9.2173,8.4105,7.1453,6.2032,5.4776,4.9034,4.4389,4.0561,3.7356};
     2225   physicsVector = CreatePhysicsVector(E,Z3_9,factor);
     2226 }
     2227 else if( ionZ == 10) {
     2228   G4double Z3_10[31]={4.9049,5.5088,6.6366,7.6612,8.5905,9.4349,10.202,10.898,11.525,13.795,15.027,15.667,15.984,16.149,16.035,15.807,15.527,15.223,14.912,14.6,13.136,11.888,10.839,9.9499,8.5338,7.4615,6.6246,5.9551,5.4088,4.9551,4.573};
     2229   physicsVector = CreatePhysicsVector(E,Z3_10,factor);
     2230 }
     2231 else if( ionZ == 11) {
     2232   G4double Z3_11[31]={5.0608,5.6915,6.8824,7.9813,8.9898,9.9152,10.765,11.544,12.255,14.923,16.477,17.354,17.84,18.223,18.241,18.096,17.872,17.605,17.317,17.019,15.541,14.216,13.064,12.067,10.439,9.1772,8.1756,7.3646,6.6961,6.137,5.6636};
     2233   physicsVector = CreatePhysicsVector(E,Z3_11,factor);
     2234 }
     2235 else if( ionZ == 12) {
     2236   G4double Z3_12[31]={5.2373,5.8701,7.0762,8.204,9.249,10.215,11.11,11.935,12.696,15.62,17.397,18.435,19.032,19.538,19.609,19.488,19.27,19.003,18.709,18.403,16.875,15.501,14.306,13.269,11.57,10.243,9.1835,8.3192,7.6021,6.9989,6.4848};
     2237   physicsVector = CreatePhysicsVector(E,Z3_12,factor);
     2238 }
     2239 else if( ionZ == 13) {
     2240   G4double Z3_13[31]={5.4086,6.0533,7.2853,8.4469,9.535,10.55,11.496,12.376,13.191,16.403,18.44,19.685,20.434,21.135,21.319,21.267,21.094,20.855,20.579,20.283,18.75,17.331,16.078,14.978,13.154,11.713,10.548,9.5911,8.791,8.1134,7.5329};
     2241   physicsVector = CreatePhysicsVector(E,Z3_13,factor);
     2242 }
     2243 else if( ionZ == 14) {
     2244   G4double Z3_14[31]={5.5814,6.2362,7.4891,8.6787,9.8027,10.858,11.847,12.773,13.637,17.106,19.39,20.838,21.741,22.645,22.947,22.97,22.845,22.638,22.383,22.1,20.575,19.122,17.82,16.666,14.733,13.187,11.928,10.884,10.006,9.2581,8.6142};
     2245   physicsVector = CreatePhysicsVector(E,Z3_14,factor);
     2246 }
     2247 else if( ionZ == 15) {
     2248   G4double Z3_15[31]={5.7894,6.4545,7.7257,8.9393,10.095,11.187,12.216,13.184,14.093,17.806,20.334,21.99,23.059,24.187,24.63,24.746,24.686,24.524,24.301,24.042,22.557,21.085,19.742,18.537,16.491,14.832,13.468,12.327,11.362,10.535,9.8194};
     2249   physicsVector = CreatePhysicsVector(E,Z3_15,factor);
     2250 }
     2251 else if( ionZ == 16) {
     2252   G4double Z3_16[31]={5.958,6.6384,7.9356,9.1763,10.364,11.493,12.561,13.57,14.521,18.469,21.236,23.104,24.343,25.708,26.3,26.516,26.526,26.414,26.229,25.997,24.568,23.089,21.712,20.462,18.312,16.547,15.081,13.846,12.794,11.888,11.099};
     2253   physicsVector = CreatePhysicsVector(E,Z3_16,factor);
     2254 }
     2255 else if( ionZ == 17) {
     2256   G4double Z3_17[31]={6.1773,6.8664,8.1767,9.4315,10.639,11.794,12.892,13.933,14.919,19.07,22.054,24.123,25.528,27.128,27.869,28.184,28.264,28.202,28.053,27.849,26.481,25,23.598,22.311,20.072,18.215,16.659,15.34,14.209,13.23,12.375};
     2257   physicsVector = CreatePhysicsVector(E,Z3_17,factor);
     2258 }
     2259 else if( ionZ == 18) {
     2260   G4double Z3_18[31]={6.2903,6.991,8.3169,9.5836,10.806,11.981,13.104,14.172,15.188,19.521,22.708,24.968,26.536,28.37,29.258,29.67,29.817,29.804,29.691,29.512,28.199,26.719,25.297,23.98,21.671,19.742,18.113,16.726,15.532,14.494,13.585};         
     2261   physicsVector = CreatePhysicsVector(E,Z3_18,factor);
     2262 }
     2263  }
     2264 
     2265  if(physicsVector != 0) {
     2266     dedxKeys.push_back( key );
     2267     dedx.push_back( physicsVector );
     2268  }
     2269
     2270  return physicsVector;
     2271}
     2272
     2273//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
     2274
     2275G4PhysicsVector* G4MaterialStoppingICRU73::GetPhysicsVector(G4int, G4int)
     2276{
     2277  G4PhysicsVector* physicsVector = 0;
     2278  return physicsVector;
     2279}

  • trunk/source/materials/src/G4NistMaterialBuilder.cc

    r986 r1058  
    2424// ********************************************************************
    2525//
    26 // $Id: G4NistMaterialBuilder.cc,v 1.19 2008/04/28 08:51:29 vnivanch Exp $
    27 // GEANT4 tag $Name: geant4-09-02-ref-02 $
     26// $Id: G4NistMaterialBuilder.cc,v 1.20 2009/05/07 18:50:46 vnivanch Exp $
     27// GEANT4 tag $Name: geant4-09-03-beta-cand-01 $
    2828//
    2929//
    … …  
    16891689  AddElementByWeightFraction( 9, 0.710028);
    16901690
    1691   AddMaterial("G4_WATER", 1.0,0, 75., 2);
     1691  AddMaterial("G4_WATER", 1.0,0, 78., 2);
    16921692  AddElementByWeightFraction( 1, 0.111894);
    16931693  AddElementByWeightFraction( 8, 0.888106);

  • trunk/source/materials/src/G4SimpleMaterialStoppingICRU73.cc

    r986 r1058  
    2525//
    2626//
    27 // $Id: G4SimpleMaterialStoppingICRU73.cc,v 1.4 2009/02/19 11:09:22 antoni Exp $
    28 // GEANT4 tag $Name: geant4-09-02-ref-02 $
     27// $Id: G4SimpleMaterialStoppingICRU73.cc,v 1.7 2009/04/29 13:51:53 vnivanch Exp $
     28// GEANT4 tag $Name: geant4-09-03-beta-cand-01 $
    2929
    3030//---------------------------------------------------------------------------
    … …  
    3737//
    3838// Modifications:
     39// 29.04.2009 A.Ivantchenko added revised data for G4_Cu
     40//            provided by  Prof.P.Sigmund Univ. Southern Denmark
    3941//
    4042//----------------------------------------------------------------------------
    … …  
    4547#include "G4LPhysicsFreeVector.hh"
    4648
     49
    4750//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
    4851
    … …  
    5053{
    5154  spline = flag;
    52   lowerEnergyBoundary = 0.025 * MeV;
    53   upperEnergyBoundary = 10.00 * MeV;
    54   Initialise();
     55  minIonAtomicNmb = 3;
     56  maxIonAtomicNmb = 18;
     57
     58  G4int matZ[25] = {1,2,4,6,7,8,10,13,14,18,22,26,28,29,32,36,42,47,50,54,74,78,79,82,92};
     59
     60  G4String matName[25] = {"G4_H", "G4_He", "G4_Be", "G4_C", "G4_N", "G4_O", "G4_Ne", "G4_Al", "G4_Si", "G4_Ar", "G4_Ti", "G4_Fe", "G4_Ni", "G4_Cu", "G4_Ge", "G4_Kr", "G4_Mo", "G4_Ag", "G4_Sn", "G4_Xe", "G4_W", "G4_Pt", "G4_Au", "G4_Pb", "G4_U"};
     61
     62  for( size_t i = 0; i < 25; i++ ) {
     63      atomicNumbersMat.push_back( matZ[i] );
     64      namesMat.push_back( matName[i] );
     65  }
    5566}
    5667
    5768//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
    5869
     70G4bool G4SimpleMaterialStoppingICRU73::IsApplicable(G4int ionZ,
     71                                             G4int matZ)
     72{
     73  G4bool isApplicable = false;
     74
     75  if(ionZ >= minIonAtomicNmb && ionZ <= maxIonAtomicNmb) {
     76
     77     size_t nmbMat =  atomicNumbersMat.size();
     78
     79     for( size_t i = 0; i < nmbMat; i++ ) {
     80
     81        if( atomicNumbersMat[i] == matZ ) { isApplicable = true; break; }
     82     }
     83  }
     84
     85  return isApplicable;
     86}
     87
     88//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
     89
     90G4bool G4SimpleMaterialStoppingICRU73::IsApplicable(G4int ionZ,
     91                                             const G4String& matName)
     92{
     93  G4bool isApplicable = false;
     94
     95  if(ionZ >= minIonAtomicNmb && ionZ <= maxIonAtomicNmb) {
     96
     97     size_t nmbMat =  namesMat.size();
     98
     99     for( size_t i = 0; i < nmbMat; i++ ) {
     100
     101         if( namesMat[i] == matName ) { isApplicable = true; break; }
     102     }
     103  }
     104
     105  return isApplicable; 
     106}
     107
     108//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
     109
    59110G4SimpleMaterialStoppingICRU73::~G4SimpleMaterialStoppingICRU73()
    60 {}
     111{
     112  size_t nmb = dedx.size();
     113
     114  for(size_t i = 0; i < nmb; i++) delete dedx[i];
     115
     116  dedx.clear();
     117  dedxKeys.clear();
     118  atomicNumbersMat.clear();
     119  namesMat.clear();
     120}
    61121
    62122//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
    63123
    64 G4double G4SimpleMaterialStoppingICRU73::GetDEDX(G4int ionZ, G4int idxMaterial,
    65                                                  G4double kinEnergy)
     124G4double G4SimpleMaterialStoppingICRU73::GetDEDX(G4double kinEnergyPerNucleon,
     125                                                 G4int ionZ,
     126                                                 G4int matZ) {
     127
     128  G4double dedxValue = -1.0;
     129
     130  size_t nmbMat =  atomicNumbersMat.size();
     131
     132  for( size_t i = 0; i < nmbMat; i++ ) {
     133
     134     if( atomicNumbersMat[i] == matZ ) {
     135        dedxValue = GetDEDX(kinEnergyPerNucleon, ionZ, namesMat[i]);
     136        break;
     137     }
     138  }
     139
     140  return dedxValue;
     141}
     142
     143//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
     144
     145G4double G4SimpleMaterialStoppingICRU73::GetDEDX(G4double kinEnergyPerNucleon,
     146                                                 G4int ionZ,
     147                                                 const G4String& matName)
    66148{
    67   G4double res = .0;
    68   if(ionZ < 3 || ionZ > 18 || idxMaterial < 0 || idxMaterial > 24) return res;
    69   G4bool b;
    70   G4int idx = idxMaterial*16 + ionZ - 3;
    71   G4double scaledEnergy = kinEnergy/A[ionZ - 3];
    72   G4double emin = .025*MeV;
    73   if(scaledEnergy < emin) {
    74     res = (dedx[idx])->GetValue(emin, b)*std::sqrt(scaledEnergy/emin);
    75   } else {
    76     res = (dedx[idx])->GetValue(scaledEnergy, b);
    77   }
    78   return res;
     149  G4double dedxValue = -1.0;
     150
     151  G4PhysicsVector* physicsVector = GetPhysicsVector(ionZ, matName);
     152 
     153  if(physicsVector != 0) {
     154
     155     size_t nmbBins = physicsVector -> GetVectorLength();
     156     G4double lowerEnergyEdge = physicsVector -> GetLowEdgeEnergy(0);
     157     G4double upperEnergyEdge = physicsVector -> GetLowEdgeEnergy(nmbBins-1);
     158
     159     if(kinEnergyPerNucleon <= upperEnergyEdge) {
     160          G4bool b;
     161 
     162        if(kinEnergyPerNucleon < lowerEnergyEdge) {
     163           dedxValue = physicsVector -> GetValue(lowerEnergyEdge, b) *
     164                         std::sqrt(kinEnergyPerNucleon / lowerEnergyEdge);
     165        }
     166        else {
     167           dedxValue = physicsVector -> GetValue(kinEnergyPerNucleon, b);
     168        }
     169     }
     170  } 
     171
     172  return dedxValue;
    79173}
    80174
    81175//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
    82176
    83 void G4SimpleMaterialStoppingICRU73::AddData(G4double* energy,
    84                                              G4double* stoppower,
     177G4PhysicsVector* G4SimpleMaterialStoppingICRU73::CreatePhysicsVector(
     178                                             G4double* energy,
     179                                             G4double* stoppower,
    85180                                             G4double factor)
    86181{
    87182  G4LPhysicsFreeVector* pv = new G4LPhysicsFreeVector(31,energy[0],energy[30]);
    88183  pv->SetSpline(spline);
    89   dedx.push_back(pv);
    90   for(G4int i=0;i<31;i++) {
     184
     185  for( G4int i = 0; i < 31; i++ ) {
    91186    pv->PutValues(i,energy[i],stoppower[i]*factor);
    92187  }
     188
     189  return pv;
    93190}
    94191
    95192//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
    96193
    97 void G4SimpleMaterialStoppingICRU73::Initialise()
     194G4PhysicsVector* G4SimpleMaterialStoppingICRU73::GetPhysicsVector(
     195                                           G4int ionZ,
     196                                           const G4String& matName)
    98197{
    99 G4int i, j=0;
    100 dedx.reserve(16*25);
    101 
    102 //..List of ions
    103 //G4double factor0 = MeV*cm2/milligram;
    104 G4double factor = 1000.*MeV/cm;
    105 G4double dens[25]={8.988E-05, 1.785E-04, 1.848, 1.9, .00125, .001429, 8.99E-04, 2.699, 2.329, .0017837, 4.508, 7.873, 8.907, 8.933, 5.323, .003743, 10.22, 1.5, 7.285, .005895, 19.254, 21.45, 19.291, 11.343, 19.05};
    106 G4int Z_Ion[16] = {3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18};
    107 //G4double A_Ion[16] = {6.941,9.0122,1.811,12.011,14.007,15.999,18.998,2.180,22.990,24.305,26.982,28.086,3.974,32.065,35.453,39.948};
    108 G4int AA_Ion[16] = {7,9,11,12,14,16,19,20,23,24,27,28,31,32,35,40};
    109 G4String NameMaterial[25]={"G4_H", "G4_He", "G4_Be", "G4_C", "G4_N", "G4_O", "G4_Ne", "G4_Al", "G4_Si", "G4_Ar", "G4_Ti", "G4_Fe", "G4_Ni", "G4_Cu", "G4_Ge", "G4_Kr", "G4_Mo", "G4_Ag", "G4_Sn", "G4_Xe", "G4_W", "G4_Pt", "G4_Au", "G4_Pb", "G4_U"};
    110 
    111 for(i=0; i<16; i++) {
    112   Z[i] = Z_Ion[i];
    113   A[i] = G4double(AA_Ion[i]);
    114 }
    115 for(i=0;i<25;i++){
    116 MatName[i]=NameMaterial[i];
    117 Density[i]=dens[i]*gram/cm3;
    118 }
    119 
    120 G4double E[31] = {.025,.03,.04,.05,.06,.07,.08,.09,.1,.15,.2,.25,.3,.4,.5,.6,.7,.8,.9,1,1.5,2,2.5,3,4,5,6,7,8,9,10};
    121 for(i=0;i<31;i++){E[i] *=MeV;}
    122 
    123 // Data name: (Z_NameMaterial)_(Z_Ion)[31]=
    124 G4double H_3[31]={8.31,8.919,9.838,10.46,10.87,11.14,11.3,11.4,11.43,11.21,10.73,10.21,9.696,8.773,7.989,7.326,6.761,6.275,5.853,5.485,4.175,3.377,2.843,2.46,1.948,1.62,1.393,1.225,1.095,0.9921,0.9082};
    125 AddData(E,H_3,dens[j]*factor);
    126 G4double H_4[31]={10.5,11.36,12.72,13.72,14.44,14.96,15.33,15.58,15.76,15.9,15.53,15.01,14.46,13.38,12.41,11.55,10.79,10.12,9.533,9.006,7.054,5.801,4.933,4.297,3.427,2.862,2.464,2.169,1.941,1.759,1.61};
    127 AddData(E,H_4,dens[j]*factor);
    128 G4double H_5[31]={12.19,13.29,15.12,16.52,17.59,18.4,19.01,19.47,19.81,20.46,20.31,19.88,19.34,18.2,17.1,16.1,15.2,14.38,13.65,12.98,10.42,8.704,7.478,6.56,5.278,4.428,3.823,3.371,3.019,2.738,2.509};
    129 AddData(E,H_5,dens[j]*factor);
    130 G4double H_6[31]={13.42,14.75,17,18.81,20.25,21.38,22.27,22.96,23.5,24.79,24.94,24.64,24.17,23.04,21.88,20.78,19.77,18.84,17.98,17.2,14.1,11.95,10.37,9.165,7.449,6.286,5.448,4.815,4.321,3.923,3.597};
    131 AddData(E,H_6,dens[j]*factor);
    132 G4double H_7[31]={14.65,16.14,18.73,20.87,22.62,24.05,25.2,26.14,26.89,28.88,29.39,29.29,28.92,27.86,26.68,25.53,24.44,23.42,22.47,21.59,18.02,15.47,13.55,12.06,9.897,8.406,7.316,6.486,5.831,5.303,4.867};
    133 AddData(E,H_7,dens[j]*factor);
    134 G4double H_8[31]={15.64,17.28,20.18,22.63,24.7,26.42,27.86,29.04,30.01,32.8,33.74,33.89,33.67,32.74,31.6,30.43,29.28,28.2,27.17,26.21,22.22,19.28,17.02,15.25,12.63,10.79,9.426,8.38,7.55,6.877,6.319};
    135 AddData(E,H_8,dens[j]*factor);
    136 G4double H_9[31]={16.24,18,21.15,23.88,26.22,28.23,29.92,31.35,32.54,36.14,37.55,37.97,37.91,37.16,36.08,34.91,33.75,32.63,31.55,30.54,26.25,23.01,20.48,18.46,15.44,13.29,11.67,10.42,9.415,8.595,7.913};
    137 AddData(E,H_9,dens[j]*factor);
    138 G4double H_10[31]={16.75,18.6,21.96,24.92,27.51,29.77,31.71,33.37,34.79,39.25,41.16,41.89,42.03,41.48,40.49,39.36,38.19,37.05,35.94,34.89,30.34,26.83,24.06,21.82,18.41,15.94,14.08,12.61,11.43,10.46,9.649};
    139 AddData(E,H_10,dens[j]*factor);
    140 G4double H_11[31]={17.23,19.15,22.67,25.81,28.63,31.11,33.29,35.19,36.84,42.23,44.76,45.89,46.29,46.05,45.2,44.14,43,41.85,40.73,39.64,34.85,31.06,28.02,25.53,21.7,18.89,16.74,15.04,13.66,12.53,11.57};
    141 AddData(E,H_11,dens[j]*factor);
    142 G4double H_12[31]={18,19.94,23.52,26.77,29.72,32.37,34.73,36.82,38.65,44.89,48.02,49.56,50.24,50.33,49.67,48.7,47.6,46.47,45.34,44.23,39.25,35.23,31.96,29.25,25.04,21.91,19.5,17.58,16.01,14.71,13.61};
    143 AddData(E,H_12,dens[j]*factor);
    144 G4double H_13[31]={18.67,20.65,24.32,27.67,30.74,33.53,36.06,38.32,40.33,47.38,51.11,53.06,54.04,54.51,54.05,53.2,52.17,51.07,49.94,48.83,43.71,39.47,36,33.09,28.51,25.07,22.39,20.25,18.49,17.02,15.77};
    145 AddData(E,H_13,dens[j]*factor);
    146 G4double H_14[31]={19.33,21.35,25.1,28.53,31.69,34.6,37.26,39.67,41.83,49.62,53.93,56.29,57.56,58.4,58.15,57.43,56.47,55.41,54.31,53.2,47.99,43.59,39.93,36.85,31.95,28.23,25.32,22.96,21.02,19.39,18.01};
    147 AddData(E,H_14,dens[j]*factor);
    148 G4double H_15[31]={20.27,22.34,26.16,29.67,32.92,35.93,38.7,41.24,43.54,52.03,56.89,59.67,61.24,62.49,62.48,61.9,61.04,60.04,58.96,57.86,52.58,48.02,44.17,40.89,35.65,31.64,28.46,25.88,23.75,21.95,20.41};
    149 AddData(E,H_15,dens[j]*factor);
    150 G4double H_16[31]={20.94,23.07,26.99,30.59,33.94,37.06,39.96,42.63,45.08,54.29,59.75,62.97,64.88,66.56,66.82,66.41,65.66,64.72,63.69,62.62,57.29,52.58,48.55,45.1,39.52,35.2,31.76,28.96,26.62,24.64,22.95};
    151 AddData(E,H_16,dens[j]*factor);
    152 G4double H_17[31]={21.89,24.05,28,31.64,35.03,38.21,41.18,43.94,46.49,56.31,62.31,65.95,68.16,70.25,70.76,70.52,69.87,69.01,68.02,66.97,61.64,56.83,52.67,49.08,43.22,38.65,34.98,31.98,29.46,27.33,25.49};
    153 AddData(E,H_17,dens[j]*factor);
    154 G4double H_18[31]={22.3,24.5,28.52,32.2,35.64,38.87,41.91,44.76,47.41,57.82,64.39,68.46,71,73.53,74.31,74.25,73.72,72.94,72.01,71,65.7,60.83,56.57,52.86,46.78,41.99,38.13,34.95,32.28,30,28.04};
    155 AddData(E,H_18,dens[j]*factor);
    156 j++;
    157 
    158 G4double He_3[31]={2.636,2.851,3.202,3.47,3.676,3.832,3.948,4.035,4.097,4.194,4.123,3.996,3.85,3.558,3.29,3.052,2.842,2.656,2.492,2.346,1.812,1.476,1.247,1.082,0.8605,0.7182,0.6189,0.5455,0.4889,0.4437,0.4068};
    159 AddData(E,He_3,dens[j]*factor);
    160 G4double He_4[31]={3.352,3.645,4.14,4.539,4.862,5.122,5.33,5.495,5.626,5.943,5.972,5.886,5.753,5.439,5.122,4.824,4.55,4.302,4.077,3.871,3.08,2.553,2.179,1.903,1.522,1.274,1.098,0.9684,0.8679,0.7877,0.7222};
    161 AddData(E,He_4,dens[j]*factor);
    162 G4double He_5[31]={3.917,4.284,4.921,5.452,5.897,6.268,6.577,6.832,7.043,7.634,7.806,7.794,7.697,7.402,7.067,6.735,6.419,6.123,5.848,5.592,4.569,3.85,3.323,2.923,2.358,1.981,1.712,1.511,1.354,1.229,1.127};
    163 AddData(E,He_5,dens[j]*factor);
    164 G4double He_6[31]={4.345,4.779,5.548,6.207,6.774,7.26,7.675,8.027,8.325,9.235,9.584,9.671,9.631,9.382,9.051,8.703,8.36,8.029,7.717,7.423,6.202,5.306,4.629,4.104,3.344,2.826,2.45,2.166,1.944,1.766,1.62};
    165 AddData(E,He_6,dens[j]*factor);
    166 G4double He_7[31]={4.78,5.263,6.129,6.889,7.557,8.144,8.656,9.102,9.487,10.73,11.29,11.5,11.54,11.36,11.05,10.7,10.35,9.995,9.655,9.331,7.944,6.887,6.069,5.42,4.463,3.795,3.304,2.929,2.634,2.395,2.199};
    167 AddData(E,He_7,dens[j]*factor);
    168 G4double He_8[31]={5.133,5.662,6.619,7.473,8.238,8.921,9.528,10.07,10.54,12.15,12.93,13.29,13.42,13.36,13.1,12.76,12.4,12.04,11.68,11.34,9.814,8.61,7.654,6.882,5.721,4.894,4.278,3.802,3.425,3.119,2.865};
    169 AddData(E,He_8,dens[j]*factor);
    170 G4double He_9[31]={5.37,5.934,6.966,7.897,8.742,9.509,10.2,10.82,11.38,13.33,14.35,14.86,15.09,15.13,14.92,14.61,14.26,13.9,13.53,13.17,11.55,10.24,9.184,8.317,6.989,6.025,5.297,4.729,4.274,3.901,3.591};
    171 AddData(E,He_9,dens[j]*factor);
    172 G4double He_10[31]={5.57,6.164,7.257,8.253,9.168,10.01,10.78,11.47,12.11,14.4,15.67,16.35,16.69,16.86,16.71,16.43,16.09,15.73,15.36,14.99,13.3,11.9,10.75,9.798,8.315,7.221,6.383,5.722,5.189,4.749,4.381};
    173 AddData(E,He_10,dens[j]*factor);
    174 G4double He_11[31]={5.709,6.323,7.464,8.515,9.493,10.4,11.24,12.02,12.73,15.4,16.95,17.83,18.31,18.66,18.6,18.38,18.07,17.72,17.36,16.99,15.25,13.76,12.52,11.47,9.812,8.571,7.609,6.843,6.22,5.704,5.269};
    175 AddData(E,He_11,dens[j]*factor);
    176 G4double He_12[31]={5.934,6.556,7.715,8.793,9.807,10.76,11.65,12.49,13.26,16.25,18.08,19.16,19.79,20.33,20.38,20.22,19.94,19.62,19.27,18.9,17.13,15.57,14.25,13.12,11.32,9.946,8.87,8.005,7.297,6.706,6.206};
    177 AddData(E,He_12,dens[j]*factor);
    178 G4double He_13[31]={6.134,6.771,7.956,9.062,10.11,11.1,12.04,12.92,13.74,17.03,19.13,20.42,21.21,21.95,22.13,22.04,21.82,21.52,21.19,20.83,19.04,17.43,16.03,14.83,12.89,11.38,10.2,9.233,8.438,7.771,7.205};
    179 AddData(E,He_13,dens[j]*factor);
    180 G4double He_14[31]={6.339,6.99,8.198,9.326,10.4,11.42,12.39,13.31,14.18,17.73,20.07,21.57,22.51,23.46,23.76,23.75,23.57,23.31,22.99,22.65,20.85,19.2,17.75,16.48,14.41,12.8,11.51,10.46,9.59,8.853,8.225};
    181 AddData(E,He_14,dens[j]*factor);
    182 G4double He_15[31]={6.634,7.302,8.541,9.696,10.79,11.84,12.85,13.81,14.72,18.51,21.1,22.8,23.91,25.08,25.52,25.6,25.49,25.27,24.98,24.66,22.88,21.18,19.66,18.33,16.12,14.38,12.98,11.82,10.86,10.05,9.347};
    183 AddData(E,He_15,dens[j]*factor);
    184 G4double He_16[31]={6.833,7.524,8.803,9.993,11.12,12.21,13.25,14.24,15.2,19.23,22.07,23.99,25.27,26.69,27.28,27.46,27.42,27.25,27,26.7,24.96,23.23,21.66,20.26,17.91,16.05,14.53,13.27,12.22,11.32,10.54};
    185 AddData(E,He_16,dens[j]*factor);
    186 G4double He_17[31]={7.144,7.843,9.139,10.34,11.49,12.59,13.65,14.68,15.66,19.88,22.95,25.06,26.5,28.14,28.87,29.15,29.17,29.05,28.83,28.55,26.84,25.09,23.48,22.03,19.58,17.61,16,14.66,13.52,12.55,11.72};
    187 AddData(E,He_17,dens[j]*factor);
    188 G4double He_18[31]={7.268,7.978,9.289,10.51,11.66,12.78,13.85,14.89,15.9,20.3,23.58,25.89,27.49,29.36,30.24,30.62,30.71,30.63,30.44,30.19,28.52,26.76,25.12,23.64,21.12,19.07,17.38,15.97,14.77,13.75,12.85};
    189 AddData(E,He_18,dens[j]*factor);
    190 j++;
    191 
    192 G4double Be_3[31]={2.148,2.307,2.562,2.753,2.897,3.003,3.08,3.132,3.166,3.193,3.127,3.033,2.931,2.727,2.538,2.368,2.217,2.082,1.961,1.854,1.451,1.192,1.013,0.8818,0.7042,0.5894,0.5089,0.4493,0.4032,0.3664,0.3363};
    193 AddData(E,Be_3,dens[j]*factor);
    194 G4double Be_4[31]={2.702,2.928,3.303,3.599,3.833,4.017,4.162,4.273,4.357,4.533,4.535,4.474,4.386,4.177,3.961,3.754,3.561,3.382,3.218,3.067,2.476,2.07,1.777,1.557,1.251,1.049,0.9061,0.7996,0.7172,0.6515,0.5978};
    195 AddData(E,Be_4,dens[j]*factor);
    196 G4double Be_5[31]={3.141,3.432,3.925,4.326,4.654,4.922,5.141,5.32,5.463,5.831,5.93,5.924,5.868,5.687,5.471,5.247,5.029,4.82,4.624,4.44,3.682,3.131,2.72,2.402,1.947,1.639,1.418,1.252,1.123,1.02,0.9352};
    197 AddData(E,Be_5,dens[j]*factor);
    198 G4double Be_6[31]={3.484,3.837,4.444,4.949,5.372,5.727,6.025,6.275,6.483,7.078,7.297,7.363,7.353,7.22,7.02,6.796,6.566,6.339,6.12,5.911,5.014,4.332,3.805,3.388,2.775,2.35,2.039,1.803,1.619,1.47,1.349};
    199 AddData(E,Be_6,dens[j]*factor);
    200 G4double Be_7[31]={3.795,4.198,4.903,5.499,6.008,6.445,6.819,7.14,7.413,8.257,8.619,8.774,8.824,8.761,8.595,8.383,8.153,7.917,7.684,7.457,6.449,5.649,5.011,4.497,3.723,3.173,2.764,2.451,2.203,2.003,1.838};
    201 AddData(E,Be_7,dens[j]*factor);
    202 G4double Be_8[31]={4.05,4.499,5.294,5.978,6.57,7.085,7.534,7.924,8.263,9.368,9.89,10.15,10.27,10.3,10.18,9.998,9.78,9.546,9.308,9.071,7.978,7.075,6.336,5.727,4.791,4.109,3.597,3.197,2.879,2.62,2.406};
    203 AddData(E,Be_8,dens[j]*factor);
    204 G4double Be_9[31]={4.249,4.737,5.609,6.369,7.035,7.621,8.137,8.591,8.991,10.35,11.03,11.39,11.59,11.7,11.64,11.48,11.28,11.05,10.81,10.57,9.42,8.439,7.621,6.937,5.866,5.072,4.465,3.987,3.602,3.286,3.023};
    205 AddData(E,Be_9,dens[j]*factor);
    206 G4double Be_10[31]={4.423,4.942,5.88,6.708,7.442,8.094,8.674,9.189,9.647,11.26,12.11,12.58,12.85,13.07,13.07,12.94,12.76,12.55,12.31,12.07,10.87,9.823,8.936,8.184,6.988,6.087,5.389,4.833,4.381,4.008,3.695};
    207 AddData(E,Be_10,dens[j]*factor);
    208 G4double Be_11[31]={4.542,5.085,6.08,6.967,7.763,8.478,9.12,9.697,10.22,12.09,13.14,13.75,14.11,14.46,14.53,14.46,14.31,14.11,13.89,13.65,12.43,11.33,10.38,9.559,8.236,7.222,6.425,5.784,5.259,4.822,4.452};
    209 AddData(E,Be_11,dens[j]*factor);
    210 G4double Be_12[31]={4.691,5.249,6.282,7.213,8.055,8.819,9.511,10.14,10.71,12.83,14.06,14.8,15.27,15.75,15.91,15.89,15.77,15.6,15.39,15.16,13.93,12.79,11.79,10.91,9.483,8.37,7.485,6.765,6.171,5.673,5.249};
    211 AddData(E,Be_12,dens[j]*factor);
    212 G4double Be_13[31]={4.831,5.402,6.469,7.44,8.325,9.133,9.871,10.54,11.16,13.5,14.93,15.81,16.38,17.01,17.26,17.31,17.24,17.09,16.91,16.69,15.47,14.3,13.25,12.32,10.79,9.579,8.605,7.807,7.142,6.582,6.103};
    213 AddData(E,Be_13,dens[j]*factor);
    214 G4double Be_14[31]={4.976,5.558,6.651,7.655,8.577,9.423,10.2,10.92,11.57,14.12,15.73,16.74,17.42,18.19,18.54,18.66,18.63,18.52,18.35,18.15,16.95,15.75,14.66,13.69,12.07,10.77,9.722,8.852,8.123,7.505,6.974};
    215 AddData(E,Be_14,dens[j]*factor);
    216 G4double Be_15[31]={5.153,5.747,6.866,7.902,8.859,9.743,10.56,11.31,12.01,14.76,16.55,17.72,18.5,19.44,19.9,20.1,20.14,20.08,19.94,19.77,18.62,17.4,16.27,15.26,13.53,12.13,10.99,10.04,9.232,8.545,7.953};
    217 AddData(E,Be_15,dens[j]*factor);
    218 G4double Be_16[31]={5.3,5.907,7.053,8.12,9.113,10.03,10.89,11.68,12.42,15.37,17.35,18.66,19.56,20.67,21.25,21.54,21.65,21.63,21.54,21.39,20.3,19.09,17.93,16.87,15.05,13.56,12.33,11.29,10.41,9.655,9.001};
    219 AddData(E,Be_16,dens[j]*factor);
    220 G4double Be_17[31]={5.5,6.113,7.275,8.362,9.379,10.33,11.21,12.04,12.81,15.93,18.08,19.53,20.55,21.82,22.51,22.89,23.05,23.08,23.02,22.9,21.87,20.65,19.47,18.38,16.49,14.92,13.6,12.5,11.55,10.73,10.02};
    221 AddData(E,Be_17,dens[j]*factor);
    222 G4double Be_18[31]={5.619,6.238,7.409,8.508,9.542,10.51,11.42,12.28,13.07,16.35,18.66,20.25,21.37,22.8,23.61,24.07,24.29,24.37,24.34,24.25,23.27,22.05,20.85,19.74,17.78,16.14,14.77,13.61,12.61,11.75,10.99};
    223 AddData(E,Be_18,dens[j]*factor);
    224 j++;
    225 
    226 G4double C_3[31]={2.043,2.2,2.457,2.658,2.815,2.939,3.035,3.109,3.162,3.238,3.178,3.082,2.978,2.774,2.587,2.419,2.27,2.137,2.018,1.911,1.508,1.246,1.063,0.9292,0.7457,0.6261,0.5418,0.4792,0.4306,0.3918,0.3599};
    227 AddData(E,C_3,dens[j]*factor);
    228 G4double C_4[31]={2.54,2.761,3.135,3.441,3.694,3.902,4.072,4.21,4.321,4.588,4.608,4.546,4.455,4.245,4.032,3.83,3.641,3.467,3.306,3.159,2.572,2.163,1.866,1.641,1.325,1.115,0.9653,0.8533,0.7664,0.6969,0.64};
    229 AddData(E,C_4,dens[j]*factor);
    230 G4double C_5[31]={2.919,3.203,3.692,4.102,4.449,4.743,4.992,5.202,5.378,5.882,6.02,6.019,5.96,5.776,5.562,5.346,5.136,4.935,4.745,4.566,3.821,3.272,2.856,2.532,2.063,1.743,1.512,1.337,1.201,1.092,1.002};
    231 AddData(E,C_5,dens[j]*factor);
    232 G4double C_6[31]={3.206,3.548,4.148,4.659,5.099,5.479,5.809,6.094,6.34,7.113,7.401,7.482,7.471,7.335,7.139,6.923,6.703,6.487,6.278,6.077,5.205,4.529,3.998,3.574,2.944,2.502,2.177,1.929,1.734,1.576,1.447};
    233 AddData(E,C_6,dens[j]*factor);
    234 G4double C_7[31]={3.445,3.836,4.53,5.131,5.657,6.119,6.527,6.885,7.2,8.259,8.728,8.914,8.969,8.905,8.742,8.541,8.324,8.103,7.884,7.668,6.698,5.91,5.273,4.751,3.957,3.386,2.958,2.627,2.364,2.152,1.975};
    235 AddData(E,C_7,dens[j]*factor);
    236 G4double C_8[31]={3.638,4.069,4.848,5.533,6.141,6.682,7.165,7.595,7.979,9.328,9.997,10.31,10.44,10.47,10.36,10.18,9.98,9.764,9.543,9.321,8.282,7.401,6.666,6.053,5.096,4.39,3.853,3.432,3.095,2.819,2.59};
    237 AddData(E,C_8,dens[j]*factor);
    238 G4double C_9[31]={3.792,4.257,5.106,5.864,6.544,7.156,7.707,8.203,8.65,10.28,11.15,11.59,11.8,11.93,11.87,11.72,11.54,11.33,11.11,10.89,9.8,8.848,8.037,7.348,6.254,5.431,4.794,4.289,3.88,3.543,3.261};
    239 AddData(E,C_9,dens[j]*factor);
    240 G4double C_10[31]={3.927,4.419,5.328,6.149,6.893,7.57,8.185,8.744,9.252,11.15,12.23,12.81,13.12,13.35,13.35,13.24,13.08,12.88,12.67,12.45,11.33,10.32,9.442,8.686,7.464,6.529,5.796,5.208,4.728,4.329,3.993};
    241 AddData(E,C_10,dens[j]*factor);
    242 G4double C_11[31]={4.019,4.53,5.486,6.362,7.165,7.903,8.579,9.2,9.768,11.94,13.26,14,14.42,14.79,14.86,14.8,14.67,14.49,14.29,14.08,12.95,11.89,10.96,10.14,8.79,7.742,6.908,6.232,5.675,5.208,4.813};
    243 AddData(E,C_11,dens[j]*factor);
    244 G4double C_12[31]={4.132,4.653,5.638,6.555,7.407,8.194,8.922,9.593,10.21,12.64,14.18,15.08,15.62,16.13,16.29,16.28,16.18,16.03,15.84,15.64,14.51,13.42,12.43,11.56,10.11,8.965,8.041,7.285,6.656,6.126,5.674};
    245 AddData(E,C_12,dens[j]*factor);
    246 G4double C_13[31]={4.239,4.77,5.781,6.732,7.623,8.455,9.228,9.947,10.61,13.28,15.03,16.11,16.77,17.44,17.7,17.75,17.69,17.57,17.41,17.22,16.11,14.99,13.97,13.05,11.5,10.25,9.242,8.412,7.705,7.108,6.597};
    247 AddData(E,C_13,dens[j]*factor);
    248 G4double C_14[31]={4.352,4.888,5.918,6.895,7.819,8.689,9.503,10.26,10.97,13.85,15.81,17.06,17.84,18.68,19.04,19.16,19.15,19.06,18.91,18.74,17.66,16.53,15.47,14.51,12.87,11.54,10.45,9.535,8.767,8.111,7.545};
    249 AddData(E,C_14,dens[j]*factor);
    250 G4double C_15[31]={4.48,5.022,6.068,7.07,8.023,8.927,9.779,10.58,11.33,14.43,16.59,18.01,18.94,19.96,20.44,20.64,20.69,20.65,20.54,20.39,19.37,18.24,17.16,16.16,14.43,13,11.82,10.82,9.972,9.246,8.616};
    251 AddData(E,C_15,dens[j]*factor);
    252 G4double C_16[31]={4.597,5.146,6.21,7.235,8.216,9.151,10.04,10.88,11.67,14.97,17.33,18.94,20,21.22,21.83,22.12,22.23,22.24,22.17,22.06,21.11,19.99,18.89,17.86,16.05,14.53,13.26,12.18,11.25,10.45,9.757};
    253 AddData(E,C_16,dens[j]*factor);
    254 G4double C_17[31]={4.745,5.296,6.37,7.409,8.41,9.37,10.29,11.16,11.98,15.46,18.01,19.79,21,22.41,23.14,23.52,23.7,23.75,23.72,23.63,22.76,21.65,20.54,19.48,17.59,16,14.65,13.49,12.5,11.64,10.88};
    255 AddData(E,C_17,dens[j]*factor);
    256 G4double C_18[31]={4.847,5.401,6.479,7.526,8.54,9.518,10.46,11.35,12.21,15.85,18.57,20.52,21.86,23.47,24.32,24.78,25.02,25.12,25.12,25.06,24.25,23.16,22.02,20.94,19,17.34,15.92,14.71,13.66,12.75,11.95};
    257 AddData(E,C_18,dens[j]*factor);
    258 j++;
    259 
    260 G4double N_3[31]={2.13,2.311,2.613,2.849,3.03,3.166,3.264,3.333,3.381,3.429,3.351,3.239,3.12,2.891,2.685,2.503,2.343,2.201,2.075,1.963,1.544,1.274,1.086,0.9483,0.7603,0.638,0.5519,0.4879,0.4382,0.3986,0.3661};
    261 AddData(E,N_3,dens[j]*factor);
    262 G4double N_4[31]={2.65,2.892,3.309,3.658,3.947,4.181,4.367,4.512,4.622,4.861,4.862,4.781,4.671,4.427,4.186,3.963,3.757,3.57,3.399,3.242,2.629,2.208,1.903,1.673,1.35,1.136,0.9828,0.8685,0.7799,0.709,0.6509};
    263 AddData(E,N_4,dens[j]*factor);
    264 G4double N_5[31]={3.07,3.37,3.894,4.342,4.728,5.057,5.333,5.56,5.745,6.232,6.351,6.331,6.251,6.026,5.778,5.534,5.301,5.08,4.875,4.684,3.903,3.335,2.909,2.578,2.1,1.774,1.538,1.36,1.222,1.11,1.019};
    265 AddData(E,N_5,dens[j]*factor);
    266 G4double N_6[31]={3.409,3.764,4.389,4.93,5.404,5.821,6.183,6.494,6.756,7.532,7.805,7.868,7.836,7.656,7.418,7.168,6.92,6.681,6.452,6.235,5.315,4.615,4.07,3.637,2.995,2.545,2.215,1.962,1.763,1.603,1.471};
    267 AddData(E,N_6,dens[j]*factor);
    268 G4double N_7[31]={3.704,4.106,4.82,5.441,5.993,6.487,6.927,7.315,7.654,8.74,9.198,9.369,9.404,9.295,9.088,8.847,8.597,8.347,8.105,7.87,6.839,6.021,5.367,4.834,4.024,3.443,3.008,2.672,2.405,2.188,2.009};
    269 AddData(E,N_7,dens[j]*factor);
    270 G4double N_8[31]={3.958,4.401,5.196,5.894,6.518,7.082,7.593,8.053,8.463,9.864,10.53,10.83,10.94,10.93,10.77,10.55,10.31,10.06,9.811,9.566,8.454,7.535,6.78,6.153,5.179,4.463,3.917,3.49,3.147,2.867,2.634};
    271 AddData(E,N_8,dens[j]*factor);
    272 G4double N_9[31]={4.177,4.656,5.522,6.288,6.976,7.602,8.173,8.695,9.168,10.87,11.75,12.18,12.39,12.47,12.36,12.17,11.94,11.69,11.44,11.19,10.02,9.022,8.185,7.479,6.362,5.524,4.877,4.363,3.947,3.605,3.318};
    273 AddData(E,N_9,dens[j]*factor);
    274 G4double N_10[31]={4.375,4.884,5.813,6.641,7.388,8.071,8.698,9.275,9.805,11.79,12.89,13.48,13.78,13.98,13.93,13.77,13.56,13.32,13.07,12.82,11.6,10.54,9.628,8.851,7.601,6.648,5.901,5.303,4.813,4.407,4.065};
    275 AddData(E,N_10,dens[j]*factor);
    276 G4double N_11[31]={4.532,5.065,6.047,6.932,7.735,8.47,9.15,9.78,10.36,12.63,13.97,14.72,15.14,15.48,15.51,15.4,15.21,14.99,14.75,14.51,13.27,12.15,11.17,10.33,8.95,7.88,7.031,6.342,5.775,5.3,4.898};
    277 AddData(E,N_11,dens[j]*factor);
    278 G4double N_12[31]={4.702,5.251,6.272,7.203,8.054,8.835,9.559,10.23,10.86,13.38,14.95,15.87,16.41,16.9,17.01,16.95,16.8,16.6,16.37,16.13,14.88,13.72,12.69,11.79,10.3,9.125,8.183,7.413,6.773,6.233,5.773};
    279 AddData(E,N_12,dens[j]*factor);
    280 G4double N_13[31]={4.858,5.424,6.48,7.449,8.342,9.168,9.934,10.65,11.32,14.06,15.86,16.96,17.63,18.29,18.5,18.5,18.39,18.22,18.01,17.78,16.53,15.33,14.26,13.31,11.71,10.44,9.405,8.552,7.838,7.232,6.713};
    281 AddData(E,N_13,dens[j]*factor);
    282 G4double N_14[31]={5.011,5.59,6.676,7.68,8.611,9.475,10.28,11.03,11.74,14.67,16.69,17.97,18.77,19.61,19.92,19.99,19.92,19.78,19.59,19.37,18.14,16.92,15.8,14.8,13.11,11.75,10.64,9.706,8.923,8.255,7.679};
    283 AddData(E,N_14,dens[j]*factor);
    284 G4double N_15[31]={5.17,5.761,6.874,7.91,8.877,9.779,10.62,11.41,12.15,15.28,17.5,18.97,19.92,20.95,21.39,21.54,21.54,21.44,21.28,21.08,19.9,18.67,17.52,16.48,14.7,13.24,12.03,11.01,10.15,9.409,8.768};
    285 AddData(E,N_15,dens[j]*factor);
    286 G4double N_16[31]={5.313,5.919,7.061,8.131,9.133,10.07,10.95,11.77,12.55,15.85,18.28,19.93,21.03,22.27,22.84,23.08,23.14,23.09,22.97,22.8,21.68,20.45,19.29,18.21,16.34,14.78,13.48,12.39,11.45,10.63,9.926};
    287 AddData(E,N_16,dens[j]*factor);
    288 G4double N_17[31]={5.481,6.098,7.262,8.355,9.386,10.35,11.26,12.12,12.92,16.38,19,20.83,22.08,23.52,24.22,24.55,24.67,24.67,24.58,24.44,23.38,22.16,20.98,19.87,17.92,16.29,14.91,13.73,12.72,11.84,11.08};
    289 AddData(E,N_17,dens[j]*factor);
    290 G4double N_18[31]={5.604,6.233,7.416,8.529,9.581,10.57,11.51,12.39,13.22,16.82,19.6,21.61,23,24.65,25.48,25.9,26.08,26.12,26.07,25.96,24.95,23.73,22.53,21.39,19.38,17.67,16.23,14.99,13.92,12.99,12.17};
    291 AddData(E,N_18,dens[j]*factor);
    292 j++;
    293 
    294 G4double O_3[31]={1.865,2.032,2.312,2.534,2.709,2.843,2.944,3.019,3.072,3.153,3.1,3.007,2.904,2.702,2.517,2.353,2.207,2.077,1.962,1.858,1.468,1.215,1.038,0.9083,0.7302,0.6139,0.5318,0.4706,0.4232,0.3852,0.354};
    295 AddData(E,O_3,dens[j]*factor);
    296 G4double O_4[31]={2.293,2.519,2.909,3.236,3.509,3.735,3.918,4.065,4.18,4.458,4.489,4.433,4.342,4.132,3.919,3.719,3.534,3.364,3.207,3.064,2.497,2.105,1.819,1.602,1.296,1.092,0.9469,0.8378,0.753,0.6851,0.6295};
    297 AddData(E,O_4,dens[j]*factor);
    298 G4double O_5[31]={2.624,2.903,3.393,3.813,4.176,4.49,4.757,4.982,5.169,5.696,5.853,5.861,5.805,5.618,5.403,5.187,4.978,4.781,4.595,4.421,3.704,3.177,2.778,2.467,2.016,1.706,1.482,1.312,1.18,1.073,0.9855};
    299 AddData(E,O_5,dens[j]*factor);
    300 G4double O_6[31]={2.883,3.21,3.792,4.3,4.747,5.143,5.49,5.792,6.051,6.861,7.178,7.275,7.27,7.133,6.932,6.714,6.495,6.282,6.076,5.88,5.04,4.392,3.885,3.479,2.874,2.448,2.134,1.893,1.703,1.55,1.423};
    301 AddData(E,O_6,dens[j]*factor);
    302 G4double O_7[31]={3.103,3.469,4.13,4.714,5.236,5.704,6.124,6.497,6.827,7.932,8.439,8.65,8.715,8.653,8.486,8.281,8.063,7.843,7.627,7.417,6.482,5.729,5.121,4.623,3.862,3.312,2.899,2.578,2.323,2.115,1.944};
    303 AddData(E,O_7,dens[j]*factor);
    304 G4double O_8[31]={3.292,3.69,4.419,5.072,5.662,6.198,6.684,7.124,7.52,8.922,9.637,9.981,10.13,10.17,10.05,9.869,9.663,9.446,9.227,9.009,8.006,7.164,6.467,5.883,4.969,4.292,3.775,3.367,3.04,2.772,2.549};
    305 AddData(E,O_8,dens[j]*factor);
    306 G4double O_9[31]={3.458,3.881,4.667,5.381,6.03,6.623,7.168,7.666,8.121,9.803,10.73,11.21,11.46,11.6,11.54,11.38,11.19,10.98,10.76,10.54,9.49,8.58,7.808,7.152,6.106,5.316,4.702,4.213,3.815,3.487,3.212};
    307 AddData(E,O_9,dens[j]*factor);
    308 G4double O_10[31]={3.612,4.056,4.889,5.655,6.357,7.003,7.601,8.152,8.661,10.61,11.75,12.39,12.74,13,13,12.88,12.71,12.51,12.3,12.08,10.99,10.02,9.187,8.466,7.298,6.4,5.692,5.122,4.655,4.266,3.937};
    309 AddData(E,O_10,dens[j]*factor);
    310 G4double O_11[31]={3.734,4.194,5.066,5.876,6.626,7.321,7.967,8.569,9.128,11.33,12.71,13.52,13.98,14.39,14.47,14.4,14.26,14.08,13.88,13.66,12.56,11.55,10.66,9.877,8.591,7.584,6.78,6.126,5.584,5.13,4.744};
    311 AddData(E,O_11,dens[j]*factor);
    312 G4double O_12[31]={3.869,4.34,5.238,6.083,6.872,7.608,8.296,8.939,9.541,11.98,13.57,14.55,15.14,15.71,15.88,15.86,15.75,15.59,15.4,15.19,14.09,13.04,12.1,11.27,9.882,8.78,7.89,7.158,6.548,6.032,5.591};
    313 AddData(E,O_12,dens[j]*factor);
    314 G4double O_13[31]={3.995,4.477,5.398,6.269,7.09,7.864,8.591,9.273,9.915,12.56,14.37,15.52,16.25,16.99,17.26,17.31,17.24,17.11,16.94,16.74,15.64,14.57,13.59,12.72,11.23,10.04,9.066,8.257,7.577,6.998,6.501};
    315 AddData(E,O_13,dens[j]*factor);
    316 G4double O_14[31]={4.121,4.612,5.552,6.446,7.295,8.1,8.86,9.576,10.25,13.09,15.09,16.42,17.29,18.21,18.58,18.7,18.68,18.58,18.43,18.24,17.17,16.07,15.06,14.15,12.58,11.3,10.25,9.372,8.626,7.989,7.437};
    317 AddData(E,O_14,dens[j]*factor);
    318 G4double O_15[31]={4.248,4.749,5.704,6.618,7.493,8.327,9.118,9.867,10.58,13.59,15.79,17.3,18.31,19.44,19.94,20.15,20.19,20.13,20.01,19.85,18.83,17.73,16.7,15.75,14.1,12.73,11.59,10.63,9.812,9.106,8.493};
    319 AddData(E,O_15,dens[j]*factor);
    320 G4double O_16[31]={4.365,4.877,5.853,6.788,7.688,8.549,9.37,10.15,10.89,14.07,16.46,18.15,19.31,20.64,21.28,21.58,21.68,21.67,21.59,21.46,20.51,19.42,18.37,17.39,15.66,14.21,12.99,11.95,11.06,10.29,9.614};
    321 AddData(E,O_16,dens[j]*factor);
    322 G4double O_17[31]={4.501,5.022,6.013,6.964,7.882,8.766,9.61,10.42,11.18,14.52,17.07,18.93,20.23,21.78,22.56,22.95,23.12,23.16,23.11,23.01,22.12,21.04,19.98,18.97,17.18,15.66,14.37,13.26,12.3,11.47,10.73};
    323 AddData(E,O_17,dens[j]*factor);
    324 G4double O_18[31]={4.604,5.133,6.139,7.102,8.034,8.934,9.799,10.63,11.42,14.88,17.59,19.61,21.06,22.82,23.73,24.21,24.44,24.53,24.52,24.44,23.61,22.54,21.46,20.43,18.58,17,15.64,14.47,13.46,12.58,11.8};
    325 AddData(E,O_18,dens[j]*factor);
    326 j++;
    327 
    328 G4double Ne_3[31]={1.497,1.622,1.831,1.999,2.136,2.25,2.343,2.42,2.481,2.631,2.638,2.589,2.519,2.364,2.215,2.079,1.957,1.848,1.749,1.66,1.322,1.1,0.9434,0.8276,0.6681,0.5634,0.4893,0.4339,0.3908,0.3562,0.3278};
    329 AddData(E,Ne_3,dens[j]*factor);
    330 G4double Ne_4[31]={1.876,2.046,2.338,2.58,2.787,2.964,3.117,3.248,3.36,3.697,3.808,3.811,3.765,3.618,3.452,3.29,3.136,2.993,2.861,2.738,2.249,1.905,1.652,1.46,1.186,1.003,0.8715,0.7727,0.6956,0.6338,0.583};
    331 AddData(E,Ne_4,dens[j]*factor);
    332 G4double Ne_5[31]={2.174,2.385,2.752,3.065,3.337,3.576,3.787,3.975,4.14,4.693,4.939,5.024,5.025,4.919,4.76,4.589,4.419,4.255,4.099,3.952,3.335,2.875,2.523,2.247,1.845,1.567,1.364,1.211,1.09,0.9929,0.913};
    333 AddData(E,Ne_5,dens[j]*factor);
    334 G4double Ne_6[31]={2.414,2.661,3.1,3.48,3.815,4.113,4.382,4.624,4.841,5.622,6.026,6.212,6.277,6.237,6.104,5.939,5.765,5.591,5.42,5.256,4.538,3.975,3.529,3.17,2.631,2.249,1.965,1.747,1.574,1.434,1.319};
    335 AddData(E,Ne_6,dens[j]*factor);
    336 G4double Ne_7[31]={2.603,2.879,3.377,3.817,4.21,4.565,4.887,5.181,5.45,6.461,7.043,7.352,7.499,7.553,7.465,7.32,7.153,6.978,6.801,6.627,5.834,5.184,4.652,4.213,3.537,3.044,2.671,2.381,2.149,1.959,1.802};
    337 AddData(E,Ne_7,dens[j]*factor);
    338 G4double Ne_8[31]={2.789,3.09,3.64,4.133,4.578,4.984,5.356,5.698,6.013,7.245,8.009,8.452,8.695,8.863,8.833,8.72,8.569,8.401,8.225,8.048,7.204,6.481,5.873,5.36,4.55,3.945,3.479,3.111,2.813,2.569,2.365};
    339 AddData(E,Ne_8,dens[j]*factor);
    340 G4double Ne_9[31]={2.946,3.267,3.86,4.399,4.892,5.344,5.762,6.148,6.507,7.945,8.888,9.47,9.813,10.11,10.14,10.06,9.933,9.775,9.604,9.426,8.547,7.768,7.097,6.523,5.597,4.891,4.338,3.895,3.534,3.234,2.983};
    341 AddData(E,Ne_9,dens[j]*factor);
    342 G4double Ne_10[31]={3.091,3.431,4.061,4.64,5.175,5.67,6.13,6.558,6.957,8.59,9.709,10.43,10.89,11.32,11.43,11.39,11.29,11.15,10.98,10.81,9.909,9.083,8.359,7.728,6.696,5.894,5.256,4.741,4.316,3.961,3.66};
    343 AddData(E,Ne_10,dens[j]*factor);
    344 G4double Ne_11[31]={3.201,3.555,4.218,4.832,5.406,5.941,6.442,6.91,7.349,9.177,10.48,11.36,11.93,12.52,12.72,12.74,12.67,12.55,12.4,12.23,11.33,10.47,9.695,9.015,7.882,6.985,6.262,5.67,5.179,4.764,4.412};
    345 AddData(E,Ne_11,dens[j]*factor);
    346 G4double Ne_12[31]={3.316,3.68,4.365,5.005,5.608,6.176,6.71,7.213,7.688,9.693,11.17,12.2,12.9,13.66,13.96,14.04,14,13.9,13.77,13.61,12.71,11.82,11.01,10.29,9.066,8.086,7.287,6.626,6.073,5.603,5.2};
    347 AddData(E,Ne_12,dens[j]*factor);
    348 G4double Ne_13[31]={3.429,3.801,4.503,5.164,5.791,6.386,6.95,7.485,7.992,10.16,11.8,12.98,13.81,14.76,15.17,15.32,15.33,15.27,15.15,15,14.12,13.21,12.37,11.61,10.31,9.247,8.373,7.644,7.027,6.501,6.046};
    349 AddData(E,Ne_13,dens[j]*factor);
    350 G4double Ne_14[31]={3.539,3.919,4.635,5.311,5.957,6.574,7.164,7.725,8.261,10.58,12.36,13.69,14.65,15.79,16.33,16.56,16.62,16.58,16.49,16.36,15.51,14.58,13.72,12.92,11.55,10.42,9.473,8.679,8.004,7.423,6.92};
    351 AddData(E,Ne_14,dens[j]*factor);
    352 G4double Ne_15[31]={3.647,4.032,4.759,5.448,6.108,6.744,7.355,7.942,8.503,10.96,12.89,14.37,15.46,16.81,17.49,17.82,17.95,17.96,17.91,17.8,17,16.09,15.2,14.38,12.93,11.73,10.71,9.845,9.104,8.463,7.904};
    353 AddData(E,Ne_15,dens[j]*factor);
    354 G4double Ne_16[31]={3.75,4.145,4.888,5.592,6.268,6.922,7.554,8.163,8.749,11.34,13.41,15.03,16.25,17.81,18.64,19.07,19.27,19.34,19.32,19.25,18.52,17.61,16.72,15.87,14.37,13.09,12,11.07,10.26,9.562,8.947};
    355 AddData(E,Ne_16,dens[j]*factor);
    356 G4double Ne_17[31]={3.861,4.261,5.013,5.725,6.413,7.081,7.73,8.359,8.965,11.67,13.88,15.62,16.97,18.75,19.73,20.26,20.53,20.65,20.68,20.63,19.98,19.09,18.19,17.32,15.77,14.43,13.27,12.28,11.42,10.66,9.997};
    357 AddData(E,Ne_17,dens[j]*factor);
    358 G4double Ne_18[31]={3.955,4.36,5.12,5.839,6.536,7.216,7.88,8.526,9.152,11.97,14.29,16.16,17.62,19.6,20.73,21.37,21.72,21.89,21.95,21.94,21.35,20.47,19.56,18.68,17.07,15.67,14.46,13.42,12.51,11.7,10.99};
    359 AddData(E,Ne_18,dens[j]*factor);
    360 j++;
    361 
    362 G4double Al_3[31]={1.388,1.496,1.67,1.8,1.898,1.971,2.024,2.063,2.093,2.164,2.172,2.15,2.111,2.01,1.901,1.797,1.701,1.612,1.532,1.459,1.176,0.9856,0.8498,0.7483,0.6073,0.514,0.4476,0.3977,0.3588,0.3275,0.3018};
    363 AddData(E,Al_3,dens[j]*factor);
    364 G4double Al_4[31]={1.754,1.91,2.167,2.37,2.531,2.659,2.76,2.838,2.901,3.08,3.151,3.17,3.156,3.075,2.963,2.843,2.723,2.61,2.502,2.402,1.995,1.702,1.484,1.316,1.076,0.9136,0.7962,0.7076,0.6382,0.5824,0.5365};
    365 AddData(E,Al_4,dens[j]*factor);
    366 G4double Al_5[31]={2.047,2.247,2.586,2.86,3.084,3.269,3.421,3.545,3.646,3.96,4.113,4.188,4.214,4.181,4.086,3.966,3.838,3.709,3.584,3.464,2.952,2.562,2.261,2.022,1.67,1.425,1.245,1.107,0.9991,0.9116,0.8395};
    367 AddData(E,Al_5,dens[j]*factor);
    368 G4double Al_6[31]={2.284,2.525,2.94,3.284,3.571,3.813,4.016,4.188,4.332,4.8,5.049,5.192,5.269,5.301,5.241,5.136,5.01,4.876,4.741,4.608,4.013,3.537,3.157,2.847,2.378,2.042,1.791,1.596,1.442,1.316,1.212};
    369 AddData(E,Al_6,dens[j]*factor);
    370 G4double Al_7[31]={2.478,2.753,3.234,3.641,3.988,4.286,4.541,4.761,4.95,5.583,5.941,6.164,6.302,6.419,6.409,6.331,6.218,6.088,5.951,5.812,5.157,4.609,4.156,3.779,3.192,2.76,2.431,2.173,1.966,1.797,1.655};
    371 AddData(E,Al_7,dens[j]*factor);
    372 G4double Al_8[31]={2.648,2.953,3.495,3.962,4.366,4.718,5.024,5.292,5.525,6.328,6.801,7.108,7.314,7.528,7.581,7.541,7.45,7.331,7.199,7.059,6.366,5.757,5.24,4.801,4.1,3.572,3.162,2.836,2.572,2.353,2.17};
    373 AddData(E,Al_8,dens[j]*factor);
    374 G4double Al_9[31]={2.795,3.126,3.719,4.238,4.693,5.094,5.448,5.762,6.039,7.017,7.606,8.001,8.275,8.59,8.709,8.712,8.648,8.544,8.418,8.281,7.563,6.906,6.336,5.843,5.044,4.428,3.942,3.551,3.23,2.963,2.737};
    375 AddData(E,Al_9,dens[j]*factor);
    376 G4double Al_10[31]={2.924,3.276,3.913,4.477,4.978,5.424,5.822,6.178,6.496,7.647,8.355,8.841,9.188,9.614,9.809,9.863,9.833,9.751,9.638,9.508,8.781,8.087,7.471,6.931,6.04,5.34,4.781,4.325,3.947,3.63,3.361};
    377 AddData(E,Al_10,dens[j]*factor);
    378 G4double Al_11[31]={3.037,3.406,4.083,4.69,5.235,5.725,6.167,6.566,6.926,8.264,9.11,9.701,10.14,10.7,10.99,11.12,11.14,11.09,11.01,10.89,10.19,9.479,8.825,8.24,7.25,6.456,5.808,5.273,4.826,4.446,4.121};
    379 AddData(E,Al_11,dens[j]*factor);
    380 G4double Al_12[31]={3.156,3.539,4.245,4.883,5.462,5.987,6.463,6.895,7.288,8.778,9.738,10.41,10.92,11.59,11.96,12.14,12.2,12.17,12.1,11.99,11.28,10.54,9.851,9.231,8.178,7.325,6.625,6.042,5.551,5.132,4.772};
    381 AddData(E,Al_12,dens[j]*factor);
    382 G4double Al_13[31]={3.267,3.662,4.395,5.063,5.672,6.23,6.739,7.205,7.631,9.28,10.36,11.14,11.72,12.52,12.99,13.24,13.35,13.36,13.31,13.23,12.55,11.79,11.07,10.42,9.298,8.375,7.609,6.967,6.421,5.953,5.547};
    383 AddData(E,Al_13,dens[j]*factor);
    384 G4double Al_14[31]={3.374,3.779,4.534,5.227,5.864,6.449,6.988,7.484,7.941,9.742,10.95,11.82,12.48,13.41,13.98,14.3,14.47,14.52,14.5,14.43,13.79,13.02,12.29,11.61,10.42,9.435,8.61,7.912,7.315,6.799,6.349};
    385 AddData(E,Al_14,dens[j]*factor);
    386 G4double Al_15[31]={3.473,3.887,4.662,5.378,6.039,6.65,7.216,7.74,8.226,10.17,11.51,12.47,13.22,14.28,14.96,15.38,15.61,15.72,15.74,15.7,15.12,14.36,13.61,12.91,11.66,10.62,9.727,8.969,8.314,7.745,7.248};
    387 AddData(E,Al_15,dens[j]*factor);
    388 G4double Al_16[31]={3.569,3.992,4.787,5.523,6.208,6.844,7.436,7.987,8.5,10.59,12.05,13.12,13.94,15.15,15.94,16.44,16.74,16.9,16.97,16.96,16.46,15.72,14.96,14.24,12.95,11.84,10.89,10.07,9.364,8.744,8.198};
    389 AddData(E,Al_16,dens[j]*factor);
    390 G4double Al_17[31]={3.673,4.103,4.913,5.666,6.369,7.025,7.639,8.213,8.751,10.97,12.55,13.72,14.63,15.97,16.87,17.46,17.84,18.05,18.16,18.19,17.77,17.05,16.29,15.55,14.21,13.05,12.05,11.18,10.42,9.75,9.159};
    391 AddData(E,Al_17,dens[j]*factor);
    392 G4double Al_18[31]={3.756,4.193,5.016,5.782,6.499,7.171,7.803,8.397,8.956,11.29,12.99,14.25,15.24,16.7,17.7,18.38,18.82,19.09,19.24,19.3,18.96,18.26,17.49,16.74,15.37,14.16,13.12,12.2,11.4,10.69,10.07};
    393 AddData(E,Al_18,dens[j]*factor);
    394 j++;
    395 
    396 G4double Si_3[31]={1.468,1.612,1.817,1.946,2.033,2.093,2.137,2.169,2.192,2.242,2.237,2.208,2.167,2.066,1.96,1.856,1.759,1.67,1.589,1.514,1.224,1.027,0.8863,0.7809,0.634,0.5366,0.4672,0.4151,0.3745,0.3418,0.3149};
    397 AddData(E,Si_3,dens[j]*factor);
    398 G4double Si_4[31]={1.792,1.998,2.323,2.55,2.71,2.828,2.918,2.988,3.043,3.195,3.247,3.254,3.236,3.155,3.047,2.929,2.811,2.697,2.589,2.488,2.071,1.77,1.545,1.371,1.122,0.9528,0.8305,0.7381,0.6658,0.6075,0.5596};
    399 AddData(E,Si_4,dens[j]*factor);
    400 G4double Si_5[31]={2.047,2.299,2.729,3.055,3.297,3.48,3.623,3.738,3.831,4.113,4.241,4.3,4.318,4.283,4.193,4.079,3.954,3.827,3.702,3.581,3.06,2.66,2.35,2.103,1.739,1.484,1.297,1.154,1.042,0.9505,0.8753};
    401 AddData(E,Si_5,dens[j]*factor);
    402 G4double Si_6[31]={2.263,2.546,3.059,3.478,3.804,4.057,4.259,4.424,4.56,4.992,5.211,5.333,5.397,5.424,5.37,5.272,5.152,5.022,4.889,4.757,4.154,3.667,3.276,2.957,2.473,2.125,1.864,1.662,1.502,1.371,1.263};
    403 AddData(E,Si_6,dens[j]*factor);
    404 G4double Si_7[31]={2.453,2.758,3.329,3.825,4.23,4.555,4.819,5.036,5.218,5.814,6.138,6.333,6.454,6.561,6.557,6.489,6.386,6.262,6.129,5.992,5.333,4.773,4.308,3.92,3.315,2.869,2.529,2.261,2.047,1.871,1.724};
    405 AddData(E,Si_7,dens[j]*factor);
    406 G4double Si_8[31]={2.634,2.956,3.568,4.125,4.603,4.997,5.323,5.595,5.825,6.596,7.031,7.307,7.49,7.688,7.746,7.719,7.64,7.531,7.404,7.268,6.575,5.955,5.425,4.974,4.254,3.709,3.285,2.949,2.675,2.448,2.259};
    407 AddData(E,Si_8,dens[j]*factor);
    408 G4double Si_9[31]={2.803,3.14,3.782,4.384,4.921,5.379,5.765,6.091,6.369,7.318,7.869,8.227,8.475,8.767,8.889,8.907,8.858,8.767,8.651,8.521,7.809,7.143,6.56,6.055,5.232,4.598,4.096,3.691,3.359,3.083,2.849};
    409 AddData(E,Si_9,dens[j]*factor);
    410 G4double Si_10[31]={2.965,3.318,3.984,4.616,5.2,5.715,6.158,6.537,6.864,7.996,8.666,9.112,9.426,9.819,10.01,10.08,10.07,10,9.901,9.779,9.063,8.361,7.732,7.179,6.263,5.542,4.965,4.494,4.103,3.775,3.496};
    411 AddData(E,Si_10,dens[j]*factor);
    412 G4double Si_11[31]={3.107,3.473,4.161,4.817,5.437,6.001,6.496,6.927,7.302,8.623,9.423,9.963,10.35,10.86,11.13,11.26,11.29,11.25,11.17,11.07,10.36,9.634,8.966,8.369,7.365,6.562,5.909,5.37,4.919,4.537,4.21};
    413 AddData(E,Si_11,dens[j]*factor);
    414 G4double Si_12[31]={3.257,3.639,4.347,5.018,5.665,6.268,6.809,7.287,7.707,9.209,10.13,10.77,11.23,11.85,12.21,12.4,12.47,12.47,12.41,12.32,11.64,10.89,10.19,9.554,8.473,7.595,6.874,6.273,5.765,5.333,4.96};
    415 AddData(E,Si_12,dens[j]*factor);
    416 G4double Si_13[31]={3.396,3.794,4.523,5.207,5.87,6.502,7.083,7.604,8.067,9.75,10.81,11.54,12.08,12.81,13.26,13.52,13.65,13.68,13.65,13.58,12.94,12.18,11.45,10.78,9.63,8.682,7.894,7.231,6.668,6.184,5.764};
    417 AddData(E,Si_13,dens[j]*factor);
    418 G4double Si_14[31]={3.53,3.941,4.694,5.39,6.063,6.716,7.328,7.887,8.39,10.25,11.43,12.26,12.88,13.73,14.27,14.6,14.79,14.86,14.87,14.82,14.22,13.45,12.7,12.01,10.79,9.782,8.932,8.212,7.595,7.062,6.598};
    419 AddData(E,Si_14,dens[j]*factor);
    420 G4double Si_15[31]={3.652,4.078,4.853,5.562,6.244,6.91,7.547,8.139,8.678,10.71,12.03,12.96,13.66,14.64,15.29,15.7,15.95,16.08,16.12,16.1,15.58,14.83,14.07,13.35,12.08,11,10.08,9.303,8.628,8.042,7.527};
    421 AddData(E,Si_15,dens[j]*factor);
    422 G4double Si_16[31]={3.768,4.21,5.011,5.738,6.429,7.107,7.763,8.382,8.954,11.15,12.6,13.64,14.42,15.54,16.29,16.79,17.1,17.29,17.37,17.39,16.96,16.22,15.46,14.72,13.4,12.26,11.28,10.44,9.713,9.073,8.509};
    423 AddData(E,Si_16,dens[j]*factor);
    424 G4double Si_17[31]={3.887,4.344,5.168,5.91,6.609,7.292,7.961,8.602,9.201,11.55,13.14,14.28,15.14,16.39,17.24,17.83,18.21,18.45,18.58,18.64,18.3,17.59,16.82,16.07,14.7,13.51,12.48,11.59,10.8,10.12,9.505};
    425 AddData(E,Si_17,dens[j]*factor);
    426 G4double Si_18[31]={3.994,4.465,5.314,6.074,6.781,7.469,8.146,8.803,9.426,11.92,13.63,14.87,15.82,17.2,18.15,18.82,19.27,19.56,19.74,19.83,19.57,18.89,18.12,17.35,15.94,14.7,13.62,12.68,11.85,11.12,10.47};
    427 AddData(E,Si_18,dens[j]*factor);
    428 j++;
    429 
    430 G4double Ar_3[31]={1.288,1.41,1.603,1.742,1.838,1.904,1.949,1.979,1.998,2.017,1.985,1.936,1.882,1.773,1.672,1.58,1.498,1.423,1.355,1.293,1.053,0.8894,0.7709,0.6814,0.5556,0.4714,0.4111,0.3656,0.3301,0.3014,0.2778};
    431 AddData(E,Ar_3,dens[j]*factor);
    432 G4double Ar_4[31]={1.578,1.748,2.032,2.253,2.422,2.549,2.645,2.716,2.769,2.886,2.898,2.87,2.825,2.716,2.604,2.495,2.393,2.297,2.207,2.123,1.779,1.528,1.34,1.193,0.9809,0.8355,0.7297,0.6495,0.5864,0.5355,0.4936};
    433 AddData(E,Ar_4,dens[j]*factor);
    434 G4double Ar_5[31]={1.804,2.017,2.382,2.68,2.92,3.111,3.261,3.38,3.474,3.723,3.801,3.81,3.787,3.699,3.591,3.479,3.367,3.258,3.154,3.054,2.624,2.292,2.032,1.825,1.516,1.299,1.138,1.014,0.9162,0.837,0.7714};
    435 AddData(E,Ar_5,dens[j]*factor);
    436 G4double Ar_6[31]={1.988,2.236,2.672,3.04,3.347,3.601,3.808,3.978,4.116,4.52,4.682,4.742,4.752,4.7,4.609,4.502,4.39,4.276,4.164,4.054,3.559,3.155,2.828,2.561,2.151,1.855,1.632,1.458,1.319,1.206,1.112};
    437 AddData(E,Ar_6,dens[j]*factor);
    438 G4double Ar_7[31]={2.142,2.417,2.912,3.34,3.708,4.02,4.283,4.504,4.689,5.262,5.524,5.648,5.701,5.701,5.638,5.547,5.442,5.331,5.218,5.104,4.564,4.101,3.713,3.388,2.878,2.5,2.209,1.98,1.795,1.643,1.516};
    439 AddData(E,Ar_7,dens[j]*factor);
    440 G4double Ar_8[31]={2.285,2.582,3.126,3.606,4.027,4.394,4.71,4.98,5.212,5.963,6.336,6.532,6.635,6.7,6.673,6.605,6.515,6.412,6.302,6.188,5.621,5.111,4.67,4.292,3.686,3.225,2.865,2.576,2.342,2.147,1.983};
    441 AddData(E,Ar_8,dens[j]*factor);
    442 G4double Ar_9[31]={2.419,2.731,3.314,3.838,4.306,4.721,5.085,5.402,5.678,6.609,7.1,7.374,7.533,7.667,7.682,7.64,7.567,7.475,7.372,7.261,6.682,6.134,5.649,5.226,4.534,3.996,3.57,3.224,2.94,2.702,2.501};
    443 AddData(E,Ar_9,dens[j]*factor);
    444 G4double Ar_10[31]={2.55,2.874,3.487,4.048,4.556,5.014,5.422,5.783,6.101,7.21,7.824,8.183,8.402,8.616,8.679,8.668,8.616,8.539,8.446,8.342,7.76,7.185,6.662,6.199,5.428,4.818,4.327,3.925,3.59,3.308,3.068};
    445 AddData(E,Ar_10,dens[j]*factor);
    446 G4double Ar_11[31]={2.671,3.004,3.641,4.233,4.776,5.271,5.718,6.12,6.478,7.764,8.509,8.961,9.249,9.555,9.674,9.701,9.676,9.617,9.537,9.443,8.874,8.28,7.726,7.227,6.381,5.7,5.145,4.686,4.3,3.973,3.692};
    447 AddData(E,Ar_11,dens[j]*factor);
    448 G4double Ar_12[31]={2.799,3.14,3.794,4.41,4.981,5.509,5.992,6.43,6.826,8.279,9.153,9.699,10.06,10.46,10.64,10.71,10.71,10.67,10.61,10.52,9.972,9.364,8.785,8.254,7.342,6.599,5.986,5.473,5.039,4.668,4.348};
    449 AddData(E,Ar_12,dens[j]*factor);
    450 G4double Ar_13[31]={2.923,3.272,3.942,4.577,5.173,5.727,6.24,6.712,7.142,8.757,9.761,10.41,10.84,11.34,11.59,11.7,11.74,11.73,11.68,11.61,11.09,10.48,9.876,9.319,8.347,7.543,6.873,6.308,5.826,5.411,5.051};
    451 AddData(E,Ar_13,dens[j]*factor);
    452 G4double Ar_14[31]={3.044,3.402,4.085,4.736,5.351,5.928,6.467,6.967,7.428,9.196,10.33,11.07,11.58,12.19,12.51,12.67,12.74,12.76,12.73,12.68,12.2,11.58,10.97,10.39,9.361,8.502,7.779,7.165,6.637,6.181,5.782};
    453 AddData(E,Ar_14,dens[j]*factor);
    454 G4double Ar_15[31]={3.158,3.525,4.22,4.883,5.514,6.11,6.671,7.197,7.686,9.599,10.86,11.71,12.3,13.02,13.42,13.65,13.76,13.81,13.81,13.78,13.36,12.76,12.14,11.54,10.46,9.552,8.774,8.108,7.532,7.03,6.589};
    455 AddData(E,Ar_15,dens[j]*factor);
    456 G4double Ar_16[31]={3.27,3.647,4.357,5.032,5.678,6.291,6.872,7.42,7.933,9.984,11.37,12.32,13,13.85,14.33,14.61,14.78,14.86,14.9,14.89,14.53,13.95,13.33,12.72,11.6,10.64,9.809,9.093,8.47,7.923,7.441};
    457 AddData(E,Ar_16,dens[j]*factor);
    458 G4double Ar_17[31]={3.382,3.77,4.494,5.178,5.835,6.462,7.059,7.625,8.16,10.34,11.84,12.9,13.66,14.63,15.2,15.55,15.76,15.88,15.95,15.96,15.68,15.13,14.51,13.89,12.73,11.72,10.85,10.09,9.419,8.83,8.309};
    459 AddData(E,Ar_17,dens[j]*factor);
    460 G4double Ar_18[31]={3.489,3.89,4.63,5.325,5.991,6.63,7.24,7.822,8.376,10.67,12.29,13.45,14.29,15.39,16.04,16.45,16.71,16.87,16.97,17.01,16.8,16.26,15.64,15.01,13.82,12.77,11.85,11.04,10.34,9.712,9.155};
    461 AddData(E,Ar_18,dens[j]*factor);
    462 j++;
    463 
    464 G4double Ti_3[31]={1.008,1.108,1.272,1.4,1.5,1.577,1.635,1.68,1.715,1.785,1.777,1.743,1.7,1.612,1.527,1.448,1.376,1.311,1.251,1.197,0.9831,0.8357,0.7282,0.6465,0.5304,0.452,0.3954,0.3525,0.3188,0.2916,0.269};
    465 AddData(E,Ti_3,dens[j]*factor);
    466 G4double Ti_4[31]={1.218,1.356,1.594,1.789,1.949,2.081,2.187,2.274,2.345,2.538,2.587,2.579,2.548,2.464,2.372,2.281,2.193,2.11,2.032,1.959,1.656,1.433,1.263,1.13,0.9349,0.7999,0.701,0.6255,0.5659,0.5177,0.4777};
    467 AddData(E,Ti_4,dens[j]*factor);
    468 G4double Ti_5[31]={1.374,1.544,1.846,2.103,2.321,2.507,2.664,2.796,2.907,3.249,3.381,3.419,3.414,3.353,3.268,3.175,3.081,2.988,2.898,2.812,2.438,2.145,1.912,1.725,1.442,1.241,1.091,0.9755,0.8833,0.8084,0.7461};
    469 AddData(E,Ti_5,dens[j]*factor);
    470 G4double Ti_6[31]={1.498,1.692,2.047,2.358,2.631,2.869,3.075,3.253,3.406,3.912,4.147,4.247,4.279,4.258,4.19,4.105,4.012,3.916,3.821,3.727,3.3,2.947,2.657,2.416,2.043,1.77,1.563,1.401,1.27,1.164,1.075};
    471 AddData(E,Ti_6,dens[j]*factor);
    472 G4double Ti_7[31]={1.6,1.812,2.207,2.563,2.883,3.168,3.42,3.643,3.839,4.516,4.869,5.044,5.125,5.16,5.122,5.053,4.968,4.876,4.781,4.685,4.224,3.823,3.481,3.191,2.73,2.382,2.113,1.9,1.727,1.583,1.464};
    473 AddData(E,Ti_7,dens[j]*factor);
    474 G4double Ti_8[31]={1.696,1.922,2.348,2.742,3.102,3.428,3.723,3.988,4.225,5.076,5.555,5.816,5.956,6.06,6.06,6.014,5.944,5.86,5.768,5.673,5.194,4.756,4.371,4.036,3.49,3.068,2.736,2.468,2.249,2.067,1.912};
    475 AddData(E,Ti_8,dens[j]*factor);
    476 G4double Ti_9[31]={1.789,2.024,2.474,2.896,3.289,3.651,3.984,4.287,4.561,5.582,6.192,6.547,6.751,6.932,6.976,6.956,6.903,6.831,6.746,6.655,6.17,5.705,5.284,4.911,4.29,3.8,3.407,3.087,2.822,2.599,2.41};
    477 AddData(E,Ti_9,dens[j]*factor);
    478 G4double Ti_10[31]={1.883,2.125,2.593,3.037,3.457,3.849,4.214,4.551,4.86,6.044,6.786,7.241,7.517,7.788,7.882,7.894,7.862,7.804,7.73,7.645,7.164,6.679,6.23,5.824,5.134,4.58,4.129,3.756,3.445,3.181,2.955};
    479 AddData(E,Ti_10,dens[j]*factor);
    480 G4double Ti_11[31]={1.969,2.218,2.7,3.162,3.603,4.02,4.413,4.78,5.121,6.462,7.338,7.9,8.255,8.629,8.784,8.835,8.83,8.79,8.728,8.653,8.186,7.69,7.218,6.783,6.031,5.415,4.906,4.482,4.124,3.818,3.554};
    481 AddData(E,Ti_11,dens[j]*factor);
    482 G4double Ti_12[31]={2.062,2.316,2.808,3.283,3.74,4.178,4.594,4.987,5.356,6.841,7.846,8.514,8.953,9.436,9.658,9.753,9.777,9.758,9.711,9.646,9.197,8.694,8.204,7.745,6.939,6.267,5.706,5.233,4.831,4.484,4.184};
    483 AddData(E,Ti_12,dens[j]*factor);
    484 G4double Ti_13[31]={2.154,2.414,2.917,3.402,3.873,4.326,4.762,5.177,5.57,7.192,8.324,9.101,9.626,10.23,10.52,10.66,10.72,10.72,10.7,10.64,10.23,9.723,9.219,8.741,7.886,7.162,6.55,6.029,5.583,5.196,4.859};
    485 AddData(E,Ti_13,dens[j]*factor);
    486 G4double Ti_14[31]={2.246,2.512,3.023,3.518,3.998,4.465,4.915,5.348,5.762,7.509,8.763,9.648,10.26,10.98,11.35,11.55,11.64,11.67,11.66,11.63,11.25,10.75,10.24,9.74,8.842,8.071,7.413,6.848,6.359,5.934,5.561};
    487 AddData(E,Ti_14,dens[j]*factor);
    488 G4double Ti_15[31]={2.33,2.602,3.122,3.624,4.112,4.589,5.052,5.5,5.932,7.792,9.166,10.16,10.86,11.72,12.18,12.43,12.57,12.64,12.65,12.64,12.31,11.83,11.32,10.81,9.876,9.059,8.354,7.742,7.21,6.744,6.333};
    489 AddData(E,Ti_15,dens[j]*factor);
    490 G4double Ti_16[31]={2.246,2.512,3.023,3.518,3.998,4.465,4.915,5.348,5.762,7.509,8.763,9.648,10.26,10.98,11.35,11.55,11.64,11.67,11.66,11.63,11.25,10.75,10.24,9.74,8.842,8.071,7.413,6.848,6.359,5.934,5.561};
    491 AddData(E,Ti_16,dens[j]*factor);
    492 G4double Ti_17[31]={2.5,2.786,3.327,3.844,4.346,4.838,5.32,5.792,6.25,8.302,9.896,11.1,11.99,13.13,13.77,14.16,14.39,14.53,14.61,14.64,14.45,14.01,13.51,12.99,12,11.1,10.32,9.62,9.006,8.461,7.976};
    493 AddData(E,Ti_17,dens[j]*factor);
    494 G4double Ti_18[31]={2.585,2.879,3.433,3.958,4.467,4.965,5.454,5.934,6.403,8.533,10.23,11.53,12.52,13.8,14.53,14.99,15.27,15.45,15.55,15.6,15.48,15.07,14.57,14.04,13.02,12.1,11.27,10.54,9.887,9.308,8.791};
    495 AddData(E,Ti_18,dens[j]*factor);
    496 j++;
    497 
    498 G4double Fe_3[31]={0.8835,0.9749,1.128,1.249,1.346,1.422,1.481,1.526,1.561,1.644,1.652,1.63,1.595,1.515,1.436,1.363,1.297,1.236,1.18,1.13,0.9314,0.7945,0.6945,0.6183,0.5096,0.4358,0.3822,0.3414,0.3092,0.2831,0.2615};
    499 AddData(E,Fe_3,dens[j]*factor);
    500 G4double Fe_4[31]={1.055,1.181,1.398,1.58,1.732,1.859,1.964,2.051,2.121,2.322,2.391,2.401,2.383,2.312,2.227,2.142,2.061,1.984,1.912,1.844,1.565,1.359,1.202,1.078,0.8965,0.7699,0.6767,0.6051,0.5484,0.5024,0.4642};
    501 AddData(E,Fe_4,dens[j]*factor);
    502 G4double Fe_5[31]={1.178,1.33,1.603,1.839,2.044,2.221,2.373,2.502,2.612,2.956,3.108,3.17,3.182,3.14,3.064,2.978,2.891,2.805,2.722,2.642,2.298,2.029,1.815,1.642,1.38,1.193,1.052,0.9424,0.8551,0.7837,0.7243};
    503 AddData(E,Fe_5,dens[j]*factor);
    504 G4double Fe_6[31]={1.273,1.446,1.764,2.047,2.299,2.522,2.719,2.892,3.042,3.543,3.794,3.92,3.976,3.98,3.924,3.846,3.76,3.672,3.584,3.497,3.105,2.782,2.516,2.295,1.952,1.698,1.504,1.351,1.228,1.127,1.042};
    505 AddData(E,Fe_6,dens[j]*factor);
    506 G4double Fe_7[31]={1.349,1.535,1.886,2.208,2.5,2.765,3.003,3.217,3.407,4.072,4.434,4.636,4.745,4.815,4.792,4.731,4.654,4.569,4.481,4.392,3.968,3.602,3.291,3.026,2.602,2.281,2.03,1.83,1.667,1.532,1.418};
    507 AddData(E,Fe_7,dens[j]*factor);
    508 G4double Fe_8[31]={1.422,1.617,1.994,2.347,2.674,2.974,3.249,3.5,3.727,4.558,5.037,5.324,5.495,5.643,5.663,5.627,5.564,5.487,5.403,5.315,4.875,4.475,4.126,3.821,3.321,2.933,2.624,2.374,2.168,1.996,1.85};
    509 AddData(E,Fe_8,dens[j]*factor);
    510 G4double Fe_9[31]={1.492,1.695,2.089,2.466,2.82,3.151,3.458,3.741,4.002,4.993,5.594,5.97,6.208,6.444,6.514,6.508,6.463,6.397,6.319,6.235,5.788,5.364,4.984,4.646,4.079,3.629,3.265,2.967,2.718,2.509,2.33};
    511 AddData(E,Fe_9,dens[j]*factor);
    512 G4double Fe_10[31]={1.564,1.772,2.179,2.574,2.951,3.306,3.64,3.953,4.244,5.386,6.111,6.58,6.89,7.226,7.354,7.383,7.36,7.309,7.241,7.163,6.721,6.279,5.872,5.505,4.879,4.37,3.953,3.607,3.316,3.068,2.855};
    513 AddData(E,Fe_10,dens[j]*factor);
    514 G4double Fe_11[31]={1.632,1.845,2.262,2.67,3.064,3.441,3.799,4.136,4.454,5.738,6.588,7.155,7.543,7.99,8.187,8.259,8.264,8.232,8.177,8.108,7.678,7.226,6.799,6.407,5.726,5.162,4.694,4.3,3.965,3.679,3.431};
    515 AddData(E,Fe_11,dens[j]*factor);
    516 G4double Fe_12[31]={1.706,1.923,2.348,2.765,3.173,3.566,3.943,4.302,4.643,6.055,7.026,7.69,8.156,8.719,8.992,9.113,9.15,9.14,9.1,9.041,8.628,8.169,7.726,7.314,6.585,5.972,5.456,5.018,4.643,4.319,4.037};
    517 AddData(E,Fe_12,dens[j]*factor);
    518 G4double Fe_13[31]={1.778,2,2.432,2.857,3.274,3.681,4.074,4.451,4.811,6.343,7.433,8.196,8.742,9.426,9.779,9.955,10.03,10.05,10.02,9.979,9.594,9.135,8.681,8.25,7.479,6.82,6.259,5.778,5.363,5.002,4.685};
    519 AddData(E,Fe_13,dens[j]*factor);
    520 G4double Fe_14[31]={1.851,2.078,2.517,2.948,3.373,3.79,4.196,4.588,4.965,6.603,7.808,8.669,9.296,10.1,10.54,10.77,10.89,10.93,10.93,10.9,10.55,10.1,9.637,9.193,8.384,7.684,7.082,6.56,6.107,5.71,5.36};
    521 AddData(E,Fe_14,dens[j]*factor);
    522 G4double Fe_15[31]={1.919,2.151,2.597,3.033,3.463,3.888,4.305,4.709,5.101,6.833,8.149,9.109,9.819,10.76,11.29,11.59,11.75,11.83,11.86,11.85,11.56,11.12,10.65,10.2,9.358,8.618,7.974,7.411,6.918,6.484,6.099};
    523 AddData(E,Fe_15,dens[j]*factor);
    524 G4double Fe_16[31]={1.987,2.225,2.681,3.122,3.559,3.991,4.416,4.831,5.235,7.05,8.47,9.527,10.32,11.4,12.03,12.4,12.61,12.73,12.78,12.8,12.56,12.14,11.68,11.22,10.36,9.581,8.898,8.296,7.765,7.294,6.875};
    525 AddData(E,Fe_16,dens[j]*factor);
    526 G4double Fe_17[31]={2.055,2.3,2.764,3.211,3.651,4.087,4.519,4.943,5.357,7.244,8.76,9.911,10.79,12,12.73,13.18,13.44,13.6,13.68,13.72,13.56,13.16,12.71,12.24,11.36,10.55,9.832,9.195,8.628,8.123,7.671};
    527 AddData(E,Fe_17,dens[j]*factor);
    528 G4double Fe_18[31]={2.127,2.378,2.854,3.308,3.753,4.194,4.631,5.062,5.485,7.434,9.04,10.28,11.24,12.58,13.42,13.94,14.26,14.46,14.57,14.63,14.53,14.16,13.71,13.24,12.33,11.49,10.74,10.07,9.473,8.937,8.455};
    529 AddData(E,Fe_18,dens[j]*factor);
    530 j++;
    531 
    532 G4double Ni_3[31]={0.8314,0.9198,1.07,1.193,1.294,1.376,1.443,1.495,1.536,1.634,1.649,1.632,1.601,1.525,1.447,1.375,1.308,1.247,1.192,1.141,0.942,0.8042,0.7035,0.6266,0.5169,0.4423,0.3881,0.3468,0.3142,0.2878,0.266};
    533 AddData(E,Ni_3,dens[j]*factor);
    534 G4double Ni_4[31]={0.9896,1.109,1.32,1.5,1.654,1.786,1.899,1.994,2.072,2.301,2.382,2.399,2.387,2.322,2.24,2.157,2.076,1.999,1.927,1.859,1.579,1.373,1.215,1.091,0.9083,0.7808,0.6867,0.6144,0.5571,0.5105,0.4718};
    535 AddData(E,Ni_4,dens[j]*factor);
    536 G4double Ni_5[31]={1.103,1.245,1.506,1.737,1.941,2.12,2.278,2.417,2.537,2.92,3.091,3.162,3.183,3.151,3.08,2.995,2.908,2.823,2.74,2.66,2.316,2.046,1.832,1.659,1.397,1.208,1.066,0.9562,0.8681,0.796,0.736};
    537 AddData(E,Ni_5,dens[j]*factor);
    538 G4double Ni_6[31]={1.191,1.35,1.649,1.923,2.17,2.393,2.594,2.774,2.934,3.485,3.763,3.904,3.971,3.991,3.942,3.867,3.781,3.693,3.605,3.518,3.125,2.802,2.537,2.316,1.972,1.718,1.523,1.37,1.246,1.144,1.058};
    539 AddData(E,Ni_6,dens[j]*factor);
    540 G4double Ni_7[31]={1.262,1.432,1.759,2.065,2.35,2.611,2.85,3.068,3.266,3.989,4.387,4.609,4.732,4.822,4.809,4.753,4.677,4.592,4.504,4.415,3.991,3.625,3.315,3.05,2.627,2.305,2.054,1.853,1.69,1.553,1.439};
    541 AddData(E,Ni_7,dens[j]*factor);
    542 G4double Ni_8[31]={1.329,1.508,1.855,2.187,2.502,2.796,3.069,3.322,3.555,4.445,4.972,5.283,5.471,5.645,5.679,5.65,5.59,5.513,5.429,5.341,4.899,4.5,4.151,3.847,3.349,2.961,2.653,2.402,2.196,2.023,1.876};
    543 AddData(E,Ni_8,dens[j]*factor);
    544 G4double Ni_9[31]={1.395,1.581,1.942,2.293,2.631,2.952,3.254,3.536,3.8,4.848,5.506,5.914,6.173,6.44,6.529,6.533,6.492,6.427,6.35,6.265,5.816,5.392,5.012,4.675,4.111,3.662,3.299,3,2.751,2.541,2.361};
    545 AddData(E,Ni_9,dens[j]*factor);
    546 G4double Ni_10[31]={1.461,1.653,2.026,2.39,2.746,3.088,3.414,3.722,4.013,5.207,5.998,6.507,6.842,7.213,7.366,7.409,7.392,7.343,7.276,7.198,6.751,6.309,5.903,5.538,4.914,4.408,3.992,3.646,3.355,3.107,2.893};
    547 AddData(E,Ni_10,dens[j]*factor);
    548 G4double Ni_11[31]={1.522,1.719,2.102,2.477,2.846,3.205,3.552,3.883,4.198,5.524,6.447,7.062,7.479,7.967,8.194,8.284,8.298,8.269,8.215,8.146,7.713,7.259,6.833,6.442,5.765,5.204,4.737,4.344,4.01,3.723,3.474};
    549 AddData(E,Ni_11,dens[j]*factor);
    550 G4double Ni_12[31]={1.588,1.791,2.183,2.566,2.944,3.316,3.679,4.029,4.364,5.809,6.856,7.576,8.076,8.685,8.993,9.136,9.186,9.18,9.142,9.084,8.668,8.207,7.764,7.353,6.628,6.019,5.505,5.068,4.693,4.369,4.087};
    551 AddData(E,Ni_12,dens[j]*factor);
    552 G4double Ni_13[31]={1.652,1.86,2.261,2.651,3.037,3.418,3.793,4.158,4.511,6.061,7.229,8.057,8.643,9.378,9.772,9.974,10.06,10.09,10.07,10.03,9.64,9.177,8.722,8.293,7.525,6.871,6.313,5.833,5.419,5.058,4.741};
    553 AddData(E,Ni_13,dens[j]*factor);
    554 G4double Ni_14[31]={1.717,1.93,2.34,2.737,3.129,3.517,3.901,4.278,4.645,6.29,7.571,8.504,9.178,10.04,10.53,10.79,10.92,10.98,10.98,10.96,10.61,10.15,9.683,9.239,8.435,7.74,7.141,6.621,6.169,5.772,5.423};
    555 AddData(E,Ni_14,dens[j]*factor);
    556 G4double Ni_15[31]={1.776,1.994,2.411,2.814,3.211,3.605,3.996,4.382,4.761,6.489,7.879,8.917,9.681,10.68,11.27,11.6,11.79,11.88,11.91,11.91,11.61,11.17,10.7,10.25,9.41,8.676,8.036,7.476,6.985,6.551,6.166};
    557 AddData(E,Ni_15,dens[j]*factor);
    558 G4double Ni_16[31]={1.837,2.061,2.488,2.899,3.302,3.701,4.098,4.492,4.881,6.679,8.166,9.307,10.16,11.3,11.99,12.4,12.64,12.77,12.84,12.86,12.62,12.2,11.73,11.27,10.41,9.641,8.963,8.365,7.836,7.366,6.947};
    559 AddData(E,Ni_16,dens[j]*factor);
    560 G4double Ni_17[31]={1.899,2.127,2.563,2.981,3.389,3.792,4.193,4.593,4.989,6.847,8.422,9.66,10.6,11.89,12.68,13.17,13.47,13.64,13.74,13.78,13.62,13.22,12.76,12.3,11.41,10.61,9.901,9.267,8.703,8.2,7.749};
    561 AddData(E,Ni_17,dens[j]*factor);
    562 G4double Ni_18[31]={1.965,2.199,2.645,3.072,3.486,3.894,4.299,4.704,5.106,7.015,8.67,10,11.03,12.46,13.35,13.92,14.28,14.5,14.63,14.7,14.6,14.22,13.77,13.3,12.39,11.56,10.82,10.15,9.555,9.021,8.54};
    563 AddData(E,Ni_18,dens[j]*factor);
    564 j++;
    565 
    566 G4double Cu_3[31]={0.7526,0.8347,0.9738,1.086,1.178,1.253,1.313,1.361,1.4,1.494,1.511,1.499,1.473,1.406,1.336,1.271,1.21,1.155,1.104,1.058,0.8753,0.7485,0.6555,0.5845,0.483,0.4138,0.3635,0.3251,0.2947,0.2701,0.2497};
    567 AddData(E,Cu_3,dens[j]*factor);
    568 G4double Cu_4[31]={0.8906,1.001,1.197,1.363,1.504,1.624,1.727,1.814,1.887,2.102,2.181,2.201,2.193,2.14,2.068,1.993,1.919,1.85,1.784,1.723,1.467,1.277,1.132,1.017,0.8484,0.7303,0.643,0.5758,0.5225,0.479,0.443};
    569 AddData(E,Cu_4,dens[j]*factor);
    570 G4double Cu_5[31]={0.9874,1.119,1.361,1.574,1.762,1.926,2.07,2.197,2.307,2.666,2.829,2.9,2.924,2.902,2.841,2.767,2.689,2.612,2.537,2.464,2.15,1.903,1.706,1.547,1.304,1.13,0.9983,0.8959,0.8139,0.7468,0.6908};
    571 AddData(E,Cu_5,dens[j]*factor);
    572 G4double Cu_6[31]={1.062,1.209,1.486,1.739,1.966,2.171,2.355,2.52,2.667,3.18,3.443,3.578,3.645,3.673,3.636,3.571,3.496,3.417,3.337,3.258,2.901,2.605,2.361,2.158,1.841,1.606,1.426,1.283,1.168,1.073,0.9932};
    573 AddData(E,Cu_6,dens[j]*factor);
    574 G4double Cu_7[31]={1.121,1.277,1.579,1.862,2.124,2.364,2.584,2.784,2.965,3.636,4.011,4.222,4.341,4.436,4.434,4.389,4.323,4.248,4.169,4.089,3.704,3.369,3.085,2.842,2.452,2.154,1.922,1.736,1.583,1.457,1.35};
    575 AddData(E,Cu_7,dens[j]*factor);
    576 G4double Cu_8[31]={1.18,1.343,1.662,1.968,2.258,2.528,2.779,3.011,3.225,4.049,4.543,4.838,5.018,5.191,5.235,5.216,5.166,5.099,5.024,4.946,4.546,4.181,3.862,3.583,3.125,2.767,2.481,2.249,2.057,1.897,1.76};
    577 AddData(E,Cu_8,dens[j]*factor);
    578 G4double Cu_9[31]={1.238,1.406,1.736,2.058,2.369,2.664,2.942,3.202,3.444,4.412,5.03,5.414,5.659,5.92,6.017,6.03,5.999,5.944,5.876,5.801,5.396,5.01,4.662,4.353,3.835,3.421,3.085,2.808,2.577,2.382,2.215};
    579 AddData(E,Cu_9,dens[j]*factor);
    580 G4double Cu_10[31]={1.298,1.47,1.808,2.141,2.468,2.783,3.083,3.366,3.634,4.735,5.475,5.954,6.27,6.629,6.786,6.837,6.83,6.791,6.733,6.665,6.264,5.862,5.491,5.156,4.584,4.117,3.733,3.413,3.142,2.912,2.713};
    581 AddData(E,Cu_10,dens[j]*factor);
    582 G4double Cu_11[31]={1.354,1.53,1.875,2.217,2.555,2.885,3.203,3.508,3.797,5.02,5.882,6.459,6.852,7.319,7.546,7.642,7.666,7.647,7.602,7.543,7.156,6.744,6.355,5.998,5.376,4.86,4.429,4.065,3.755,3.489,3.257};
    583 AddData(E,Cu_11,dens[j]*factor);
    584 G4double Cu_12[31]={1.416,1.596,1.947,2.294,2.639,2.98,3.314,3.636,3.944,5.275,6.252,6.927,7.397,7.976,8.279,8.427,8.485,8.489,8.46,8.411,8.042,7.625,7.221,6.845,6.181,5.62,5.146,4.742,4.395,4.094,3.831};
    585 AddData(E,Cu_12,dens[j]*factor);
    586 G4double Cu_13[31]={1.476,1.66,2.017,2.368,2.719,3.068,3.412,3.747,4.072,5.5,6.588,7.363,7.913,8.609,8.992,9.197,9.295,9.327,9.319,9.284,8.944,8.526,8.112,7.72,7.017,6.415,5.9,5.457,5.073,4.738,4.444};
    587 AddData(E,Cu_13,dens[j]*factor);
    588 G4double Cu_14[31]={1.536,1.725,2.089,2.445,2.799,3.154,3.506,3.852,4.19,5.705,6.897,7.77,8.401,9.217,9.684,9.948,10.09,10.15,10.16,10.14,9.841,9.427,9.005,8.601,7.865,7.226,6.674,6.194,5.775,5.408,5.083};
    589 AddData(E,Cu_14,dens[j]*factor);
    590 G4double Cu_15[31]={1.592,1.785,2.156,2.516,2.873,3.231,3.589,3.944,4.292,5.883,7.173,8.144,8.859,9.801,10.36,10.69,10.88,10.98,11.02,11.02,10.77,10.37,9.95,9.537,8.772,8.099,7.509,6.993,6.538,6.136,5.779};
    591 AddData(E,Cu_15,dens[j]*factor);
    592 G4double Cu_16[31]={1.649,1.848,2.227,2.592,2.953,3.314,3.677,4.038,4.395,6.052,7.43,8.496,9.295,10.37,11.02,11.43,11.67,11.81,11.88,11.9,11.71,11.33,10.91,10.49,9.704,8.999,8.375,7.823,7.334,6.899,6.511};
    593 AddData(E,Cu_16,dens[j]*factor);
    594 G4double Cu_17[31]={1.706,1.909,2.296,2.667,3.031,3.394,3.759,4.125,4.489,6.2,7.659,8.816,9.697,10.9,11.65,12.13,12.43,12.61,12.71,12.76,12.63,12.28,11.87,11.44,10.64,9.906,9.25,8.666,8.145,7.679,7.261};
    595 AddData(E,Cu_17,dens[j]*factor);
    596 G4double Cu_18[31]={1.766,1.975,2.372,2.75,3.119,3.485,3.853,4.222,4.591,6.35,7.882,9.125,10.09,11.42,12.27,12.82,13.18,13.4,13.53,13.61,13.55,13.21,12.8,12.38,11.55,10.79,10.11,9.493,8.942,8.448,8.002};
    597 AddData(E,Cu_18,dens[j]*factor);
    598 j++;
    599 
    600 G4double Ge_3[31]={0.6441,0.7195,0.842,0.9317,0.9987,1.05,1.091,1.124,1.152,1.233,1.266,1.272,1.263,1.222,1.171,1.119,1.069,1.023,0.9797,0.9402,0.7833,0.673,0.5915,0.5289,0.439,0.3774,0.3323,0.2979,0.2705,0.2483,0.2298};
    601 AddData(E,Ge_3,dens[j]*factor);
    602 G4double Ge_4[31]={0.7658,0.8635,1.037,1.178,1.29,1.379,1.452,1.513,1.565,1.733,1.819,1.86,1.874,1.855,1.809,1.753,1.695,1.637,1.582,1.53,1.311,1.147,1.02,0.9192,0.7703,0.6653,0.5874,0.5272,0.4793,0.4401,0.4075};
    603 AddData(E,Ge_4,dens[j]*factor);
    604 G4double Ge_5[31]={0.8579,0.9711,1.182,1.367,1.522,1.651,1.759,1.85,1.929,2.198,2.352,2.441,2.488,2.51,2.482,2.432,2.373,2.311,2.249,2.188,1.92,1.707,1.536,1.396,1.183,1.028,0.9111,0.8196,0.746,0.6857,0.6352};
    605 AddData(E,Ge_5,dens[j]*factor);
    606 G4double Ge_6[31]={0.9323,1.057,1.294,1.512,1.706,1.873,2.016,2.139,2.247,2.626,2.856,3.001,3.091,3.168,3.17,3.136,3.083,3.022,2.958,2.893,2.59,2.335,2.123,1.946,1.668,1.46,1.3,1.173,1.07,0.9843,0.9125};
    607 AddData(E,Ge_6,dens[j]*factor);
    608 G4double Ge_7[31]={0.9928,1.126,1.382,1.623,1.847,2.047,2.224,2.379,2.515,3.01,3.321,3.53,3.669,3.815,3.858,3.849,3.81,3.756,3.695,3.63,3.305,3.018,2.771,2.56,2.218,1.957,1.751,1.585,1.449,1.335,1.239};
    609 AddData(E,Ge_7,dens[j]*factor);
    610 G4double Ge_8[31]={1.053,1.192,1.462,1.72,1.966,2.194,2.401,2.586,2.751,3.362,3.758,4.034,4.227,4.451,4.545,4.568,4.549,4.507,4.452,4.39,4.057,3.744,3.468,3.226,2.825,2.511,2.258,2.052,1.881,1.737,1.615};
    611 AddData(E,Ge_8,dens[j]*factor);
    612 G4double Ge_9[31]={1.111,1.254,1.535,1.806,2.068,2.317,2.549,2.76,2.951,3.677,4.159,4.504,4.754,5.063,5.213,5.272,5.278,5.251,5.206,5.15,4.816,4.486,4.186,3.918,3.466,3.102,2.806,2.561,2.355,2.181,2.031};
    613 AddData(E,Ge_9,dens[j]*factor);
    614 G4double Ge_10[31]={1.169,1.316,1.605,1.887,2.16,2.424,2.675,2.91,3.125,3.961,4.53,4.945,5.254,5.655,5.868,5.969,6.003,5.996,5.963,5.916,5.592,5.249,4.93,4.64,4.141,3.732,3.394,3.11,2.87,2.664,2.487};
    615 AddData(E,Ge_10,dens[j]*factor);
    616 G4double Ge_11[31]={1.224,1.375,1.671,1.96,2.242,2.518,2.784,3.038,3.275,4.216,4.872,5.358,5.729,6.228,6.511,6.662,6.73,6.746,6.73,6.693,6.388,6.039,5.705,5.396,4.855,4.404,4.024,3.704,3.428,3.191,2.984};
    617 AddData(E,Ge_11,dens[j]*factor);
    618 G4double Ge_12[31]={1.281,1.438,1.739,2.035,2.325,2.608,2.885,3.154,3.409,4.448,5.187,5.742,6.174,6.772,7.129,7.334,7.44,7.484,7.486,7.463,7.181,6.829,6.482,6.158,5.58,5.091,4.674,4.318,4.01,3.743,3.508};
    619 AddData(E,Ge_12,dens[j]*factor);
    620 G4double Ge_13[31]={1.335,1.498,1.806,2.106,2.402,2.692,2.977,3.256,3.525,4.654,5.477,6.101,6.593,7.293,7.728,7.991,8.14,8.215,8.241,8.235,7.987,7.637,7.282,6.945,6.335,5.81,5.358,4.968,4.628,4.33,4.068};
    621 AddData(E,Ge_13,dens[j]*factor);
    622 G4double Ge_14[31]={1.389,1.558,1.873,2.178,2.478,2.773,3.064,3.351,3.631,4.841,5.744,6.438,6.99,7.791,8.305,8.628,8.823,8.931,8.982,8.995,8.789,8.446,8.086,7.738,7.1,6.543,6.059,5.637,5.267,4.941,4.651};
    623 AddData(E,Ge_14,dens[j]*factor);
    624 G4double Ge_15[31]={1.437,1.612,1.936,2.244,2.548,2.848,3.143,3.435,3.723,5.006,5.988,6.75,7.363,8.27,8.868,9.258,9.504,9.652,9.733,9.768,9.621,9.294,8.935,8.58,7.918,7.331,6.815,6.361,5.959,5.603,5.286};
    625 AddData(E,Ge_15,dens[j]*factor);
    626 G4double Ge_16[31]={1.485,1.667,2.002,2.315,2.622,2.927,3.227,3.523,3.818,5.162,6.218,7.047,7.721,8.733,9.419,9.878,10.18,10.37,10.48,10.54,10.46,10.15,9.797,9.438,8.756,8.143,7.598,7.113,6.682,6.297,5.952};
    627 AddData(E,Ge_16,dens[j]*factor);
    628 G4double Ge_17[31]={1.533,1.721,2.066,2.384,2.695,3.002,3.305,3.605,3.903,5.3,6.424,7.319,8.05,9.166,9.94,10.47,10.83,11.06,11.21,11.29,11.28,11,10.66,10.3,9.599,8.963,8.39,7.878,7.419,7.007,6.636};
    629 AddData(E,Ge_17,dens[j]*factor);
    630 G4double Ge_18[31]={1.585,1.779,2.137,2.463,2.778,3.088,3.395,3.698,4,5.439,6.629,7.587,8.375,9.592,10.45,11.05,11.47,11.74,11.93,12.04,12.1,11.84,11.5,11.14,10.42,9.764,9.167,8.629,8.145,7.708,7.313};
    631 AddData(E,Ge_18,dens[j]*factor);
    632 j++;
    633 
    634 G4double Kr_3[31]={0.826,0.9063,1.029,1.113,1.17,1.211,1.241,1.265,1.282,1.324,1.328,1.317,1.298,1.247,1.188,1.13,1.076,1.026,0.9803,0.9389,0.7771,0.6654,0.5835,0.521,0.4315,0.3705,0.326,0.292,0.2652,0.2433,0.2252};
    635 AddData(E,Kr_3,dens[j]*factor);
    636 G4double Kr_4[31]={0.9936,1.106,1.292,1.432,1.534,1.611,1.671,1.72,1.759,1.872,1.917,1.931,1.929,1.894,1.838,1.775,1.71,1.647,1.588,1.532,1.304,1.135,1.007,0.9061,0.7574,0.6533,0.5763,0.517,0.4698,0.4313,0.3993};
    637 AddData(E,Kr_4,dens[j]*factor);
    638 G4double Kr_5[31]={1.119,1.256,1.495,1.689,1.84,1.958,2.052,2.128,2.192,2.393,2.492,2.543,2.567,2.565,2.525,2.466,2.399,2.33,2.262,2.197,1.913,1.692,1.518,1.377,1.163,1.01,0.8939,0.8036,0.7312,0.6718,0.6223};
    639 AddData(E,Kr_5,dens[j]*factor);
    640 G4double Kr_6[31]={1.219,1.375,1.656,1.896,2.094,2.254,2.384,2.492,2.583,2.882,3.043,3.138,3.195,3.24,3.227,3.182,3.121,3.051,2.98,2.908,2.583,2.318,2.101,1.921,1.641,1.434,1.275,1.15,1.048,0.9642,0.8938};
    641 AddData(E,Kr_6,dens[j]*factor);
    642 G4double Kr_7[31]={1.301,1.47,1.784,2.062,2.301,2.501,2.668,2.807,2.927,3.331,3.562,3.706,3.802,3.904,3.928,3.907,3.859,3.795,3.725,3.653,3.301,2.999,2.744,2.528,2.183,1.921,1.717,1.553,1.419,1.308,1.214};
    643 AddData(E,Kr_7,dens[j]*factor);
    644 G4double Kr_8[31]={1.38,1.559,1.897,2.204,2.479,2.716,2.918,3.091,3.239,3.753,4.057,4.256,4.394,4.559,4.628,4.637,4.608,4.556,4.491,4.421,4.054,3.723,3.435,3.186,2.78,2.465,2.214,2.01,1.842,1.7,1.58};
    645 AddData(E,Kr_8,dens[j]*factor);
    646 G4double Kr_9[31]={1.456,1.642,1.998,2.329,2.631,2.901,3.136,3.339,3.516,4.14,4.521,4.776,4.959,5.192,5.311,5.355,5.348,5.311,5.256,5.19,4.82,4.466,4.151,3.874,3.412,3.047,2.752,2.509,2.306,2.134,1.988};
    647 AddData(E,Kr_9,dens[j]*factor);
    648 G4double Kr_10[31]={1.533,1.724,2.094,2.443,2.767,3.064,3.329,3.561,3.765,4.499,4.958,5.273,5.503,5.809,5.981,6.064,6.086,6.068,6.025,5.967,5.602,5.232,4.894,4.592,4.08,3.668,3.329,3.048,2.81,2.608,2.433};
    649 AddData(E,Kr_10,dens[j]*factor);
    650 G4double Kr_11[31]={1.606,1.803,2.183,2.546,2.889,3.208,3.498,3.758,3.988,4.831,5.369,5.745,6.024,6.408,6.641,6.769,6.823,6.828,6.801,6.754,6.404,6.024,5.668,5.344,4.786,4.329,3.949,3.629,3.357,3.122,2.919};
    651 AddData(E,Kr_11,dens[j]*factor);
    652 G4double Kr_12[31]={1.684,1.886,2.275,2.649,3.005,3.341,3.653,3.937,4.193,5.141,5.757,6.193,6.522,6.984,7.278,7.454,7.546,7.577,7.569,7.535,7.205,6.818,6.447,6.104,5.506,5.008,4.589,4.233,3.928,3.664,3.433};
    653 AddData(E,Kr_12,dens[j]*factor);
    654 G4double Kr_13[31]={1.759,1.968,2.365,2.748,3.114,3.464,3.793,4.099,4.377,5.427,6.122,6.621,7,7.541,7.898,8.126,8.257,8.319,8.334,8.316,8.019,7.632,7.249,6.89,6.255,5.718,5.263,4.872,4.534,4.24,3.981};
    655 AddData(E,Kr_13,dens[j]*factor);
    656 G4double Kr_14[31]={1.833,2.049,2.455,2.845,3.22,3.581,3.924,4.247,4.544,5.69,6.464,7.024,7.454,8.075,8.496,8.777,8.951,9.046,9.085,9.087,8.831,8.447,8.056,7.684,7.016,6.445,5.955,5.531,5.162,4.839,4.553};
    657 AddData(E,Kr_14,dens[j]*factor);
    658 G4double Kr_15[31]={1.901,2.126,2.541,2.936,3.318,3.687,4.041,4.378,4.693,5.932,6.783,7.407,7.889,8.594,9.083,9.422,9.643,9.775,9.844,9.867,9.667,9.297,8.903,8.522,7.825,7.221,6.698,6.241,5.841,5.487,5.173};
    659 AddData(E,Kr_15,dens[j]*factor);
    660 G4double Kr_16[31]={1.97,2.204,2.631,3.033,3.421,3.796,4.16,4.509,4.838,6.164,7.089,7.776,8.311,9.102,9.66,10.06,10.33,10.5,10.6,10.65,10.51,10.16,9.764,9.376,8.656,8.021,7.466,6.978,6.547,6.164,5.823};
    661 AddData(E,Kr_16,dens[j]*factor);
    662 G4double Kr_17[31]={2.038,2.28,2.72,3.128,3.521,3.902,4.272,4.63,4.972,6.375,7.374,8.122,8.709,9.584,10.21,10.67,10.99,11.2,11.33,11.41,11.34,11.01,10.62,10.23,9.491,8.831,8.247,7.73,7.27,6.86,6.492};
    663 AddData(E,Kr_17,dens[j]*factor);
    664 G4double Kr_18[31]={2.11,2.362,2.817,3.234,3.633,4.019,4.394,4.759,5.111,6.587,7.656,8.465,9.104,10.06,10.76,11.27,11.64,11.9,12.06,12.16,12.17,11.86,11.47,11.07,10.31,9.628,9.016,8.472,7.987,7.551,7.158};
    665 AddData(E,Kr_18,dens[j]*factor);
    666 j++;
    667 
    668 G4double Mo_3[31]={0.6534,0.7272,0.8512,0.9467,1.019,1.073,1.114,1.147,1.173,1.235,1.244,1.236,1.22,1.177,1.13,1.083,1.037,0.9929,0.9519,0.9138,0.7605,0.6532,0.5743,0.5137,0.4269,0.3673,0.3238,0.2904,0.264,0.2424,0.2245};
    669 AddData(E,Mo_3,dens[j]*factor);
    670 G4double Mo_4[31]={0.7836,0.8807,1.052,1.196,1.312,1.406,1.48,1.542,1.592,1.741,1.796,1.812,1.81,1.782,1.739,1.689,1.638,1.586,1.534,1.485,1.272,1.112,0.9894,0.8922,0.7484,0.6472,0.5719,0.5138,0.4674,0.4295,0.3979};
    671 AddData(E,Mo_4,dens[j]*factor);
    672 G4double Mo_5[31]={0.8829,0.9968,1.205,1.389,1.547,1.68,1.791,1.883,1.962,2.215,2.331,2.385,2.408,2.408,2.379,2.337,2.287,2.232,2.176,2.12,1.862,1.654,1.489,1.354,1.148,0.9989,0.8861,0.7979,0.7269,0.6686,0.6199};
    673 AddData(E,Mo_5,dens[j]*factor);
    674 G4double Mo_6[31]={0.9635,1.089,1.326,1.541,1.735,1.905,2.05,2.175,2.283,2.649,2.84,2.942,2.997,3.038,3.034,3.006,2.964,2.913,2.857,2.798,2.509,2.262,2.056,1.885,1.616,1.417,1.262,1.14,1.041,0.9587,0.8896};
    675 AddData(E,Mo_6,dens[j]*factor);
    676 G4double Mo_7[31]={1.029,1.164,1.421,1.661,1.882,2.083,2.261,2.418,2.554,3.039,3.313,3.471,3.566,3.659,3.687,3.681,3.653,3.611,3.56,3.504,3.199,2.92,2.681,2.476,2.147,1.895,1.697,1.538,1.408,1.299,1.207};
    677 AddData(E,Mo_7,dens[j]*factor);
    678 G4double Mo_8[31]={1.092,1.232,1.505,1.764,2.007,2.234,2.441,2.627,2.792,3.394,3.757,3.978,4.118,4.273,4.34,4.361,4.352,4.323,4.281,4.23,3.922,3.619,3.351,3.116,2.73,2.428,2.186,1.988,1.825,1.687,1.57};
    679 AddData(E,Mo_8,dens[j]*factor);
    680 G4double Mo_9[31]={1.15,1.296,1.581,1.854,2.115,2.361,2.592,2.804,2.995,3.712,4.166,4.455,4.645,4.867,4.979,5.03,5.043,5.031,5,4.957,4.656,4.337,4.045,3.785,3.348,2.999,2.714,2.479,2.283,2.115,1.972};
    681 AddData(E,Mo_9,dens[j]*factor);
    682 G4double Mo_10[31]={1.205,1.357,1.651,1.937,2.211,2.473,2.722,2.956,3.171,3.998,4.543,4.904,5.148,5.446,5.606,5.692,5.731,5.738,5.722,5.689,5.406,5.076,4.765,4.483,4,3.606,3.281,3.01,2.78,2.583,2.413};
    683 AddData(E,Mo_10,dens[j]*factor);
    684 G4double Mo_11[31]={1.256,1.414,1.717,2.012,2.297,2.572,2.836,3.088,3.324,4.256,4.89,5.325,5.628,6.008,6.224,6.35,6.418,6.448,6.449,6.429,6.173,5.839,5.514,5.213,4.688,4.253,3.888,3.58,3.317,3.09,2.892};
    685 AddData(E,Mo_11,dens[j]*factor);
    686 G4double Mo_12[31]={1.308,1.471,1.783,2.086,2.381,2.666,2.942,3.208,3.462,4.49,5.211,5.721,6.083,6.547,6.822,6.991,7.092,7.147,7.167,7.163,6.939,6.606,6.269,5.952,5.39,4.917,4.517,4.175,3.88,3.624,3.4};
    687 AddData(E,Mo_12,dens[j]*factor);
    688 G4double Mo_13[31]={1.356,1.526,1.847,2.157,2.459,2.753,3.039,3.316,3.584,4.702,5.507,6.092,6.515,7.068,7.405,7.62,7.757,7.84,7.883,7.896,7.716,7.389,7.044,6.714,6.121,5.612,5.177,4.802,4.476,4.191,3.94};
    689 AddData(E,Mo_13,dens[j]*factor);
    690 G4double Mo_14[31]={1.403,1.58,1.91,2.226,2.534,2.835,3.129,3.415,3.694,4.892,5.777,6.436,6.922,7.567,7.967,8.231,8.405,8.517,8.585,8.618,8.491,8.174,7.825,7.485,6.863,6.323,5.855,5.449,5.094,4.782,4.505};
    691 AddData(E,Mo_14,dens[j]*factor);
    692 G4double Mo_15[31]={1.446,1.628,1.967,2.289,2.603,2.91,3.21,3.503,3.791,5.059,6.022,6.754,7.304,8.046,8.517,8.834,9.049,9.195,9.29,9.346,9.285,8.989,8.642,8.295,7.649,7.079,6.581,6.143,5.758,5.417,5.114};
    693 AddData(E,Mo_15,dens[j]*factor);
    694 G4double Mo_16[31]={1.49,1.677,2.028,2.357,2.676,2.988,3.294,3.594,3.889,5.22,6.255,7.057,7.672,8.515,9.059,9.43,9.689,9.87,9.993,10.07,10.08,9.812,9.47,9.119,8.453,7.857,7.33,6.863,6.45,6.081,5.751};
    695 AddData(E,Mo_16,dens[j]*factor);
    696 G4double Mo_17[31]={1.533,1.726,2.086,2.422,2.746,3.063,3.374,3.679,3.979,5.362,6.465,7.335,8.013,8.957,9.575,10,10.31,10.53,10.68,10.78,10.87,10.63,10.3,9.946,9.264,8.645,8.091,7.598,7.157,6.763,6.408};
    697 AddData(E,Mo_17,dens[j]*factor);
    698 G4double Mo_18[31]={1.583,1.781,2.153,2.497,2.827,3.149,3.465,3.775,4.08,5.508,6.675,7.61,8.351,9.397,10.09,10.58,10.92,11.18,11.36,11.49,11.66,11.44,11.12,10.76,10.07,9.424,8.846,8.327,7.862,7.443,7.065};
    699 AddData(E,Mo_18,dens[j]*factor);
    700 j++;
    701 
    702 G4double Ag_3[31]={0.616,0.695,0.8256,0.9274,1.006,1.064,1.108,1.141,1.165,1.222,1.224,1.207,1.184,1.131,1.079,1.031,0.9856,0.9444,0.9066,0.8719,0.7337,0.635,0.5609,0.5032,0.4193,0.3612,0.3185,0.2857,0.2596,0.2384,0.2208};
    703 AddData(E,Ag_3,dens[j]*factor);
    704 G4double Ag_4[31]={0.7283,0.8324,1.015,1.166,1.292,1.394,1.475,1.54,1.591,1.734,1.781,1.786,1.772,1.726,1.672,1.617,1.563,1.512,1.463,1.418,1.226,1.079,0.9641,0.8719,0.7337,0.6354,0.5619,0.505,0.4595,0.4223,0.3913};
    705 AddData(E,Ag_4,dens[j]*factor);
    706 G4double Ag_5[31]={0.8167,0.9362,1.158,1.352,1.52,1.664,1.785,1.886,1.969,2.219,2.326,2.367,2.374,2.348,2.3,2.246,2.19,2.133,2.079,2.026,1.792,1.602,1.448,1.32,1.123,0.9791,0.8694,0.7834,0.714,0.657,0.6092};
    707 AddData(E,Ag_5,dens[j]*factor);
    708 G4double Ag_6[31]={0.8963,1.023,1.271,1.499,1.702,1.884,2.043,2.18,2.297,2.669,2.85,2.937,2.974,2.98,2.948,2.901,2.847,2.79,2.733,2.676,2.413,2.188,1.998,1.836,1.579,1.387,1.237,1.118,1.021,0.9412,0.8736};
    709 AddData(E,Ag_6,dens[j]*factor);
    710 G4double Ag_7[31]={0.9709,1.099,1.362,1.615,1.847,2.06,2.252,2.424,2.574,3.076,3.34,3.483,3.558,3.608,3.6,3.567,3.521,3.468,3.412,3.354,3.074,2.822,2.601,2.409,2.095,1.853,1.661,1.507,1.38,1.274,1.184};
    711 AddData(E,Ag_7,dens[j]*factor);
    712 G4double Ag_8[31]={1.047,1.177,1.447,1.716,1.972,2.21,2.431,2.632,2.814,3.45,3.804,4.01,4.129,4.233,4.256,4.241,4.207,4.161,4.109,4.054,3.767,3.495,3.248,3.029,2.661,2.37,2.136,1.945,1.786,1.653,1.538};
    713 AddData(E,Ag_8,dens[j]*factor);
    714 G4double Ag_9[31]={1.12,1.254,1.527,1.807,2.08,2.339,2.582,2.809,3.019,3.786,4.234,4.508,4.676,4.843,4.902,4.91,4.891,4.855,4.809,4.758,4.472,4.186,3.92,3.677,3.262,2.926,2.651,2.424,2.233,2.071,1.931};
    715 AddData(E,Ag_9,dens[j]*factor);
    716 G4double Ag_10[31]={1.189,1.331,1.607,1.893,2.178,2.453,2.715,2.963,3.196,4.09,4.633,4.979,5.202,5.44,5.541,5.576,5.574,5.551,5.514,5.468,5.192,4.898,4.616,4.354,3.896,3.517,3.204,2.941,2.718,2.527,2.362};
    717 AddData(E,Ag_10,dens[j]*factor);
    718 G4double Ag_11[31]={1.251,1.402,1.685,1.974,2.267,2.555,2.832,3.098,3.35,4.362,5.003,5.424,5.705,6.023,6.173,6.24,6.26,6.252,6.226,6.189,5.928,5.632,5.338,5.06,4.563,4.145,3.794,3.496,3.241,3.021,2.829};
    719 AddData(E,Ag_11,dens[j]*factor);
    720 G4double Ag_12[31]={1.311,1.472,1.766,2.058,2.356,2.653,2.942,3.221,3.49,4.609,5.348,5.844,6.185,6.586,6.788,6.892,6.937,6.947,6.934,6.906,6.666,6.37,6.068,5.776,5.246,4.792,4.406,4.075,3.789,3.541,3.324};
    721 AddData(E,Ag_12,dens[j]*factor);
    722 G4double Ag_13[31]={1.366,1.537,1.845,2.14,2.441,2.744,3.043,3.334,3.615,4.83,5.666,6.24,6.644,7.133,7.392,7.535,7.608,7.638,7.641,7.624,7.413,7.124,6.817,6.515,5.956,5.468,5.048,4.685,4.37,4.094,3.851};
    723 AddData(E,Ag_13,dens[j]*factor);
    724 G4double Ag_14[31]={1.419,1.597,1.922,2.221,2.525,2.832,3.138,3.438,3.73,5.028,5.958,6.61,7.077,7.659,7.978,8.163,8.266,8.319,8.338,8.336,8.16,7.88,7.572,7.262,6.678,6.16,5.709,5.316,4.972,4.67,4.402};
    725 AddData(E,Ag_14,dens[j]*factor);
    726 G4double Ag_15[31]={1.465,1.65,1.99,2.298,2.603,2.912,3.223,3.53,3.831,5.199,6.222,6.951,7.483,8.164,8.55,8.782,8.92,8.999,9.039,9.052,8.924,8.662,8.357,8.043,7.439,6.894,6.413,5.99,5.617,5.287,4.993};
    727 AddData(E,Ag_15,dens[j]*factor);
    728 G4double Ag_16[31]={1.511,1.703,2.059,2.377,2.685,2.997,3.312,3.625,3.933,5.361,6.471,7.277,7.875,8.659,9.115,9.397,9.572,9.678,9.74,9.771,9.692,9.452,9.154,8.839,8.218,7.648,7.14,6.689,6.289,5.932,5.613};
    729 AddData(E,Ag_16,dens[j]*factor);
    730 G4double Ag_17[31]={1.555,1.753,2.123,2.454,2.767,3.08,3.397,3.714,4.028,5.505,6.696,7.578,8.242,9.129,9.659,9.994,10.21,10.34,10.43,10.48,10.45,10.24,9.951,9.637,9.004,8.413,7.88,7.403,6.976,6.595,6.251};
    731 AddData(E,Ag_17,dens[j]*factor);
    732 G4double Ag_18[31]={1.605,1.81,2.193,2.539,2.858,3.175,3.494,3.814,4.133,5.653,6.919,7.875,8.603,9.596,10.2,10.59,10.84,11.01,11.12,11.18,11.21,11.02,10.74,10.43,9.784,9.172,8.615,8.113,7.663,7.258,6.892};
    733 AddData(E,Ag_18,dens[j]*factor);
    734 j++;
    735 
    736 G4double Sn_3[31]={0.5096,0.5567,0.632,0.6872,0.728,0.7589,0.7833,0.8031,0.8194,0.8713,0.8964,0.9074,0.9098,0.8992,0.8778,0.8518,0.8241,0.7964,0.7696,0.744,0.6366,0.5568,0.4957,0.4473,0.3757,0.3253,0.2879,0.259,0.2361,0.2174,0.2018};
    737 AddData(E,Sn_3,dens[j]*factor);
    738 G4double Sn_4[31]={0.6712,0.7388,0.8518,0.9402,1.009,1.063,1.107,1.143,1.173,1.273,1.328,1.36,1.376,1.382,1.368,1.343,1.313,1.281,1.247,1.214,1.066,0.9472,0.8523,0.7751,0.6573,0.5722,0.508,0.4579,0.4179,0.3851,0.3577};
    739 AddData(E,Sn_4,dens[j]*factor);
    740 G4double Sn_5[31]={0.8182,0.904,1.052,1.173,1.271,1.351,1.416,1.471,1.517,1.674,1.766,1.824,1.86,1.892,1.893,1.876,1.848,1.815,1.779,1.742,1.562,1.409,1.282,1.175,1.007,0.8819,0.7861,0.7105,0.6494,0.5991,0.5569};
    741 AddData(E,Sn_5,dens[j]*factor);
    742 G4double Sn_6[31]={0.9537,1.056,1.235,1.386,1.513,1.619,1.708,1.782,1.846,2.067,2.201,2.289,2.349,2.416,2.438,2.433,2.413,2.383,2.348,2.309,2.109,1.928,1.771,1.635,1.417,1.25,1.119,1.015,0.9293,0.8585,0.7988};
    743 AddData(E,Sn_6,dens[j]*factor);
    744 G4double Sn_7[31]={1.078,1.194,1.401,1.579,1.733,1.864,1.976,2.072,2.155,2.445,2.624,2.747,2.835,2.941,2.99,3.004,2.995,2.973,2.941,2.905,2.696,2.492,2.31,2.148,1.881,1.671,1.504,1.368,1.256,1.162,1.083};
    745 AddData(E,Sn_7,dens[j]*factor);
    746 G4double Sn_8[31]={1.198,1.327,1.559,1.762,1.94,2.096,2.231,2.348,2.45,2.813,3.042,3.202,3.319,3.47,3.55,3.585,3.592,3.579,3.555,3.522,3.312,3.093,2.889,2.705,2.392,2.14,1.935,1.767,1.627,1.508,1.407};
    747 AddData(E,Sn_8,dens[j]*factor);
    748 G4double Sn_9[31]={1.311,1.452,1.705,1.93,2.13,2.308,2.465,2.603,2.725,3.164,3.444,3.643,3.791,3.99,4.104,4.164,4.188,4.187,4.171,4.145,3.942,3.713,3.492,3.289,2.935,2.644,2.403,2.203,2.035,1.891,1.768};
    749 AddData(E,Sn_9,dens[j]*factor);
    750 G4double Sn_10[31]={1.42,1.571,1.845,2.089,2.309,2.507,2.684,2.842,2.983,3.499,3.833,4.073,4.254,4.504,4.655,4.742,4.786,4.8,4.795,4.776,4.587,4.353,4.12,3.9,3.509,3.181,2.906,2.675,2.478,2.309,2.162};
    751 AddData(E,Sn_10,dens[j]*factor);
    752 G4double Sn_11[31]={1.52,1.681,1.974,2.235,2.473,2.689,2.885,3.062,3.222,3.816,4.206,4.488,4.704,5.008,5.199,5.317,5.384,5.417,5.424,5.415,5.248,5.013,4.772,4.539,4.116,3.753,3.445,3.182,2.957,2.762,2.592};
    753 AddData(E,Sn_11,dens[j]*factor);
    754 G4double Sn_12[31]={1.612,1.782,2.091,2.368,2.621,2.853,3.065,3.26,3.437,4.108,4.554,4.879,5.13,5.488,5.722,5.874,5.967,6.019,6.042,6.045,5.906,5.675,5.429,5.186,4.735,4.342,4.004,3.712,3.459,3.239,3.047};
    755 AddData(E,Sn_12,dens[j]*factor);
    756 G4double Sn_13[31]={1.705,1.883,2.208,2.5,2.767,3.014,3.242,3.453,3.646,4.392,4.896,5.266,5.552,5.968,6.246,6.432,6.552,6.625,6.665,6.681,6.576,6.354,6.105,5.855,5.38,4.959,4.591,4.271,3.992,3.747,3.531};
    757 AddData(E,Sn_13,dens[j]*factor);
    758 G4double Sn_14[31]={1.793,1.98,2.32,2.626,2.906,3.166,3.408,3.633,3.842,4.66,5.222,5.637,5.961,6.434,6.758,6.979,7.128,7.224,7.282,7.312,7.246,7.036,6.788,6.532,6.038,5.591,5.197,4.85,4.545,4.276,4.038};
    759 AddData(E,Sn_14,dens[j]*factor);
    760 G4double Sn_15[31]={1.874,2.07,2.424,2.742,3.035,3.307,3.561,3.799,4.021,4.909,5.529,5.991,6.353,6.889,7.26,7.521,7.702,7.823,7.902,7.949,7.931,7.742,7.499,7.241,6.732,6.262,5.841,5.468,5.138,4.844,4.583};
    761 AddData(E,Sn_15,dens[j]*factor);
    762 G4double Sn_16[31]={1.954,2.158,2.527,2.858,3.163,3.446,3.712,3.962,4.197,5.152,5.83,6.338,6.74,7.339,7.761,8.062,8.275,8.423,8.524,8.588,8.624,8.456,8.222,7.965,7.443,6.952,6.508,6.11,5.755,5.438,5.154};
    763 AddData(E,Sn_16,dens[j]*factor);
    764 G4double Sn_17[31]={2.03,2.242,2.625,2.969,3.285,3.579,3.855,4.116,4.363,5.381,6.116,6.671,7.112,7.776,8.248,8.59,8.837,9.013,9.136,9.219,9.311,9.168,8.945,8.69,8.161,7.653,7.187,6.767,6.389,6.049,5.743};
    765 AddData(E,Sn_17,dens[j]*factor);
    766 G4double Sn_18[31]={2.114,2.334,2.732,3.089,3.417,3.722,4.009,4.28,4.538,5.618,6.409,7.012,7.493,8.22,8.742,9.124,9.404,9.607,9.752,9.853,9.998,9.878,9.664,9.411,8.874,8.349,7.863,7.421,7.022,6.661,6.335};
    767 AddData(E,Sn_18,dens[j]*factor);
    768 j++;
    769 
    770 G4double Xe_3[31]={0.5617,0.6027,0.6687,0.7189,0.7574,0.7872,0.8104,0.8285,0.8426,0.8788,0.8879,0.8864,0.88,0.8595,0.8342,0.807,0.7794,0.7523,0.7263,0.7016,0.5984,0.5227,0.4653,0.4202,0.3538,0.3069,0.272,0.245,0.2235,0.2058,0.1912};
    771 AddData(E,Xe_3,dens[j]*factor);
    772 G4double Xe_4[31]={0.7468,0.8068,0.9059,0.9845,1.048,1.099,1.14,1.174,1.202,1.285,1.32,1.334,1.337,1.327,1.305,1.277,1.246,1.213,1.18,1.147,1.003,0.8898,0.8004,0.7282,0.6187,0.5396,0.4798,0.433,0.3954,0.3646,0.3388};
    773 AddData(E,Xe_4,dens[j]*factor);
    774 G4double Xe_5[31]={0.9138,0.9925,1.125,1.233,1.321,1.395,1.457,1.509,1.552,1.691,1.759,1.795,1.813,1.822,1.81,1.787,1.757,1.722,1.686,1.649,1.473,1.325,1.204,1.104,0.9474,0.8314,0.7421,0.6715,0.6143,0.567,0.5273};
    775 AddData(E,Xe_5,dens[j]*factor);
    776 G4double Xe_6[31]={1.065,1.162,1.327,1.463,1.578,1.675,1.758,1.829,1.889,2.09,2.197,2.259,2.297,2.332,2.336,2.322,2.297,2.265,2.229,2.19,1.991,1.814,1.664,1.537,1.333,1.178,1.056,0.9584,0.8786,0.8122,0.7561};
    777 AddData(E,Xe_6,dens[j]*factor);
    778 G4double Xe_7[31]={1.201,1.315,1.51,1.675,1.814,1.935,2.039,2.129,2.207,2.475,2.625,2.717,2.778,2.845,2.871,2.872,2.856,2.829,2.796,2.758,2.547,2.348,2.172,2.02,1.769,1.574,1.418,1.292,1.187,1.099,1.025};
    779 AddData(E,Xe_7,dens[j]*factor);
    780 G4double Xe_8[31]={1.329,1.459,1.685,1.875,2.04,2.183,2.307,2.417,2.513,2.851,3.048,3.174,3.26,3.364,3.414,3.432,3.429,3.411,3.382,3.347,3.133,2.916,2.719,2.544,2.25,2.015,1.825,1.668,1.537,1.426,1.331};
    781 AddData(E,Xe_8,dens[j]*factor);
    782 G4double Xe_9[31]={1.448,1.593,1.845,2.061,2.249,2.413,2.559,2.687,2.801,3.212,3.458,3.619,3.732,3.875,3.953,3.991,4.002,3.994,3.973,3.943,3.733,3.504,3.29,3.095,2.762,2.49,2.266,2.079,1.922,1.787,1.672};
    783 AddData(E,Xe_9,dens[j]*factor);
    784 G4double Xe_10[31]={1.56,1.718,1.997,2.236,2.446,2.631,2.796,2.944,3.075,3.558,3.856,4.055,4.197,4.382,4.49,4.55,4.578,4.583,4.571,4.548,4.348,4.112,3.883,3.673,3.304,2.997,2.741,2.524,2.34,2.182,2.045};
    785 AddData(E,Xe_10,dens[j]*factor);
    786 G4double Xe_11[31]={1.664,1.834,2.136,2.398,2.629,2.834,3.018,3.183,3.332,3.888,4.239,4.478,4.65,4.881,5.022,5.108,5.155,5.175,5.175,5.16,4.979,4.74,4.501,4.276,3.876,3.536,3.249,3.003,2.792,2.609,2.45};
    787 AddData(E,Xe_11,dens[j]*factor);
    788 G4double Xe_12[31]={1.759,1.94,2.263,2.545,2.795,3.019,3.22,3.402,3.567,4.195,4.6,4.879,5.082,5.359,5.535,5.649,5.718,5.755,5.768,5.764,5.607,5.37,5.125,4.889,4.461,4.093,3.776,3.503,3.267,3.061,2.88};
    789 AddData(E,Xe_12,dens[j]*factor);
    790 G4double Xe_13[31]={1.854,2.046,2.389,2.69,2.958,3.199,3.418,3.616,3.797,4.495,4.955,5.276,5.512,5.838,6.05,6.192,6.284,6.339,6.367,6.375,6.248,6.017,5.767,5.522,5.071,4.675,4.331,4.031,3.77,3.54,3.337};
    791 AddData(E,Xe_13,dens[j]*factor);
    792 G4double Xe_14[31]={1.946,2.147,2.508,2.828,3.113,3.371,3.605,3.819,4.015,4.781,5.295,5.659,5.929,6.305,6.555,6.726,6.842,6.916,6.959,6.979,6.889,6.667,6.416,6.165,5.693,5.273,4.903,4.578,4.293,4.04,3.817};
    793 AddData(E,Xe_14,dens[j]*factor);
    794 G4double Xe_15[31]={2.032,2.241,2.619,2.955,3.257,3.53,3.779,4.008,4.218,5.049,5.619,6.026,6.331,6.762,7.052,7.256,7.398,7.495,7.557,7.592,7.545,7.339,7.091,6.837,6.348,5.905,5.511,5.161,4.852,4.577,4.331};
    795 AddData(E,Xe_15,dens[j]*factor);
    796 G4double Xe_16[31]={2.116,2.335,2.729,3.08,3.397,3.686,3.949,4.192,4.416,5.311,5.935,6.386,6.728,7.214,7.547,7.784,7.954,8.073,8.154,8.206,8.206,8.02,7.778,7.522,7.021,6.557,6.14,5.767,5.435,5.137,4.87};
    797 AddData(E,Xe_16,dens[j]*factor);
    798 G4double Xe_17[31]={2.199,2.425,2.835,3.2,3.532,3.834,4.111,4.367,4.604,5.561,6.238,6.733,7.111,7.655,8.03,8.302,8.5,8.643,8.744,8.812,8.864,8.699,8.465,8.211,7.7,7.22,6.782,6.387,6.033,5.714,5.427};
    799 AddData(E,Xe_17,dens[j]*factor);
    800 G4double Xe_18[31]={2.288,2.523,2.948,3.329,3.675,3.991,4.282,4.551,4.801,5.818,6.548,7.088,7.503,8.104,8.522,8.826,9.052,9.217,9.337,9.421,9.521,9.377,9.15,8.896,8.375,7.879,7.422,7.007,6.632,6.293,5.987};
    801 AddData(E,Xe_18,dens[j]*factor);
    802 j++;
    803 
    804 G4double W_3[31]={0.2439,0.2673,0.3038,0.3307,0.3513,0.368,0.3819,0.3938,0.4041,0.4399,0.4601,0.4714,0.4774,0.4805,0.4778,0.4725,0.4657,0.4583,0.4506,0.4428,0.4054,0.3722,0.3432,0.3182,0.2778,0.2471,0.2231,0.2039,0.1882,0.1751,0.164};
    805 AddData(E,W_3,dens[j]*factor);
    806 G4double W_4[31]={0.3226,0.3566,0.4129,0.4564,0.4909,0.5191,0.543,0.5637,0.5818,0.648,0.6891,0.7156,0.7327,0.7499,0.7556,0.7553,0.7512,0.7447,0.7368,0.7281,0.6801,0.6322,0.5883,0.5491,0.4837,0.4326,0.392,0.3592,0.332,0.3093,0.2899};
    807 AddData(E,W_4,dens[j]*factor);
    808 G4double W_5[31]={0.3961,0.4392,0.514,0.5747,0.6241,0.6653,0.7005,0.7311,0.7582,0.8591,0.925,0.9703,1.002,1.04,1.059,1.067,1.069,1.066,1.06,1.052,1,0.9409,0.8833,0.8299,0.7381,0.6641,0.6042,0.5551,0.5141,0.4795,0.4499};
    809 AddData(E,W_5,dens[j]*factor);
    810 G4double W_6[31]={0.466,0.5168,0.608,0.6852,0.7498,0.8046,0.8517,0.893,0.9298,1.069,1.162,1.229,1.278,1.342,1.379,1.399,1.409,1.412,1.41,1.405,1.355,1.289,1.22,1.154,1.036,0.9378,0.8569,0.7896,0.7329,0.6847,0.6431};
    811 AddData(E,W_6,dens[j]*factor);
    812 G4double W_7[31]={0.5322,0.5896,0.695,0.7871,0.8664,0.9347,0.9941,1.047,1.093,1.273,1.396,1.487,1.556,1.65,1.708,1.743,1.764,1.775,1.779,1.779,1.738,1.669,1.592,1.514,1.372,1.25,1.147,1.061,0.9871,0.9237,0.8687};
    813 AddData(E,W_7,dens[j]*factor);
    814 G4double W_8[31]={0.6002,0.664,0.7818,0.8875,0.9807,1.062,1.134,1.198,1.255,1.477,1.632,1.748,1.837,1.964,2.046,2.099,2.132,2.153,2.165,2.17,2.144,2.075,1.993,1.906,1.742,1.597,1.473,1.366,1.274,1.195,1.125};
    815 AddData(E,W_8,dens[j]*factor);
    816 G4double W_9[31]={0.6666,0.7365,0.8655,0.9831,1.089,1.183,1.267,1.342,1.41,1.674,1.862,2.004,2.116,2.277,2.384,2.456,2.504,2.536,2.557,2.569,2.561,2.497,2.412,2.319,2.136,1.97,1.825,1.699,1.59,1.494,1.41};
    817 AddData(E,W_9,dens[j]*factor);
    818 G4double W_10[31]={0.7327,0.8086,0.9483,1.076,1.194,1.3,1.395,1.481,1.559,1.867,2.088,2.258,2.392,2.59,2.724,2.817,2.881,2.926,2.956,2.977,2.992,2.936,2.85,2.753,2.554,2.369,2.205,2.06,1.932,1.82,1.721};
    819 AddData(E,W_10,dens[j]*factor);
    820 G4double W_11[31]={0.7964,0.8785,1.028,1.166,1.294,1.411,1.517,1.614,1.702,2.053,2.308,2.506,2.663,2.898,3.062,3.178,3.261,3.32,3.362,3.392,3.435,3.39,3.307,3.207,2.995,2.793,2.61,2.446,2.301,2.173,2.058};
    821 AddData(E,W_11,dens[j]*factor);
    822 G4double W_12[31]={0.8567,0.9447,1.104,1.251,1.387,1.514,1.63,1.737,1.835,2.228,2.517,2.742,2.923,3.195,3.389,3.531,3.634,3.709,3.764,3.805,3.879,3.848,3.769,3.669,3.448,3.231,3.031,2.851,2.689,2.545,2.415};
    823 AddData(E,W_12,dens[j]*factor);
    824 G4double W_13[31]={0.9191,1.013,1.183,1.338,1.483,1.618,1.744,1.86,1.968,2.402,2.725,2.979,3.184,3.496,3.721,3.888,4.012,4.103,4.172,4.224,4.333,4.318,4.247,4.148,3.92,3.689,3.474,3.277,3.1,2.94,2.795};
    825 AddData(E,W_13,dens[j]*factor);
    826 G4double W_14[31]={0.9809,1.081,1.262,1.425,1.577,1.721,1.856,1.981,2.097,2.572,2.928,3.21,3.439,3.791,4.049,4.242,4.386,4.496,4.578,4.642,4.79,4.794,4.732,4.636,4.403,4.161,3.931,3.719,3.527,3.352,3.193};
    827 AddData(E,W_14,dens[j]*factor);
    828 G4double W_15[31]={1.039,1.146,1.336,1.508,1.667,1.818,1.96,2.094,2.218,2.732,3.121,3.431,3.686,4.079,4.371,4.592,4.761,4.889,4.988,5.065,5.257,5.285,5.234,5.144,4.91,4.658,4.415,4.189,3.981,3.791,3.618};
    829 AddData(E,W_15,dens[j]*factor);
    830 G4double W_16[31]={1.098,1.211,1.412,1.592,1.759,1.917,2.067,2.208,2.34,2.893,3.314,3.653,3.932,4.368,4.695,4.945,5.137,5.286,5.401,5.492,5.731,5.783,5.747,5.663,5.43,5.171,4.916,4.676,4.454,4.25,4.062};
    831 AddData(E,W_16,dens[j]*factor);
    832 G4double W_17[31]={1.154,1.273,1.486,1.674,1.848,2.013,2.169,2.317,2.457,3.046,3.499,3.865,4.169,4.649,5.01,5.29,5.507,5.676,5.809,5.915,6.202,6.282,6.262,6.186,5.957,5.692,5.428,5.175,4.94,4.722,4.521};
    833 AddData(E,W_17,dens[j]*factor);
    834 G4double W_18[31]={1.219,1.344,1.569,1.767,1.949,2.12,2.283,2.438,2.586,3.211,3.696,4.09,4.419,4.94,5.336,5.643,5.884,6.073,6.223,6.343,6.677,6.782,6.776,6.709,6.484,6.215,5.94,5.677,5.429,5.199,4.985};
    835 AddData(E,W_18,dens[j]*factor);
    836 j++;
    837 
    838 G4double Pt_3[31]={0.2992,0.3235,0.3633,0.3948,0.4203,0.4415,0.4596,0.4752,0.4888,0.5363,0.5617,0.5743,0.5791,0.5764,0.5666,0.5541,0.5405,0.527,0.5137,0.5011,0.446,0.4022,0.3663,0.3365,0.2897,0.2551,0.2285,0.2074,0.1904,0.1763,0.1644};
    839 AddData(E,Pt_3,dens[j]*factor);
    840 G4double Pt_4[31]={0.4136,0.4491,0.5084,0.5565,0.5962,0.6298,0.6587,0.6839,0.7063,0.7881,0.8373,0.8667,0.8831,0.8938,0.8903,0.8805,0.8672,0.8523,0.8367,0.821,0.7467,0.6824,0.6274,0.5802,0.5043,0.4465,0.4015,0.3655,0.336,0.3115,0.2908};
    841 AddData(E,Pt_4,dens[j]*factor);
    842 G4double Pt_5[31]={0.5215,0.568,0.6469,0.712,0.7668,0.8137,0.8544,0.8903,0.9224,1.042,1.12,1.17,1.202,1.233,1.241,1.238,1.228,1.214,1.199,1.182,1.095,1.014,0.9405,0.8758,0.7687,0.6851,0.6186,0.5648,0.5204,0.4832,0.4516};
    843 AddData(E,Pt_5,dens[j]*factor);
    844 G4double Pt_6[31]={0.6218,0.679,0.7771,0.8591,0.9292,0.9899,1.043,1.09,1.132,1.294,1.402,1.475,1.526,1.584,1.608,1.615,1.611,1.601,1.588,1.572,1.48,1.385,1.296,1.215,1.077,0.9665,0.8768,0.8032,0.7419,0.6901,0.6458};
    845 AddData(E,Pt_6,dens[j]*factor);
    846 G4double Pt_7[31]={0.7138,0.781,0.8974,0.9958,1.081,1.155,1.221,1.28,1.333,1.538,1.679,1.779,1.851,1.939,1.984,2.004,2.01,2.006,1.997,1.984,1.893,1.79,1.688,1.593,1.425,1.287,1.173,1.079,0.9988,0.931,0.8725};
    847 AddData(E,Pt_7,dens[j]*factor);
    848 G4double Pt_8[31]={0.803,0.8796,1.014,1.128,1.228,1.316,1.395,1.466,1.529,1.779,1.955,2.083,2.177,2.3,2.368,2.404,2.42,2.424,2.421,2.412,2.328,2.22,2.109,2.001,1.807,1.642,1.504,1.388,1.289,1.204,1.13};
    849 AddData(E,Pt_8,dens[j]*factor);
    850 G4double Pt_9[31]={0.8862,0.9718,1.122,1.252,1.366,1.468,1.559,1.641,1.716,2.012,2.223,2.38,2.499,2.658,2.751,2.804,2.834,2.847,2.851,2.847,2.775,2.666,2.549,2.431,2.214,2.025,1.863,1.726,1.608,1.505,1.416};
    851 AddData(E,Pt_9,dens[j]*factor);
    852 G4double Pt_10[31]={0.9654,1.059,1.226,1.37,1.498,1.612,1.716,1.81,1.896,2.238,2.485,2.672,2.816,3.014,3.134,3.207,3.251,3.275,3.287,3.29,3.234,3.128,3.007,2.882,2.644,2.432,2.249,2.091,1.953,1.833,1.728};
    853 AddData(E,Pt_10,dens[j]*factor);
    854 G4double Pt_11[31]={1.04,1.141,1.322,1.481,1.621,1.748,1.864,1.969,2.066,2.455,2.74,2.957,3.127,3.365,3.515,3.61,3.671,3.708,3.729,3.739,3.704,3.605,3.482,3.352,3.096,2.864,2.66,2.481,2.325,2.187,2.066};
    855 AddData(E,Pt_11,dens[j]*factor);
    856 G4double Pt_12[31]={1.108,1.217,1.411,1.582,1.735,1.874,2,2.116,2.224,2.658,2.98,3.228,3.424,3.702,3.884,4.004,4.083,4.134,4.166,4.185,4.175,4.085,3.964,3.83,3.561,3.311,3.088,2.89,2.716,2.561,2.424};
    857 AddData(E,Pt_12,dens[j]*factor);
    858 G4double Pt_13[31]={1.176,1.292,1.499,1.683,1.847,1.997,2.135,2.262,2.379,2.86,3.218,3.498,3.72,4.042,4.255,4.4,4.498,4.564,4.608,4.637,4.655,4.577,4.46,4.325,4.044,3.778,3.537,3.321,3.129,2.958,2.804};
    859 AddData(E,Pt_13,dens[j]*factor);
    860 G4double Pt_14[31]={1.242,1.365,1.585,1.779,1.955,2.116,2.264,2.401,2.528,3.053,3.448,3.759,4.008,4.375,4.622,4.792,4.91,4.992,5.048,5.087,5.137,5.073,4.961,4.827,4.538,4.258,4,3.767,3.559,3.371,3.203};
    861 AddData(E,Pt_14,dens[j]*factor);
    862 G4double Pt_15[31]={1.303,1.432,1.663,1.869,2.055,2.226,2.383,2.53,2.667,3.235,3.666,4.008,4.285,4.698,4.981,5.18,5.32,5.419,5.49,5.541,5.628,5.583,5.48,5.349,5.055,4.762,4.489,4.24,4.015,3.811,3.627};
    863 AddData(E,Pt_15,dens[j]*factor);
    864 G4double Pt_16[31]={1.363,1.498,1.741,1.957,2.154,2.334,2.501,2.657,2.804,3.414,3.882,4.255,4.56,5.019,5.34,5.568,5.731,5.849,5.935,5.998,6.124,6.1,6.008,5.88,5.584,5.281,4.994,4.73,4.489,4.27,4.071};
    865 AddData(E,Pt_16,dens[j]*factor);
    866 G4double Pt_17[31]={1.42,1.561,1.815,2.041,2.247,2.437,2.613,2.778,2.933,3.584,4.087,4.492,4.824,5.331,5.69,5.947,6.134,6.271,6.373,6.449,6.618,6.616,6.537,6.416,6.121,5.809,5.51,5.232,4.977,4.743,4.53};
    867 AddData(E,Pt_17,dens[j]*factor);
    868 G4double Pt_18[31]={1.484,1.632,1.897,2.133,2.349,2.548,2.733,2.907,3.071,3.763,4.302,4.738,5.097,5.651,6.047,6.333,6.543,6.699,6.816,6.905,7.113,7.133,7.065,6.95,6.656,6.338,6.028,5.737,5.468,5.221,4.994};
    869 AddData(E,Pt_18,dens[j]*factor);
    870 j++;
    871 
    872 G4double Au_3[31]={0.3146,0.3401,0.3821,0.4151,0.4417,0.4636,0.4822,0.4981,0.512,0.5601,0.5855,0.5977,0.6018,0.5976,0.5859,0.5715,0.5563,0.5412,0.5266,0.5127,0.4536,0.4077,0.3708,0.3403,0.2927,0.2576,0.2306,0.2093,0.192,0.1778,0.1657};
    873 AddData(E,Au_3,dens[j]*factor);
    874 G4double Au_4[31]={0.4344,0.4717,0.5341,0.5845,0.6261,0.6609,0.6907,0.7167,0.7395,0.8225,0.8719,0.9009,0.9167,0.9255,0.9198,0.9076,0.8921,0.875,0.8575,0.84,0.7597,0.6921,0.6352,0.5868,0.5095,0.4509,0.4052,0.3687,0.3389,0.3142,0.2932};
    875 AddData(E,Au_4,dens[j]*factor);
    876 G4double Au_5[31]={0.5472,0.5962,0.6791,0.7473,0.8046,0.8534,0.8955,0.9324,0.9652,1.087,1.165,1.215,1.246,1.276,1.281,1.275,1.263,1.246,1.228,1.209,1.114,1.028,0.9523,0.8859,0.7766,0.6917,0.6243,0.5698,0.5249,0.4873,0.4553};
    877 AddData(E,Au_5,dens[j]*factor);
    878 G4double Au_6[31]={0.6522,0.7123,0.8152,0.9011,0.9743,1.037,1.093,1.141,1.185,1.349,1.457,1.531,1.581,1.637,1.659,1.663,1.656,1.643,1.627,1.608,1.506,1.405,1.313,1.23,1.088,0.9758,0.8848,0.8102,0.7482,0.6958,0.651};
    879 AddData(E,Au_6,dens[j]*factor);
    880 G4double Au_7[31]={0.7484,0.8189,0.9409,1.044,1.133,1.21,1.279,1.339,1.394,1.602,1.744,1.844,1.916,2.003,2.045,2.062,2.064,2.057,2.045,2.029,1.926,1.816,1.71,1.611,1.44,1.299,1.184,1.088,1.007,0.9385,0.8794};
    881 AddData(E,Au_7,dens[j]*factor);
    882 G4double Au_8[31]={0.8412,0.9217,1.062,1.182,1.286,1.378,1.459,1.532,1.598,1.853,2.03,2.158,2.253,2.374,2.439,2.472,2.485,2.486,2.479,2.466,2.369,2.253,2.136,2.025,1.826,1.658,1.518,1.4,1.3,1.214,1.139};
    883 AddData(E,Au_8,dens[j]*factor);
    884 G4double Au_9[31]={0.9278,1.018,1.175,1.311,1.43,1.536,1.63,1.715,1.793,2.094,2.307,2.465,2.584,2.742,2.833,2.883,2.909,2.919,2.919,2.911,2.824,2.706,2.582,2.46,2.237,2.044,1.88,1.74,1.621,1.517,1.427};
    885 AddData(E,Au_9,dens[j]*factor);
    886 G4double Au_10[31]={1.01,1.109,1.283,1.433,1.567,1.686,1.793,1.89,1.979,2.329,2.579,2.767,2.911,3.108,3.227,3.297,3.337,3.357,3.365,3.364,3.291,3.175,3.046,2.916,2.671,2.456,2.269,2.108,1.969,1.848,1.741};
    887 AddData(E,Au_10,dens[j]*factor);
    888 G4double Au_11[31]={1.087,1.194,1.383,1.548,1.695,1.827,1.946,2.056,2.156,2.553,2.842,3.061,3.231,3.469,3.617,3.71,3.766,3.799,3.817,3.823,3.77,3.659,3.528,3.392,3.129,2.892,2.684,2.502,2.344,2.204,2.081};
    889 AddData(E,Au_11,dens[j]*factor);
    890 G4double Au_12[31]={1.158,1.272,1.475,1.653,1.813,1.957,2.088,2.208,2.319,2.764,3.09,3.341,3.537,3.816,3.996,4.113,4.188,4.236,4.264,4.279,4.25,4.147,4.016,3.877,3.599,3.343,3.116,2.915,2.738,2.581,2.442};
    891 AddData(E,Au_12,dens[j]*factor);
    892 G4double Au_13[31]={1.228,1.349,1.566,1.757,1.929,2.084,2.227,2.358,2.48,2.972,3.336,3.618,3.842,4.165,4.377,4.519,4.614,4.676,4.716,4.74,4.739,4.646,4.519,4.377,4.087,3.815,3.568,3.349,3.154,2.981,2.825};
    893 AddData(E,Au_13,dens[j]*factor);
    894 G4double Au_14[31]={1.296,1.424,1.653,1.856,2.039,2.206,2.36,2.502,2.633,3.171,3.573,3.887,4.139,4.506,4.753,4.921,5.035,5.113,5.165,5.2,5.229,5.15,5.028,4.886,4.587,4.299,4.036,3.8,3.588,3.398,3.227};
    895 AddData(E,Au_14,dens[j]*factor);
    896 G4double Au_15[31]={1.358,1.493,1.734,1.949,2.142,2.32,2.483,2.635,2.776,3.359,3.798,4.145,4.424,4.838,5.122,5.318,5.455,5.551,5.617,5.663,5.729,5.668,5.554,5.414,5.109,4.809,4.53,4.276,4.047,3.841,3.654};
    897 AddData(E,Au_15,dens[j]*factor);
    898 G4double Au_16[31]={1.42,1.561,1.814,2.039,2.244,2.431,2.605,2.766,2.917,3.544,4.021,4.399,4.706,5.168,5.489,5.715,5.875,5.989,6.071,6.13,6.234,6.192,6.088,5.952,5.645,5.333,5.04,4.771,4.526,4.303,4.101};
    899 AddData(E,Au_16,dens[j]*factor);
    900 G4double Au_17[31]={1.479,1.626,1.89,2.125,2.339,2.536,2.719,2.89,3.05,3.719,4.232,4.642,4.978,5.489,5.848,6.104,6.288,6.422,6.519,6.591,6.737,6.717,6.624,6.494,6.187,5.867,5.561,5.277,5.017,4.78,4.563};
    901 AddData(E,Au_17,dens[j]*factor);
    902 G4double Au_18[31]={1.543,1.697,1.973,2.219,2.443,2.65,2.842,3.022,3.191,3.903,4.453,4.895,5.259,5.817,6.213,6.499,6.706,6.859,6.971,7.056,7.241,7.241,7.16,7.036,6.729,6.401,6.083,5.787,5.513,5.261,5.031};
    903 AddData(E,Au_18,dens[j]*factor);
    904 j++;
    905 
    906 G4double Pb_3[31]={0.3483,0.3786,0.426,0.4605,0.4861,0.5059,0.5217,0.5346,0.5454,0.5801,0.5962,0.602,0.6016,0.5907,0.5742,0.5559,0.5375,0.5197,0.5029,0.4873,0.4243,0.3787,0.3436,0.3154,0.2722,0.2406,0.2163,0.1971,0.1814,0.1684,0.1574};
    907 AddData(E,Pb_3,dens[j]*factor);
    908 G4double Pb_4[31]={0.4635,0.5078,0.5801,0.6356,0.6786,0.7126,0.7402,0.7631,0.7826,0.8488,0.8853,0.9051,0.9142,0.9137,0.9012,0.8835,0.8633,0.8423,0.8215,0.8013,0.714,0.646,0.5913,0.5461,0.4751,0.4219,0.3805,0.3473,0.3202,0.2976,0.2784};
    909 AddData(E,Pb_4,dens[j]*factor);
    910 G4double Pb_5[31]={0.5692,0.6265,0.7228,0.7996,0.8612,0.911,0.9521,0.9866,1.016,1.119,1.18,1.218,1.241,1.258,1.255,1.242,1.224,1.202,1.18,1.157,1.052,0.9641,0.8904,0.8276,0.7265,0.6487,0.5871,0.5373,0.4962,0.4617,0.4323};
    911 AddData(E,Pb_5,dens[j]*factor);
    912 G4double Pb_6[31]={0.6665,0.7355,0.8541,0.9515,1.032,1.098,1.154,1.201,1.242,1.386,1.475,1.534,1.573,1.614,1.626,1.621,1.607,1.588,1.566,1.543,1.427,1.323,1.232,1.153,1.021,0.9172,0.8336,0.765,0.7079,0.6597,0.6184};
    913 AddData(E,Pb_6,dens[j]*factor);
    914 G4double Pb_7[31]={0.7558,0.8351,0.9739,1.091,1.189,1.272,1.343,1.403,1.456,1.645,1.765,1.848,1.906,1.974,2.005,2.012,2.006,1.992,1.973,1.952,1.831,1.715,1.61,1.515,1.354,1.224,1.117,1.029,0.954,0.8905,0.8358};
    915 AddData(E,Pb_7,dens[j]*factor);
    916 G4double Pb_8[31]={0.8429,0.9317,1.089,1.223,1.339,1.439,1.524,1.599,1.664,1.9,2.053,2.161,2.24,2.34,2.391,2.414,2.418,2.411,2.396,2.378,2.259,2.135,2.018,1.91,1.722,1.565,1.435,1.325,1.232,1.153,1.083};
    917 AddData(E,Pb_8,dens[j]*factor);
    918 G4double Pb_9[31]={0.9254,1.023,1.197,1.348,1.479,1.594,1.695,1.783,1.86,2.146,2.334,2.469,2.57,2.703,2.778,2.817,2.833,2.835,2.827,2.812,2.7,2.571,2.445,2.327,2.114,1.934,1.781,1.651,1.539,1.442,1.358};
    919 AddData(E,Pb_9,dens[j]*factor);
    920 G4double Pb_10[31]={1.005,1.11,1.299,1.465,1.612,1.742,1.856,1.958,2.048,2.384,2.609,2.772,2.896,3.065,3.166,3.224,3.253,3.265,3.264,3.255,3.154,3.024,2.892,2.765,2.531,2.327,2.153,2.002,1.872,1.758,1.658};
    921 AddData(E,Pb_10,dens[j]*factor);
    922 G4double Pb_11[31]={1.081,1.193,1.396,1.576,1.736,1.88,2.008,2.123,2.226,2.613,2.875,3.068,3.216,3.422,3.551,3.63,3.676,3.699,3.708,3.706,3.621,3.493,3.358,3.223,2.97,2.746,2.55,2.38,2.231,2.1,1.984};
    923 AddData(E,Pb_11,dens[j]*factor);
    924 G4double Pb_12[31]={1.152,1.271,1.487,1.679,1.851,2.007,2.148,2.275,2.39,2.828,3.128,3.351,3.523,3.767,3.925,4.028,4.092,4.129,4.148,4.154,4.09,3.968,3.831,3.691,3.422,3.18,2.965,2.776,2.609,2.461,2.33};
    925 AddData(E,Pb_12,dens[j]*factor);
    926 G4double Pb_13[31]={1.223,1.349,1.577,1.781,1.965,2.133,2.285,2.424,2.551,3.04,3.378,3.632,3.83,4.114,4.303,4.429,4.512,4.563,4.593,4.608,4.569,4.455,4.318,4.175,3.894,3.634,3.401,3.193,3.009,2.845,2.698};
    927 AddData(E,Pb_13,dens[j]*factor);
    928 G4double Pb_14[31]={1.293,1.426,1.666,1.88,2.075,2.253,2.417,2.567,2.705,3.243,3.621,3.905,4.129,4.455,4.675,4.827,4.928,4.995,5.038,5.062,5.051,4.947,4.813,4.669,4.376,4.101,3.851,3.627,3.426,3.246,3.084};
    929 AddData(E,Pb_14,dens[j]*factor);
    930 G4double Pb_15[31]={1.358,1.497,1.748,1.973,2.178,2.366,2.54,2.7,2.848,3.435,3.851,4.167,4.417,4.787,5.042,5.22,5.344,5.428,5.484,5.52,5.543,5.454,5.326,5.181,4.882,4.594,4.328,4.087,3.869,3.673,3.496};
    931 AddData(E,Pb_15,dens[j]*factor);
    932 G4double Pb_16[31]={1.423,1.569,1.831,2.065,2.28,2.477,2.661,2.831,2.989,3.624,4.078,4.426,4.703,5.118,5.408,5.614,5.76,5.863,5.934,5.982,6.04,5.968,5.847,5.705,5.401,5.101,4.82,4.564,4.33,4.119,3.927};
    933 AddData(E,Pb_16,dens[j]*factor);
    934 G4double Pb_17[31]={1.485,1.637,1.91,2.154,2.377,2.584,2.776,2.955,3.122,3.802,4.296,4.675,4.98,5.44,5.765,6,6.17,6.291,6.378,6.439,6.536,6.483,6.371,6.233,5.927,5.617,5.324,5.053,4.805,4.579,4.372};
    935 AddData(E,Pb_17,dens[j]*factor);
    936 G4double Pb_18[31]={1.554,1.713,1.998,2.252,2.485,2.7,2.901,3.089,3.265,3.99,4.522,4.934,5.266,5.771,6.132,6.394,6.586,6.726,6.827,6.901,7.035,6.999,6.897,6.762,6.454,6.136,5.831,5.547,5.285,5.044,4.824};
    937 AddData(E,Pb_18,dens[j]*factor);
    938 j++;
    939 
    940 G4double U_3[31]={0.4158,0.4488,0.4987,0.5342,0.5603,0.5798,0.5944,0.6054,0.6139,0.6323,0.6313,0.623,0.6119,0.5877,0.564,0.5413,0.5196,0.4992,0.4801,0.4623,0.3915,0.3427,0.3074,0.2806,0.2419,0.2148,0.1943,0.1781,0.1649,0.1538,0.1443};
    941 AddData(E,U_3,dens[j]*factor);
    942 G4double U_4[31]={0.5309,0.5804,0.6584,0.7166,0.7614,0.7965,0.8243,0.8465,0.8645,0.9152,0.9314,0.9324,0.9264,0.9057,0.8816,0.8569,0.8318,0.8068,0.7824,0.7591,0.6601,0.5867,0.5313,0.4878,0.4235,0.3773,0.3421,0.314,0.291,0.2716,0.2551};
    943 AddData(E,U_4,dens[j]*factor);
    944 G4double U_5[31]={0.6283,0.6928,0.7987,0.8807,0.9455,0.9979,1.041,1.076,1.105,1.196,1.235,1.25,1.253,1.243,1.224,1.201,1.175,1.149,1.122,1.095,0.9736,0.8778,0.8024,0.7416,0.6491,0.581,0.5283,0.4859,0.4508,0.4212,0.3959};
    945 AddData(E,U_5,dens[j]*factor);
    946 G4double U_6[31]={0.7126,0.79,0.9217,1.027,1.112,1.183,1.241,1.291,1.332,1.468,1.535,1.569,1.585,1.59,1.58,1.563,1.54,1.514,1.486,1.458,1.322,1.207,1.113,1.036,0.9142,0.8227,0.7506,0.692,0.6431,0.6017,0.566};
    947 AddData(E,U_6,dens[j]*factor);
    948 G4double U_7[31]={0.786,0.8741,1.029,1.156,1.261,1.35,1.425,1.489,1.543,1.728,1.828,1.883,1.914,1.941,1.944,1.935,1.917,1.895,1.869,1.841,1.697,1.567,1.457,1.364,1.215,1.099,1.007,0.9307,0.8667,0.812,0.7647};
    949 AddData(E,U_7,dens[j]*factor);
    950 G4double U_8[31]={0.8561,0.9532,1.127,1.275,1.4,1.506,1.597,1.676,1.744,1.982,2.116,2.196,2.245,2.296,2.314,2.316,2.306,2.289,2.267,2.241,2.094,1.953,1.829,1.722,1.546,1.407,1.294,1.2,1.12,1.051,0.9908};
    951 AddData(E,U_8,dens[j]*factor);
    952 G4double U_9[31]={0.9213,1.026,1.217,1.383,1.526,1.649,1.756,1.849,1.932,2.223,2.394,2.501,2.57,2.648,2.684,2.698,2.698,2.688,2.67,2.648,2.504,2.355,2.22,2.101,1.902,1.74,1.607,1.495,1.398,1.315,1.242};
    953 AddData(E,U_9,dens[j]*factor);
    954 G4double U_10[31]={0.9839,1.096,1.3,1.483,1.642,1.782,1.904,2.012,2.107,2.453,2.664,2.8,2.891,2.999,3.055,3.083,3.094,3.092,3.08,3.063,2.927,2.773,2.629,2.5,2.279,2.097,1.944,1.814,1.701,1.603,1.516};
    955 AddData(E,U_10,dens[j]*factor);
    956 G4double U_11[31]={1.043,1.161,1.378,1.574,1.749,1.903,2.04,2.162,2.271,2.672,2.924,3.09,3.204,3.344,3.422,3.468,3.491,3.499,3.496,3.484,3.361,3.206,3.056,2.918,2.677,2.476,2.304,2.157,2.028,1.915,1.814};
    957 AddData(E,U_11,dens[j]*factor);
    958 G4double U_12[31]={1.098,1.222,1.45,1.657,1.845,2.013,2.164,2.298,2.42,2.875,3.168,3.365,3.503,3.677,3.78,3.844,3.883,3.902,3.908,3.903,3.798,3.645,3.49,3.345,3.088,2.87,2.681,2.517,2.372,2.244,2.131};
    959 AddData(E,U_12,dens[j]*factor);
    960 G4double U_13[31]={1.155,1.284,1.522,1.74,1.939,2.12,2.283,2.431,2.564,3.074,3.408,3.637,3.801,4.011,4.14,4.224,4.277,4.309,4.324,4.328,4.244,4.096,3.939,3.788,3.517,3.282,3.077,2.896,2.737,2.595,2.467};
    961 AddData(E,U_13,dens[j]*factor);
    962 G4double U_14[31]={1.209,1.345,1.592,1.819,2.029,2.221,2.396,2.555,2.7,3.262,3.638,3.9,4.09,4.34,4.495,4.599,4.669,4.713,4.739,4.751,4.692,4.551,4.394,4.24,3.956,3.707,3.486,3.291,3.117,2.961,2.82};
    963 AddData(E,U_14,dens[j]*factor);
    964 G4double U_15[31]={1.261,1.402,1.658,1.893,2.111,2.313,2.499,2.669,2.825,3.437,3.854,4.15,4.367,4.658,4.844,4.971,5.058,5.118,5.156,5.178,5.149,5.02,4.865,4.709,4.416,4.153,3.919,3.709,3.521,3.351,3.197};
    965 AddData(E,U_15,dens[j]*factor);
    966 G4double U_16[31]={1.313,1.459,1.725,1.967,2.193,2.404,2.599,2.78,2.946,3.607,4.065,4.396,4.641,4.975,5.192,5.342,5.449,5.524,5.575,5.608,5.611,5.495,5.345,5.189,4.888,4.614,4.367,4.143,3.941,3.757,3.59};
    967 AddData(E,U_16,dens[j]*factor);
    968 G4double U_17[31]={1.363,1.514,1.789,2.038,2.271,2.49,2.694,2.884,3.06,3.767,4.266,4.63,4.904,5.283,5.532,5.707,5.833,5.924,5.989,6.033,6.073,5.972,5.828,5.673,5.368,5.084,4.825,4.589,4.373,4.177,3.998};
    969 AddData(E,U_17,dens[j]*factor);
    970 G4double U_18[31]={1.419,1.577,1.861,2.118,2.358,2.585,2.797,2.996,3.181,3.935,4.474,4.872,5.175,5.599,5.879,6.078,6.223,6.33,6.408,6.463,6.537,6.451,6.313,6.159,5.849,5.556,5.286,5.038,4.811,4.603,4.412};
    971 AddData(E,U_18,dens[j]*factor);
    972 }
     198  G4PhysicsVector* physicsVector = 0;
     199
     200  DEDXKey key = std::make_pair(ionZ, matName);
     201
     202  // Checking if dE/dx vector was already created
     203  size_t nmbKeys = dedxKeys.size();
     204  for( size_t i = 0; i < nmbKeys; i++ ) {
     205
     206    if( dedxKeys[i] == key ) { physicsVector = dedx[i]; break; }
     207  }
     208  if(physicsVector != 0) { return physicsVector; }
     209
     210  // Creating dE/dx vector if ion-material pair covered
     211  G4double factor = MeV * cm2 / (0.001 * g);
     212
     213  G4double E[31] = {.025,.03,.04,.05,.06,.07,.08,.09,.1,.15,.2,.25,.3,.4,.5,.6,.7,.8,.9,1,1.5,2,2.5,3,4,5,6,7,8,9,10};
     214
     215  for( G4int i = 0; i < 31; i++ ) E[i] *= MeV;
     216
     217  // Data name: (Z_NameMaterial)_(Z_Ion)[31]=
     218  if( matName == namesMat[0] ) {
     219     if( ionZ == 3 ) {
     220        G4double H_3[31]={8.31,8.919,9.838,10.46,10.87,11.14,11.3,11.4,11.43,11.21,10.73,10.21,9.696,8.773,7.989,7.326,6.761,6.275,5.853,5.485,4.175,3.377,2.843,2.46,1.948,1.62,1.393,1.225,1.095,0.9921,0.9082};
     221        physicsVector = CreatePhysicsVector(E,H_3,factor);
     222     }
     223     else if( ionZ == 4 ) {
     224        G4double H_4[31]={10.5,11.36,12.72,13.72,14.44,14.96,15.33,15.58,15.76,15.9,15.53,15.01,14.46,13.38,12.41,11.55,10.79,10.12,9.533,9.006,7.054,5.801,4.933,4.297,3.427,2.862,2.464,2.169,1.941,1.759,1.61};
     225        physicsVector = CreatePhysicsVector(E,H_4,factor);
     226     }
     227     else if( ionZ == 5 ) {
     228        G4double H_5[31]={12.19,13.29,15.12,16.52,17.59,18.4,19.01,19.47,19.81,20.46,20.31,19.88,19.34,18.2,17.1,16.1,15.2,14.38,13.65,12.98,10.42,8.704,7.478,6.56,5.278,4.428,3.823,3.371,3.019,2.738,2.509};
     229        physicsVector = CreatePhysicsVector(E,H_5,factor);
     230     }
     231     else if( ionZ == 6 ) {
     232        G4double H_6[31]={13.42,14.75,17,18.81,20.25,21.38,22.27,22.96,23.5,24.79,24.94,24.64,24.17,23.04,21.88,20.78,19.77,18.84,17.98,17.2,14.1,11.95,10.37,9.165,7.449,6.286,5.448,4.815,4.321,3.923,3.597};
     233        physicsVector = CreatePhysicsVector(E,H_6,factor);
     234     }
     235     else if( ionZ == 7 ) {
     236        G4double H_7[31]={14.65,16.14,18.73,20.87,22.62,24.05,25.2,26.14,26.89,28.88,29.39,29.29,28.92,27.86,26.68,25.53,24.44,23.42,22.47,21.59,18.02,15.47,13.55,12.06,9.897,8.406,7.316,6.486,5.831,5.303,4.867};
     237        physicsVector = CreatePhysicsVector(E,H_7,factor);
     238     }
     239     else if( ionZ == 8 ) {
     240        G4double H_8[31]={15.64,17.28,20.18,22.63,24.7,26.42,27.86,29.04,30.01,32.8,33.74,33.89,33.67,32.74,31.6,30.43,29.28,28.2,27.17,26.21,22.22,19.28,17.02,15.25,12.63,10.79,9.426,8.38,7.55,6.877,6.319};
     241        physicsVector = CreatePhysicsVector(E,H_8,factor);
     242     }
     243     else if( ionZ == 9 ) {
     244        G4double H_9[31]={16.24,18,21.15,23.88,26.22,28.23,29.92,31.35,32.54,36.14,37.55,37.97,37.91,37.16,36.08,34.91,33.75,32.63,31.55,30.54,26.25,23.01,20.48,18.46,15.44,13.29,11.67,10.42,9.415,8.595,7.913};
     245        physicsVector = CreatePhysicsVector(E,H_9,factor);
     246     }
     247     else if( ionZ == 10 ) {
     248        G4double H_10[31]={16.75,18.6,21.96,24.92,27.51,29.77,31.71,33.37,34.79,39.25,41.16,41.89,42.03,41.48,40.49,39.36,38.19,37.05,35.94,34.89,30.34,26.83,24.06,21.82,18.41,15.94,14.08,12.61,11.43,10.46,9.649};
     249        physicsVector = CreatePhysicsVector(E,H_10,factor);
     250     }
     251     else if( ionZ == 11 ) {
     252        G4double H_11[31]={17.23,19.15,22.67,25.81,28.63,31.11,33.29,35.19,36.84,42.23,44.76,45.89,46.29,46.05,45.2,44.14,43,41.85,40.73,39.64,34.85,31.06,28.02,25.53,21.7,18.89,16.74,15.04,13.66,12.53,11.57};
     253        physicsVector = CreatePhysicsVector(E,H_11,factor);
     254     }
     255     else if( ionZ == 12 ) {
     256        G4double H_12[31]={18,19.94,23.52,26.77,29.72,32.37,34.73,36.82,38.65,44.89,48.02,49.56,50.24,50.33,49.67,48.7,47.6,46.47,45.34,44.23,39.25,35.23,31.96,29.25,25.04,21.91,19.5,17.58,16.01,14.71,13.61};
     257        physicsVector = CreatePhysicsVector(E,H_12,factor);
     258     }
     259     else if( ionZ == 13 ) {
     260        G4double H_13[31]={18.67,20.65,24.32,27.67,30.74,33.53,36.06,38.32,40.33,47.38,51.11,53.06,54.04,54.51,54.05,53.2,52.17,51.07,49.94,48.83,43.71,39.47,36,33.09,28.51,25.07,22.39,20.25,18.49,17.02,15.77};
     261        physicsVector = CreatePhysicsVector(E,H_13,factor);
     262     }
     263     else if( ionZ == 14 ) {
     264        G4double H_14[31]={19.33,21.35,25.1,28.53,31.69,34.6,37.26,39.67,41.83,49.62,53.93,56.29,57.56,58.4,58.15,57.43,56.47,55.41,54.31,53.2,47.99,43.59,39.93,36.85,31.95,28.23,25.32,22.96,21.02,19.39,18.01};
     265        physicsVector = CreatePhysicsVector(E,H_14,factor);
     266     }
     267     else if( ionZ == 15 ) {
     268        G4double H_15[31]={20.27,22.34,26.16,29.67,32.92,35.93,38.7,41.24,43.54,52.03,56.89,59.67,61.24,62.49,62.48,61.9,61.04,60.04,58.96,57.86,52.58,48.02,44.17,40.89,35.65,31.64,28.46,25.88,23.75,21.95,20.41};
     269        physicsVector = CreatePhysicsVector(E,H_15,factor);
     270     }
     271     else if( ionZ == 16 ) {
     272        G4double H_16[31]={20.94,23.07,26.99,30.59,33.94,37.06,39.96,42.63,45.08,54.29,59.75,62.97,64.88,66.56,66.82,66.41,65.66,64.72,63.69,62.62,57.29,52.58,48.55,45.1,39.52,35.2,31.76,28.96,26.62,24.64,22.95};
     273        physicsVector = CreatePhysicsVector(E,H_16,factor);
     274     }
     275     else if( ionZ == 17 ) {
     276        G4double H_17[31]={21.89,24.05,28,31.64,35.03,38.21,41.18,43.94,46.49,56.31,62.31,65.95,68.16,70.25,70.76,70.52,69.87,69.01,68.02,66.97,61.64,56.83,52.67,49.08,43.22,38.65,34.98,31.98,29.46,27.33,25.49};
     277        physicsVector = CreatePhysicsVector(E,H_17,factor);
     278     }
     279     else if( ionZ == 18 ) {
     280        G4double H_18[31]={22.3,24.5,28.52,32.2,35.64,38.87,41.91,44.76,47.41,57.82,64.39,68.46,71,73.53,74.31,74.25,73.72,72.94,72.01,71,65.7,60.83,56.57,52.86,46.78,41.99,38.13,34.95,32.28,30,28.04};
     281        physicsVector = CreatePhysicsVector(E,H_18,factor);
     282     }
     283  }
     284
     285  else if( matName == namesMat[1] ) {
     286     if( ionZ == 3 ) {
     287        G4double He_3[31]={2.636,2.851,3.202,3.47,3.676,3.832,3.948,4.035,4.097,4.194,4.123,3.996,3.85,3.558,3.29,3.052,2.842,2.656,2.492,2.346,1.812,1.476,1.247,1.082,0.8605,0.7182,0.6189,0.5455,0.4889,0.4437,0.4068};
     288        physicsVector = CreatePhysicsVector(E,He_3,factor);
     289     }
     290     else if( ionZ == 4 ) {
     291        G4double He_4[31]={3.352,3.645,4.14,4.539,4.862,5.122,5.33,5.495,5.626,5.943,5.972,5.886,5.753,5.439,5.122,4.824,4.55,4.302,4.077,3.871,3.08,2.553,2.179,1.903,1.522,1.274,1.098,0.9684,0.8679,0.7877,0.7222};
     292        physicsVector = CreatePhysicsVector(E,He_4,factor);
     293     }
     294     else if( ionZ == 5 ) {
     295        G4double He_5[31]={3.917,4.284,4.921,5.452,5.897,6.268,6.577,6.832,7.043,7.634,7.806,7.794,7.697,7.402,7.067,6.735,6.419,6.123,5.848,5.592,4.569,3.85,3.323,2.923,2.358,1.981,1.712,1.511,1.354,1.229,1.127};
     296        physicsVector = CreatePhysicsVector(E,He_5,factor);
     297     }
     298     else if( ionZ == 6 ) {
     299        G4double He_6[31]={4.345,4.779,5.548,6.207,6.774,7.26,7.675,8.027,8.325,9.235,9.584,9.671,9.631,9.382,9.051,8.703,8.36,8.029,7.717,7.423,6.202,5.306,4.629,4.104,3.344,2.826,2.45,2.166,1.944,1.766,1.62};
     300        physicsVector = CreatePhysicsVector(E,He_6,factor);
     301     }
     302     else if( ionZ == 7 ) {
     303        G4double He_7[31]={4.78,5.263,6.129,6.889,7.557,8.144,8.656,9.102,9.487,10.73,11.29,11.5,11.54,11.36,11.05,10.7,10.35,9.995,9.655,9.331,7.944,6.887,6.069,5.42,4.463,3.795,3.304,2.929,2.634,2.395,2.199};
     304        physicsVector = CreatePhysicsVector(E,He_7,factor);
     305     }
     306     else if( ionZ == 8 ) {
     307        G4double He_8[31]={5.133,5.662,6.619,7.473,8.238,8.921,9.528,10.07,10.54,12.15,12.93,13.29,13.42,13.36,13.1,12.76,12.4,12.04,11.68,11.34,9.814,8.61,7.654,6.882,5.721,4.894,4.278,3.802,3.425,3.119,2.865};
     308        physicsVector = CreatePhysicsVector(E,He_8,factor);
     309     }
     310     else if( ionZ == 9 ) {
     311        G4double He_9[31]={5.37,5.934,6.966,7.897,8.742,9.509,10.2,10.82,11.38,13.33,14.35,14.86,15.09,15.13,14.92,14.61,14.26,13.9,13.53,13.17,11.55,10.24,9.184,8.317,6.989,6.025,5.297,4.729,4.274,3.901,3.591};
     312        physicsVector = CreatePhysicsVector(E,He_9,factor);
     313     }
     314     else if( ionZ == 10 ) {
     315        G4double He_10[31]={5.57,6.164,7.257,8.253,9.168,10.01,10.78,11.47,12.11,14.4,15.67,16.35,16.69,16.86,16.71,16.43,16.09,15.73,15.36,14.99,13.3,11.9,10.75,9.798,8.315,7.221,6.383,5.722,5.189,4.749,4.381};
     316        physicsVector = CreatePhysicsVector(E,He_10,factor);
     317     }
     318     else if( ionZ == 11 ) {
     319        G4double He_11[31]={5.709,6.323,7.464,8.515,9.493,10.4,11.24,12.02,12.73,15.4,16.95,17.83,18.31,18.66,18.6,18.38,18.07,17.72,17.36,16.99,15.25,13.76,12.52,11.47,9.812,8.571,7.609,6.843,6.22,5.704,5.269};
     320        physicsVector = CreatePhysicsVector(E,He_11,factor);
     321     }
     322     else if( ionZ == 12 ) {
     323        G4double He_12[31]={5.934,6.556,7.715,8.793,9.807,10.76,11.65,12.49,13.26,16.25,18.08,19.16,19.79,20.33,20.38,20.22,19.94,19.62,19.27,18.9,17.13,15.57,14.25,13.12,11.32,9.946,8.87,8.005,7.297,6.706,6.206};
     324        physicsVector = CreatePhysicsVector(E,He_12,factor);
     325     }
     326     else if( ionZ == 13 ) {
     327        G4double He_13[31]={6.134,6.771,7.956,9.062,10.11,11.1,12.04,12.92,13.74,17.03,19.13,20.42,21.21,21.95,22.13,22.04,21.82,21.52,21.19,20.83,19.04,17.43,16.03,14.83,12.89,11.38,10.2,9.233,8.438,7.771,7.205};
     328        physicsVector = CreatePhysicsVector(E,He_13,factor);
     329     }
     330     else if( ionZ == 14 ) {
     331        G4double He_14[31]={6.339,6.99,8.198,9.326,10.4,11.42,12.39,13.31,14.18,17.73,20.07,21.57,22.51,23.46,23.76,23.75,23.57,23.31,22.99,22.65,20.85,19.2,17.75,16.48,14.41,12.8,11.51,10.46,9.59,8.853,8.225};
     332        physicsVector = CreatePhysicsVector(E,He_14,factor);
     333     }
     334     else if( ionZ == 15 ) {
     335        G4double He_15[31]={6.634,7.302,8.541,9.696,10.79,11.84,12.85,13.81,14.72,18.51,21.1,22.8,23.91,25.08,25.52,25.6,25.49,25.27,24.98,24.66,22.88,21.18,19.66,18.33,16.12,14.38,12.98,11.82,10.86,10.05,9.347};
     336        physicsVector = CreatePhysicsVector(E,He_15,factor);
     337     }
     338     else if( ionZ == 16 ) {
     339        G4double He_16[31]={6.833,7.524,8.803,9.993,11.12,12.21,13.25,14.24,15.2,19.23,22.07,23.99,25.27,26.69,27.28,27.46,27.42,27.25,27,26.7,24.96,23.23,21.66,20.26,17.91,16.05,14.53,13.27,12.22,11.32,10.54};
     340        physicsVector = CreatePhysicsVector(E,He_16,factor);
     341     }
     342     else if( ionZ == 17 ) {
     343        G4double He_17[31]={7.144,7.843,9.139,10.34,11.49,12.59,13.65,14.68,15.66,19.88,22.95,25.06,26.5,28.14,28.87,29.15,29.17,29.05,28.83,28.55,26.84,25.09,23.48,22.03,19.58,17.61,16,14.66,13.52,12.55,11.72};
     344        physicsVector = CreatePhysicsVector(E,He_17,factor);
     345     }
     346     else if( ionZ == 18 ) {
     347        G4double He_18[31]={7.268,7.978,9.289,10.51,11.66,12.78,13.85,14.89,15.9,20.3,23.58,25.89,27.49,29.36,30.24,30.62,30.71,30.63,30.44,30.19,28.52,26.76,25.12,23.64,21.12,19.07,17.38,15.97,14.77,13.75,12.85};
     348        physicsVector = CreatePhysicsVector(E,He_18,factor);
     349     }
     350  }
     351
     352  else if( matName == namesMat[2] ) {
     353     if( ionZ == 3 ) {
     354        G4double Be_3[31]={2.148,2.307,2.562,2.753,2.897,3.003,3.08,3.132,3.166,3.193,3.127,3.033,2.931,2.727,2.538,2.368,2.217,2.082,1.961,1.854,1.451,1.192,1.013,0.8818,0.7042,0.5894,0.5089,0.4493,0.4032,0.3664,0.3363};
     355        physicsVector = CreatePhysicsVector(E,Be_3,factor);
     356     }
     357     else if( ionZ == 4 ) {
     358        G4double Be_4[31]={2.702,2.928,3.303,3.599,3.833,4.017,4.162,4.273,4.357,4.533,4.535,4.474,4.386,4.177,3.961,3.754,3.561,3.382,3.218,3.067,2.476,2.07,1.777,1.557,1.251,1.049,0.9061,0.7996,0.7172,0.6515,0.5978};
     359        physicsVector = CreatePhysicsVector(E,Be_4,factor);
     360     }
     361     else if( ionZ == 5 ) {
     362        G4double Be_5[31]={3.141,3.432,3.925,4.326,4.654,4.922,5.141,5.32,5.463,5.831,5.93,5.924,5.868,5.687,5.471,5.247,5.029,4.82,4.624,4.44,3.682,3.131,2.72,2.402,1.947,1.639,1.418,1.252,1.123,1.02,0.9352};
     363        physicsVector = CreatePhysicsVector(E,Be_5,factor);
     364     }
     365     else if( ionZ == 6 ) {
     366        G4double Be_6[31]={3.484,3.837,4.444,4.949,5.372,5.727,6.025,6.275,6.483,7.078,7.297,7.363,7.353,7.22,7.02,6.796,6.566,6.339,6.12,5.911,5.014,4.332,3.805,3.388,2.775,2.35,2.039,1.803,1.619,1.47,1.349};
     367        physicsVector = CreatePhysicsVector(E,Be_6,factor);
     368     }
     369     else if( ionZ == 7 ) {
     370        G4double Be_7[31]={3.795,4.198,4.903,5.499,6.008,6.445,6.819,7.14,7.413,8.257,8.619,8.774,8.824,8.761,8.595,8.383,8.153,7.917,7.684,7.457,6.449,5.649,5.011,4.497,3.723,3.173,2.764,2.451,2.203,2.003,1.838};
     371        physicsVector = CreatePhysicsVector(E,Be_7,factor);
     372     }
     373     else if( ionZ == 8 ) {
     374        G4double Be_8[31]={4.05,4.499,5.294,5.978,6.57,7.085,7.534,7.924,8.263,9.368,9.89,10.15,10.27,10.3,10.18,9.998,9.78,9.546,9.308,9.071,7.978,7.075,6.336,5.727,4.791,4.109,3.597,3.197,2.879,2.62,2.406};
     375        physicsVector = CreatePhysicsVector(E,Be_8,factor);
     376     }
     377     else if( ionZ == 9 ) {
     378        G4double Be_9[31]={4.249,4.737,5.609,6.369,7.035,7.621,8.137,8.591,8.991,10.35,11.03,11.39,11.59,11.7,11.64,11.48,11.28,11.05,10.81,10.57,9.42,8.439,7.621,6.937,5.866,5.072,4.465,3.987,3.602,3.286,3.023};
     379        physicsVector = CreatePhysicsVector(E,Be_9,factor);
     380     }
     381     else if( ionZ == 10 ) {
     382        G4double Be_10[31]={4.423,4.942,5.88,6.708,7.442,8.094,8.674,9.189,9.647,11.26,12.11,12.58,12.85,13.07,13.07,12.94,12.76,12.55,12.31,12.07,10.87,9.823,8.936,8.184,6.988,6.087,5.389,4.833,4.381,4.008,3.695};
     383        physicsVector = CreatePhysicsVector(E,Be_10,factor);
     384     }
     385     else if( ionZ == 11 ) {
     386        G4double Be_11[31]={4.542,5.085,6.08,6.967,7.763,8.478,9.12,9.697,10.22,12.09,13.14,13.75,14.11,14.46,14.53,14.46,14.31,14.11,13.89,13.65,12.43,11.33,10.38,9.559,8.236,7.222,6.425,5.784,5.259,4.822,4.452};
     387        physicsVector = CreatePhysicsVector(E,Be_11,factor);
     388     }
     389     else if( ionZ == 12 ) {
     390        G4double Be_12[31]={4.691,5.249,6.282,7.213,8.055,8.819,9.511,10.14,10.71,12.83,14.06,14.8,15.27,15.75,15.91,15.89,15.77,15.6,15.39,15.16,13.93,12.79,11.79,10.91,9.483,8.37,7.485,6.765,6.171,5.673,5.249};
     391        physicsVector = CreatePhysicsVector(E,Be_12,factor);
     392     }
     393     else if( ionZ == 13 ) {
     394        G4double Be_13[31]={4.831,5.402,6.469,7.44,8.325,9.133,9.871,10.54,11.16,13.5,14.93,15.81,16.38,17.01,17.26,17.31,17.24,17.09,16.91,16.69,15.47,14.3,13.25,12.32,10.79,9.579,8.605,7.807,7.142,6.582,6.103};
     395        physicsVector = CreatePhysicsVector(E,Be_13,factor);
     396     }
     397     else if( ionZ == 14 ) {
     398        G4double Be_14[31]={4.976,5.558,6.651,7.655,8.577,9.423,10.2,10.92,11.57,14.12,15.73,16.74,17.42,18.19,18.54,18.66,18.63,18.52,18.35,18.15,16.95,15.75,14.66,13.69,12.07,10.77,9.722,8.852,8.123,7.505,6.974};
     399        physicsVector = CreatePhysicsVector(E,Be_14,factor);
     400     }
     401     else if( ionZ == 15 ) {
     402        G4double Be_15[31]={5.153,5.747,6.866,7.902,8.859,9.743,10.56,11.31,12.01,14.76,16.55,17.72,18.5,19.44,19.9,20.1,20.14,20.08,19.94,19.77,18.62,17.4,16.27,15.26,13.53,12.13,10.99,10.04,9.232,8.545,7.953};
     403        physicsVector = CreatePhysicsVector(E,Be_15,factor);
     404     }
     405     else if( ionZ == 16 ) {
     406        G4double Be_16[31]={5.3,5.907,7.053,8.12,9.113,10.03,10.89,11.68,12.42,15.37,17.35,18.66,19.56,20.67,21.25,21.54,21.65,21.63,21.54,21.39,20.3,19.09,17.93,16.87,15.05,13.56,12.33,11.29,10.41,9.655,9.001};
     407        physicsVector = CreatePhysicsVector(E,Be_16,factor);
     408     }
     409     else if( ionZ == 17 ) {
     410        G4double Be_17[31]={5.5,6.113,7.275,8.362,9.379,10.33,11.21,12.04,12.81,15.93,18.08,19.53,20.55,21.82,22.51,22.89,23.05,23.08,23.02,22.9,21.87,20.65,19.47,18.38,16.49,14.92,13.6,12.5,11.55,10.73,10.02};
     411        physicsVector = CreatePhysicsVector(E,Be_17,factor);
     412     }
     413     else if( ionZ == 18 ) {
     414        G4double Be_18[31]={5.619,6.238,7.409,8.508,9.542,10.51,11.42,12.28,13.07,16.35,18.66,20.25,21.37,22.8,23.61,24.07,24.29,24.37,24.34,24.25,23.27,22.05,20.85,19.74,17.78,16.14,14.77,13.61,12.61,11.75,10.99};
     415        physicsVector = CreatePhysicsVector(E,Be_18,factor);
     416     }
     417}
     418
     419  else if( matName == namesMat[3] ) {
     420     if( ionZ == 3 ) {
     421        G4double C_3[31]={2.043,2.2,2.457,2.658,2.815,2.939,3.035,3.109,3.162,3.238,3.178,3.082,2.978,2.774,2.587,2.419,2.27,2.137,2.018,1.911,1.508,1.246,1.063,0.9292,0.7457,0.6261,0.5418,0.4792,0.4306,0.3918,0.3599};
     422        physicsVector = CreatePhysicsVector(E,C_3,factor);
     423     }
     424     else if( ionZ == 4 ) {
     425        G4double C_4[31]={2.54,2.761,3.135,3.441,3.694,3.902,4.072,4.21,4.321,4.588,4.608,4.546,4.455,4.245,4.032,3.83,3.641,3.467,3.306,3.159,2.572,2.163,1.866,1.641,1.325,1.115,0.9653,0.8533,0.7664,0.6969,0.64};
     426        physicsVector = CreatePhysicsVector(E,C_4,factor);
     427     }
     428     else if( ionZ == 5 ) {
     429        G4double C_5[31]={2.919,3.203,3.692,4.102,4.449,4.743,4.992,5.202,5.378,5.882,6.02,6.019,5.96,5.776,5.562,5.346,5.136,4.935,4.745,4.566,3.821,3.272,2.856,2.532,2.063,1.743,1.512,1.337,1.201,1.092,1.002};
     430        physicsVector = CreatePhysicsVector(E,C_5,factor);
     431     }
     432     else if( ionZ == 6 ) {
     433        G4double C_6[31]={3.206,3.548,4.148,4.659,5.099,5.479,5.809,6.094,6.34,7.113,7.401,7.482,7.471,7.335,7.139,6.923,6.703,6.487,6.278,6.077,5.205,4.529,3.998,3.574,2.944,2.502,2.177,1.929,1.734,1.576,1.447};
     434        physicsVector = CreatePhysicsVector(E,C_6,factor);
     435     }
     436     else if( ionZ == 7 ) {
     437        G4double C_7[31]={3.445,3.836,4.53,5.131,5.657,6.119,6.527,6.885,7.2,8.259,8.728,8.914,8.969,8.905,8.742,8.541,8.324,8.103,7.884,7.668,6.698,5.91,5.273,4.751,3.957,3.386,2.958,2.627,2.364,2.152,1.975};
     438        physicsVector = CreatePhysicsVector(E,C_7,factor);
     439     }
     440     else if( ionZ == 8 ) {
     441        G4double C_8[31]={3.638,4.069,4.848,5.533,6.141,6.682,7.165,7.595,7.979,9.328,9.997,10.31,10.44,10.47,10.36,10.18,9.98,9.764,9.543,9.321,8.282,7.401,6.666,6.053,5.096,4.39,3.853,3.432,3.095,2.819,2.59};
     442        physicsVector = CreatePhysicsVector(E,C_8,factor);
     443     }
     444     else if( ionZ == 9 ) {
     445        G4double C_9[31]={3.792,4.257,5.106,5.864,6.544,7.156,7.707,8.203,8.65,10.28,11.15,11.59,11.8,11.93,11.87,11.72,11.54,11.33,11.11,10.89,9.8,8.848,8.037,7.348,6.254,5.431,4.794,4.289,3.88,3.543,3.261};
     446        physicsVector = CreatePhysicsVector(E,C_9,factor);
     447     }
     448     else if( ionZ == 10 ) {
     449        G4double C_10[31]={3.927,4.419,5.328,6.149,6.893,7.57,8.185,8.744,9.252,11.15,12.23,12.81,13.12,13.35,13.35,13.24,13.08,12.88,12.67,12.45,11.33,10.32,9.442,8.686,7.464,6.529,5.796,5.208,4.728,4.329,3.993};
     450        physicsVector = CreatePhysicsVector(E,C_10,factor);
     451     }
     452     else if( ionZ == 11 ) {
     453        G4double C_11[31]={4.019,4.53,5.486,6.362,7.165,7.903,8.579,9.2,9.768,11.94,13.26,14,14.42,14.79,14.86,14.8,14.67,14.49,14.29,14.08,12.95,11.89,10.96,10.14,8.79,7.742,6.908,6.232,5.675,5.208,4.813};
     454        physicsVector = CreatePhysicsVector(E,C_11,factor);
     455     }
     456     else if( ionZ == 12 ) {
     457        G4double C_12[31]={4.132,4.653,5.638,6.555,7.407,8.194,8.922,9.593,10.21,12.64,14.18,15.08,15.62,16.13,16.29,16.28,16.18,16.03,15.84,15.64,14.51,13.42,12.43,11.56,10.11,8.965,8.041,7.285,6.656,6.126,5.674};
     458        physicsVector = CreatePhysicsVector(E,C_12,factor);
     459     }
     460     else if( ionZ == 13 ) {
     461        G4double C_13[31]={4.239,4.77,5.781,6.732,7.623,8.455,9.228,9.947,10.61,13.28,15.03,16.11,16.77,17.44,17.7,17.75,17.69,17.57,17.41,17.22,16.11,14.99,13.97,13.05,11.5,10.25,9.242,8.412,7.705,7.108,6.597};
     462        physicsVector = CreatePhysicsVector(E,C_13,factor);
     463     }
     464     else if( ionZ == 14 ) {
     465        G4double C_14[31]={4.352,4.888,5.918,6.895,7.819,8.689,9.503,10.26,10.97,13.85,15.81,17.06,17.84,18.68,19.04,19.16,19.15,19.06,18.91,18.74,17.66,16.53,15.47,14.51,12.87,11.54,10.45,9.535,8.767,8.111,7.545};
     466        physicsVector = CreatePhysicsVector(E,C_14,factor);
     467     }
     468     else if( ionZ == 15 ) {
     469        G4double C_15[31]={4.48,5.022,6.068,7.07,8.023,8.927,9.779,10.58,11.33,14.43,16.59,18.01,18.94,19.96,20.44,20.64,20.69,20.65,20.54,20.39,19.37,18.24,17.16,16.16,14.43,13,11.82,10.82,9.972,9.246,8.616};
     470        physicsVector = CreatePhysicsVector(E,C_15,factor);
     471     }
     472     else if( ionZ == 16 ) {
     473        G4double C_16[31]={4.597,5.146,6.21,7.235,8.216,9.151,10.04,10.88,11.67,14.97,17.33,18.94,20,21.22,21.83,22.12,22.23,22.24,22.17,22.06,21.11,19.99,18.89,17.86,16.05,14.53,13.26,12.18,11.25,10.45,9.757};
     474        physicsVector = CreatePhysicsVector(E,C_16,factor);
     475     }
     476     else if( ionZ == 17 ) {
     477        G4double C_17[31]={4.745,5.296,6.37,7.409,8.41,9.37,10.29,11.16,11.98,15.46,18.01,19.79,21,22.41,23.14,23.52,23.7,23.75,23.72,23.63,22.76,21.65,20.54,19.48,17.59,16,14.65,13.49,12.5,11.64,10.88};
     478        physicsVector = CreatePhysicsVector(E,C_17,factor);
     479     }
     480     else if( ionZ == 18 ) {
     481        G4double C_18[31]={4.847,5.401,6.479,7.526,8.54,9.518,10.46,11.35,12.21,15.85,18.57,20.52,21.86,23.47,24.32,24.78,25.02,25.12,25.12,25.06,24.25,23.16,22.02,20.94,19,17.34,15.92,14.71,13.66,12.75,11.95};
     482        physicsVector = CreatePhysicsVector(E,C_18,factor);
     483     }
     484}
     485
     486  else if( matName == namesMat[4] ) {
     487     if( ionZ == 3 ) {
     488        G4double N_3[31]={2.13,2.311,2.613,2.849,3.03,3.166,3.264,3.333,3.381,3.429,3.351,3.239,3.12,2.891,2.685,2.503,2.343,2.201,2.075,1.963,1.544,1.274,1.086,0.9483,0.7603,0.638,0.5519,0.4879,0.4382,0.3986,0.3661};
     489        physicsVector = CreatePhysicsVector(E,N_3,factor);
     490     }
     491     else if( ionZ == 4 ) {
     492        G4double N_4[31]={2.65,2.892,3.309,3.658,3.947,4.181,4.367,4.512,4.622,4.861,4.862,4.781,4.671,4.427,4.186,3.963,3.757,3.57,3.399,3.242,2.629,2.208,1.903,1.673,1.35,1.136,0.9828,0.8685,0.7799,0.709,0.6509};
     493        physicsVector = CreatePhysicsVector(E,N_4,factor);
     494     }
     495     else if( ionZ == 5 ) {
     496        G4double N_5[31]={3.07,3.37,3.894,4.342,4.728,5.057,5.333,5.56,5.745,6.232,6.351,6.331,6.251,6.026,5.778,5.534,5.301,5.08,4.875,4.684,3.903,3.335,2.909,2.578,2.1,1.774,1.538,1.36,1.222,1.11,1.019};
     497        physicsVector = CreatePhysicsVector(E,N_5,factor);
     498     }
     499     else if( ionZ == 6 ) {
     500        G4double N_6[31]={3.409,3.764,4.389,4.93,5.404,5.821,6.183,6.494,6.756,7.532,7.805,7.868,7.836,7.656,7.418,7.168,6.92,6.681,6.452,6.235,5.315,4.615,4.07,3.637,2.995,2.545,2.215,1.962,1.763,1.603,1.471};
     501        physicsVector = CreatePhysicsVector(E,N_6,factor);
     502     }
     503     else if( ionZ == 7 ) {
     504        G4double N_7[31]={3.704,4.106,4.82,5.441,5.993,6.487,6.927,7.315,7.654,8.74,9.198,9.369,9.404,9.295,9.088,8.847,8.597,8.347,8.105,7.87,6.839,6.021,5.367,4.834,4.024,3.443,3.008,2.672,2.405,2.188,2.009};
     505        physicsVector = CreatePhysicsVector(E,N_7,factor);
     506     }
     507     else if( ionZ == 8 ) {
     508        G4double N_8[31]={3.958,4.401,5.196,5.894,6.518,7.082,7.593,8.053,8.463,9.864,10.53,10.83,10.94,10.93,10.77,10.55,10.31,10.06,9.811,9.566,8.454,7.535,6.78,6.153,5.179,4.463,3.917,3.49,3.147,2.867,2.634};
     509        physicsVector = CreatePhysicsVector(E,N_8,factor);
     510     }
     511     else if( ionZ == 9 ) {
     512        G4double N_9[31]={4.177,4.656,5.522,6.288,6.976,7.602,8.173,8.695,9.168,10.87,11.75,12.18,12.39,12.47,12.36,12.17,11.94,11.69,11.44,11.19,10.02,9.022,8.185,7.479,6.362,5.524,4.877,4.363,3.947,3.605,3.318};
     513        physicsVector = CreatePhysicsVector(E,N_9,factor);
     514     }
     515     else if( ionZ == 10 ) {
     516        G4double N_10[31]={4.375,4.884,5.813,6.641,7.388,8.071,8.698,9.275,9.805,11.79,12.89,13.48,13.78,13.98,13.93,13.77,13.56,13.32,13.07,12.82,11.6,10.54,9.628,8.851,7.601,6.648,5.901,5.303,4.813,4.407,4.065};
     517        physicsVector = CreatePhysicsVector(E,N_10,factor);
     518     }
     519     else if( ionZ == 11 ) {
     520        G4double N_11[31]={4.532,5.065,6.047,6.932,7.735,8.47,9.15,9.78,10.36,12.63,13.97,14.72,15.14,15.48,15.51,15.4,15.21,14.99,14.75,14.51,13.27,12.15,11.17,10.33,8.95,7.88,7.031,6.342,5.775,5.3,4.898};
     521        physicsVector = CreatePhysicsVector(E,N_11,factor);
     522     }
     523     else if( ionZ == 12 ) {
     524        G4double N_12[31]={4.702,5.251,6.272,7.203,8.054,8.835,9.559,10.23,10.86,13.38,14.95,15.87,16.41,16.9,17.01,16.95,16.8,16.6,16.37,16.13,14.88,13.72,12.69,11.79,10.3,9.125,8.183,7.413,6.773,6.233,5.773};
     525        physicsVector = CreatePhysicsVector(E,N_12,factor);
     526     }
     527     else if( ionZ == 13 ) {
     528        G4double N_13[31]={4.858,5.424,6.48,7.449,8.342,9.168,9.934,10.65,11.32,14.06,15.86,16.96,17.63,18.29,18.5,18.5,18.39,18.22,18.01,17.78,16.53,15.33,14.26,13.31,11.71,10.44,9.405,8.552,7.838,7.232,6.713};
     529        physicsVector = CreatePhysicsVector(E,N_13,factor);
     530     }
     531     else if( ionZ == 14 ) {
     532        G4double N_14[31]={5.011,5.59,6.676,7.68,8.611,9.475,10.28,11.03,11.74,14.67,16.69,17.97,18.77,19.61,19.92,19.99,19.92,19.78,19.59,19.37,18.14,16.92,15.8,14.8,13.11,11.75,10.64,9.706,8.923,8.255,7.679};
     533        physicsVector = CreatePhysicsVector(E,N_14,factor);
     534     }
     535     else if( ionZ == 15 ) {
     536        G4double N_15[31]={5.17,5.761,6.874,7.91,8.877,9.779,10.62,11.41,12.15,15.28,17.5,18.97,19.92,20.95,21.39,21.54,21.54,21.44,21.28,21.08,19.9,18.67,17.52,16.48,14.7,13.24,12.03,11.01,10.15,9.409,8.768};
     537        physicsVector = CreatePhysicsVector(E,N_15,factor);
     538     }
     539     else if( ionZ == 16 ) {
     540        G4double N_16[31]={5.313,5.919,7.061,8.131,9.133,10.07,10.95,11.77,12.55,15.85,18.28,19.93,21.03,22.27,22.84,23.08,23.14,23.09,22.97,22.8,21.68,20.45,19.29,18.21,16.34,14.78,13.48,12.39,11.45,10.63,9.926};
     541        physicsVector = CreatePhysicsVector(E,N_16,factor);
     542     }
     543     else if( ionZ == 17 ) {
     544        G4double N_17[31]={5.481,6.098,7.262,8.355,9.386,10.35,11.26,12.12,12.92,16.38,19,20.83,22.08,23.52,24.22,24.55,24.67,24.67,24.58,24.44,23.38,22.16,20.98,19.87,17.92,16.29,14.91,13.73,12.72,11.84,11.08};
     545        physicsVector = CreatePhysicsVector(E,N_17,factor);
     546     }
     547     else if( ionZ == 18 ) {
     548        G4double N_18[31]={5.604,6.233,7.416,8.529,9.581,10.57,11.51,12.39,13.22,16.82,19.6,21.61,23,24.65,25.48,25.9,26.08,26.12,26.07,25.96,24.95,23.73,22.53,21.39,19.38,17.67,16.23,14.99,13.92,12.99,12.17};
     549        physicsVector = CreatePhysicsVector(E,N_18,factor);
     550     }
     551}
     552
     553  else if( matName == namesMat[5] ) {
     554     if( ionZ == 3 ) {
     555        G4double O_3[31]={1.865,2.032,2.312,2.534,2.709,2.843,2.944,3.019,3.072,3.153,3.1,3.007,2.904,2.702,2.517,2.353,2.207,2.077,1.962,1.858,1.468,1.215,1.038,0.9083,0.7302,0.6139,0.5318,0.4706,0.4232,0.3852,0.354};
     556        physicsVector = CreatePhysicsVector(E,O_3,factor);
     557     }
     558     else if( ionZ == 4 ) {
     559        G4double O_4[31]={2.293,2.519,2.909,3.236,3.509,3.735,3.918,4.065,4.18,4.458,4.489,4.433,4.342,4.132,3.919,3.719,3.534,3.364,3.207,3.064,2.497,2.105,1.819,1.602,1.296,1.092,0.9469,0.8378,0.753,0.6851,0.6295};
     560        physicsVector = CreatePhysicsVector(E,O_4,factor);
     561     }
     562     else if( ionZ == 5 ) {
     563        G4double O_5[31]={2.624,2.903,3.393,3.813,4.176,4.49,4.757,4.982,5.169,5.696,5.853,5.861,5.805,5.618,5.403,5.187,4.978,4.781,4.595,4.421,3.704,3.177,2.778,2.467,2.016,1.706,1.482,1.312,1.18,1.073,0.9855};
     564        physicsVector = CreatePhysicsVector(E,O_5,factor);
     565     }
     566     else if( ionZ == 6 ) {
     567        G4double O_6[31]={2.883,3.21,3.792,4.3,4.747,5.143,5.49,5.792,6.051,6.861,7.178,7.275,7.27,7.133,6.932,6.714,6.495,6.282,6.076,5.88,5.04,4.392,3.885,3.479,2.874,2.448,2.134,1.893,1.703,1.55,1.423};
     568        physicsVector = CreatePhysicsVector(E,O_6,factor);
     569     }
     570     else if( ionZ == 7 ) {
     571        G4double O_7[31]={3.103,3.469,4.13,4.714,5.236,5.704,6.124,6.497,6.827,7.932,8.439,8.65,8.715,8.653,8.486,8.281,8.063,7.843,7.627,7.417,6.482,5.729,5.121,4.623,3.862,3.312,2.899,2.578,2.323,2.115,1.944};
     572        physicsVector = CreatePhysicsVector(E,O_7,factor);
     573     }
     574     else if( ionZ == 8 ) {
     575        G4double O_8[31]={3.292,3.69,4.419,5.072,5.662,6.198,6.684,7.124,7.52,8.922,9.637,9.981,10.13,10.17,10.05,9.869,9.663,9.446,9.227,9.009,8.006,7.164,6.467,5.883,4.969,4.292,3.775,3.367,3.04,2.772,2.549};
     576        physicsVector = CreatePhysicsVector(E,O_8,factor);
     577     }
     578     else if( ionZ == 9 ) {
     579        G4double O_9[31]={3.458,3.881,4.667,5.381,6.03,6.623,7.168,7.666,8.121,9.803,10.73,11.21,11.46,11.6,11.54,11.38,11.19,10.98,10.76,10.54,9.49,8.58,7.808,7.152,6.106,5.316,4.702,4.213,3.815,3.487,3.212};
     580        physicsVector = CreatePhysicsVector(E,O_9,factor);
     581     }
     582     else if( ionZ == 10 ) {
     583        G4double O_10[31]={3.612,4.056,4.889,5.655,6.357,7.003,7.601,8.152,8.661,10.61,11.75,12.39,12.74,13,13,12.88,12.71,12.51,12.3,12.08,10.99,10.02,9.187,8.466,7.298,6.4,5.692,5.122,4.655,4.266,3.937};
     584        physicsVector = CreatePhysicsVector(E,O_10,factor);
     585     }
     586     else if( ionZ == 11 ) {
     587        G4double O_11[31]={3.734,4.194,5.066,5.876,6.626,7.321,7.967,8.569,9.128,11.33,12.71,13.52,13.98,14.39,14.47,14.4,14.26,14.08,13.88,13.66,12.56,11.55,10.66,9.877,8.591,7.584,6.78,6.126,5.584,5.13,4.744};
     588        physicsVector = CreatePhysicsVector(E,O_11,factor);
     589     }
     590     else if( ionZ == 12 ) {
     591        G4double O_12[31]={3.869,4.34,5.238,6.083,6.872,7.608,8.296,8.939,9.541,11.98,13.57,14.55,15.14,15.71,15.88,15.86,15.75,15.59,15.4,15.19,14.09,13.04,12.1,11.27,9.882,8.78,7.89,7.158,6.548,6.032,5.591};
     592        physicsVector = CreatePhysicsVector(E,O_12,factor);
     593     }
     594     else if( ionZ == 13 ) {
     595        G4double O_13[31]={3.995,4.477,5.398,6.269,7.09,7.864,8.591,9.273,9.915,12.56,14.37,15.52,16.25,16.99,17.26,17.31,17.24,17.11,16.94,16.74,15.64,14.57,13.59,12.72,11.23,10.04,9.066,8.257,7.577,6.998,6.501};
     596        physicsVector = CreatePhysicsVector(E,O_13,factor);
     597     }
     598     else if( ionZ == 14 ) {
     599        G4double O_14[31]={4.121,4.612,5.552,6.446,7.295,8.1,8.86,9.576,10.25,13.09,15.09,16.42,17.29,18.21,18.58,18.7,18.68,18.58,18.43,18.24,17.17,16.07,15.06,14.15,12.58,11.3,10.25,9.372,8.626,7.989,7.437};
     600        physicsVector = CreatePhysicsVector(E,O_14,factor);
     601     }
     602     else if( ionZ == 15 ) {
     603        G4double O_15[31]={4.248,4.749,5.704,6.618,7.493,8.327,9.118,9.867,10.58,13.59,15.79,17.3,18.31,19.44,19.94,20.15,20.19,20.13,20.01,19.85,18.83,17.73,16.7,15.75,14.1,12.73,11.59,10.63,9.812,9.106,8.493};
     604        physicsVector = CreatePhysicsVector(E,O_15,factor);
     605     }
     606     else if( ionZ == 16 ) {
     607        G4double O_16[31]={4.365,4.877,5.853,6.788,7.688,8.549,9.37,10.15,10.89,14.07,16.46,18.15,19.31,20.64,21.28,21.58,21.68,21.67,21.59,21.46,20.51,19.42,18.37,17.39,15.66,14.21,12.99,11.95,11.06,10.29,9.614};
     608        physicsVector = CreatePhysicsVector(E,O_16,factor);
     609     }
     610     else if( ionZ == 17 ) {
     611        G4double O_17[31]={4.501,5.022,6.013,6.964,7.882,8.766,9.61,10.42,11.18,14.52,17.07,18.93,20.23,21.78,22.56,22.95,23.12,23.16,23.11,23.01,22.12,21.04,19.98,18.97,17.18,15.66,14.37,13.26,12.3,11.47,10.73};
     612        physicsVector = CreatePhysicsVector(E,O_17,factor);
     613     }
     614     else if( ionZ == 18 ) {
     615        G4double O_18[31]={4.604,5.133,6.139,7.102,8.034,8.934,9.799,10.63,11.42,14.88,17.59,19.61,21.06,22.82,23.73,24.21,24.44,24.53,24.52,24.44,23.61,22.54,21.46,20.43,18.58,17,15.64,14.47,13.46,12.58,11.8};
     616        physicsVector = CreatePhysicsVector(E,O_18,factor);
     617     }
     618}
     619
     620  else if( matName == namesMat[6] ) {
     621     if( ionZ == 3 ) {
     622        G4double Ne_3[31]={1.497,1.622,1.831,1.999,2.136,2.25,2.343,2.42,2.481,2.631,2.638,2.589,2.519,2.364,2.215,2.079,1.957,1.848,1.749,1.66,1.322,1.1,0.9434,0.8276,0.6681,0.5634,0.4893,0.4339,0.3908,0.3562,0.3278};
     623        physicsVector = CreatePhysicsVector(E,Ne_3,factor);
     624     }
     625     else if( ionZ == 4 ) {
     626        G4double Ne_4[31]={1.876,2.046,2.338,2.58,2.787,2.964,3.117,3.248,3.36,3.697,3.808,3.811,3.765,3.618,3.452,3.29,3.136,2.993,2.861,2.738,2.249,1.905,1.652,1.46,1.186,1.003,0.8715,0.7727,0.6956,0.6338,0.583};
     627        physicsVector = CreatePhysicsVector(E,Ne_4,factor);
     628     }
     629     else if( ionZ == 5 ) {
     630        G4double Ne_5[31]={2.174,2.385,2.752,3.065,3.337,3.576,3.787,3.975,4.14,4.693,4.939,5.024,5.025,4.919,4.76,4.589,4.419,4.255,4.099,3.952,3.335,2.875,2.523,2.247,1.845,1.567,1.364,1.211,1.09,0.9929,0.913};
     631        physicsVector = CreatePhysicsVector(E,Ne_5,factor);
     632     }
     633     else if( ionZ == 6 ) {
     634        G4double Ne_6[31]={2.414,2.661,3.1,3.48,3.815,4.113,4.382,4.624,4.841,5.622,6.026,6.212,6.277,6.237,6.104,5.939,5.765,5.591,5.42,5.256,4.538,3.975,3.529,3.17,2.631,2.249,1.965,1.747,1.574,1.434,1.319};
     635        physicsVector = CreatePhysicsVector(E,Ne_6,factor);
     636     }
     637     else if( ionZ == 7 ) {
     638        G4double Ne_7[31]={2.603,2.879,3.377,3.817,4.21,4.565,4.887,5.181,5.45,6.461,7.043,7.352,7.499,7.553,7.465,7.32,7.153,6.978,6.801,6.627,5.834,5.184,4.652,4.213,3.537,3.044,2.671,2.381,2.149,1.959,1.802};
     639        physicsVector = CreatePhysicsVector(E,Ne_7,factor);
     640     }
     641     else if( ionZ == 8 ) {
     642        G4double Ne_8[31]={2.789,3.09,3.64,4.133,4.578,4.984,5.356,5.698,6.013,7.245,8.009,8.452,8.695,8.863,8.833,8.72,8.569,8.401,8.225,8.048,7.204,6.481,5.873,5.36,4.55,3.945,3.479,3.111,2.813,2.569,2.365};
     643        physicsVector = CreatePhysicsVector(E,Ne_8,factor);
     644     }
     645     else if( ionZ == 9 ) {
     646        G4double Ne_9[31]={2.946,3.267,3.86,4.399,4.892,5.344,5.762,6.148,6.507,7.945,8.888,9.47,9.813,10.11,10.14,10.06,9.933,9.775,9.604,9.426,8.547,7.768,7.097,6.523,5.597,4.891,4.338,3.895,3.534,3.234,2.983};
     647        physicsVector = CreatePhysicsVector(E,Ne_9,factor);
     648     }
     649     else if( ionZ == 10 ) {
     650        G4double Ne_10[31]={3.091,3.431,4.061,4.64,5.175,5.67,6.13,6.558,6.957,8.59,9.709,10.43,10.89,11.32,11.43,11.39,11.29,11.15,10.98,10.81,9.909,9.083,8.359,7.728,6.696,5.894,5.256,4.741,4.316,3.961,3.66};
     651        physicsVector = CreatePhysicsVector(E,Ne_10,factor);
     652     }
     653     else if( ionZ == 11 ) {
     654        G4double Ne_11[31]={3.201,3.555,4.218,4.832,5.406,5.941,6.442,6.91,7.349,9.177,10.48,11.36,11.93,12.52,12.72,12.74,12.67,12.55,12.4,12.23,11.33,10.47,9.695,9.015,7.882,6.985,6.262,5.67,5.179,4.764,4.412};
     655        physicsVector = CreatePhysicsVector(E,Ne_11,factor);
     656     }
     657     else if( ionZ == 12 ) {
     658        G4double Ne_12[31]={3.316,3.68,4.365,5.005,5.608,6.176,6.71,7.213,7.688,9.693,11.17,12.2,12.9,13.66,13.96,14.04,14,13.9,13.77,13.61,12.71,11.82,11.01,10.29,9.066,8.086,7.287,6.626,6.073,5.603,5.2};
     659        physicsVector = CreatePhysicsVector(E,Ne_12,factor);
     660     }
     661     else if( ionZ == 13 ) {
     662        G4double Ne_13[31]={3.429,3.801,4.503,5.164,5.791,6.386,6.95,7.485,7.992,10.16,11.8,12.98,13.81,14.76,15.17,15.32,15.33,15.27,15.15,15,14.12,13.21,12.37,11.61,10.31,9.247,8.373,7.644,7.027,6.501,6.046};
     663        physicsVector = CreatePhysicsVector(E,Ne_13,factor);
     664     }
     665     else if( ionZ == 14 ) {
     666        G4double Ne_14[31]={3.539,3.919,4.635,5.311,5.957,6.574,7.164,7.725,8.261,10.58,12.36,13.69,14.65,15.79,16.33,16.56,16.62,16.58,16.49,16.36,15.51,14.58,13.72,12.92,11.55,10.42,9.473,8.679,8.004,7.423,6.92};
     667        physicsVector = CreatePhysicsVector(E,Ne_14,factor);
     668     }
     669     else if( ionZ == 15 ) {
     670        G4double Ne_15[31]={3.647,4.032,4.759,5.448,6.108,6.744,7.355,7.942,8.503,10.96,12.89,14.37,15.46,16.81,17.49,17.82,17.95,17.96,17.91,17.8,17,16.09,15.2,14.38,12.93,11.73,10.71,9.845,9.104,8.463,7.904};
     671        physicsVector = CreatePhysicsVector(E,Ne_15,factor);
     672     }
     673     else if( ionZ == 16 ) {
     674        G4double Ne_16[31]={3.75,4.145,4.888,5.592,6.268,6.922,7.554,8.163,8.749,11.34,13.41,15.03,16.25,17.81,18.64,19.07,19.27,19.34,19.32,19.25,18.52,17.61,16.72,15.87,14.37,13.09,12,11.07,10.26,9.562,8.947};
     675        physicsVector = CreatePhysicsVector(E,Ne_16,factor);
     676     }
     677     else if( ionZ == 17 ) {
     678        G4double Ne_17[31]={3.861,4.261,5.013,5.725,6.413,7.081,7.73,8.359,8.965,11.67,13.88,15.62,16.97,18.75,19.73,20.26,20.53,20.65,20.68,20.63,19.98,19.09,18.19,17.32,15.77,14.43,13.27,12.28,11.42,10.66,9.997};
     679        physicsVector = CreatePhysicsVector(E,Ne_17,factor);
     680     }
     681     else if( ionZ == 18 ) {
     682        G4double Ne_18[31]={3.955,4.36,5.12,5.839,6.536,7.216,7.88,8.526,9.152,11.97,14.29,16.16,17.62,19.6,20.73,21.37,21.72,21.89,21.95,21.94,21.35,20.47,19.56,18.68,17.07,15.67,14.46,13.42,12.51,11.7,10.99};
     683        physicsVector = CreatePhysicsVector(E,Ne_18,factor);
     684     }
     685}
     686
     687  else if( matName == namesMat[7] ) {
     688     if( ionZ == 3 ) {
     689        G4double Al_3[31]={1.388,1.496,1.67,1.8,1.898,1.971,2.024,2.063,2.093,2.164,2.172,2.15,2.111,2.01,1.901,1.797,1.701,1.612,1.532,1.459,1.176,0.9856,0.8498,0.7483,0.6073,0.514,0.4476,0.3977,0.3588,0.3275,0.3018};
     690        physicsVector = CreatePhysicsVector(E,Al_3,factor);
     691     }
     692     else if( ionZ == 4 ) {
     693        G4double Al_4[31]={1.754,1.91,2.167,2.37,2.531,2.659,2.76,2.838,2.901,3.08,3.151,3.17,3.156,3.075,2.963,2.843,2.723,2.61,2.502,2.402,1.995,1.702,1.484,1.316,1.076,0.9136,0.7962,0.7076,0.6382,0.5824,0.5365};
     694        physicsVector = CreatePhysicsVector(E,Al_4,factor);
     695     }
     696     else if( ionZ == 5 ) {
     697        G4double Al_5[31]={2.047,2.247,2.586,2.86,3.084,3.269,3.421,3.545,3.646,3.96,4.113,4.188,4.214,4.181,4.086,3.966,3.838,3.709,3.584,3.464,2.952,2.562,2.261,2.022,1.67,1.425,1.245,1.107,0.9991,0.9116,0.8395};
     698        physicsVector = CreatePhysicsVector(E,Al_5,factor);
     699     }
     700     else if( ionZ == 6 ) {
     701        G4double Al_6[31]={2.284,2.525,2.94,3.284,3.571,3.813,4.016,4.188,4.332,4.8,5.049,5.192,5.269,5.301,5.241,5.136,5.01,4.876,4.741,4.608,4.013,3.537,3.157,2.847,2.378,2.042,1.791,1.596,1.442,1.316,1.212};
     702        physicsVector = CreatePhysicsVector(E,Al_6,factor);
     703     }
     704     else if( ionZ == 7 ) {
     705        G4double Al_7[31]={2.478,2.753,3.234,3.641,3.988,4.286,4.541,4.761,4.95,5.583,5.941,6.164,6.302,6.419,6.409,6.331,6.218,6.088,5.951,5.812,5.157,4.609,4.156,3.779,3.192,2.76,2.431,2.173,1.966,1.797,1.655};
     706        physicsVector = CreatePhysicsVector(E,Al_7,factor);
     707     }
     708     else if( ionZ == 8 ) {
     709        G4double Al_8[31]={2.648,2.953,3.495,3.962,4.366,4.718,5.024,5.292,5.525,6.328,6.801,7.108,7.314,7.528,7.581,7.541,7.45,7.331,7.199,7.059,6.366,5.757,5.24,4.801,4.1,3.572,3.162,2.836,2.572,2.353,2.17};
     710        physicsVector = CreatePhysicsVector(E,Al_8,factor);
     711     }
     712     else if( ionZ == 9 ) {
     713        G4double Al_9[31]={2.795,3.126,3.719,4.238,4.693,5.094,5.448,5.762,6.039,7.017,7.606,8.001,8.275,8.59,8.709,8.712,8.648,8.544,8.418,8.281,7.563,6.906,6.336,5.843,5.044,4.428,3.942,3.551,3.23,2.963,2.737};
     714        physicsVector = CreatePhysicsVector(E,Al_9,factor);
     715     }
     716     else if( ionZ == 10 ) {
     717        G4double Al_10[31]={2.924,3.276,3.913,4.477,4.978,5.424,5.822,6.178,6.496,7.647,8.355,8.841,9.188,9.614,9.809,9.863,9.833,9.751,9.638,9.508,8.781,8.087,7.471,6.931,6.04,5.34,4.781,4.325,3.947,3.63,3.361};
     718        physicsVector = CreatePhysicsVector(E,Al_10,factor);
     719     }
     720     else if( ionZ == 11 ) {
     721        G4double Al_11[31]={3.037,3.406,4.083,4.69,5.235,5.725,6.167,6.566,6.926,8.264,9.11,9.701,10.14,10.7,10.99,11.12,11.14,11.09,11.01,10.89,10.19,9.479,8.825,8.24,7.25,6.456,5.808,5.273,4.826,4.446,4.121};
     722        physicsVector = CreatePhysicsVector(E,Al_11,factor);
     723     }
     724     else if( ionZ == 12 ) {
     725        G4double Al_12[31]={3.156,3.539,4.245,4.883,5.462,5.987,6.463,6.895,7.288,8.778,9.738,10.41,10.92,11.59,11.96,12.14,12.2,12.17,12.1,11.99,11.28,10.54,9.851,9.231,8.178,7.325,6.625,6.042,5.551,5.132,4.772};
     726        physicsVector = CreatePhysicsVector(E,Al_12,factor);
     727     }
     728     else if( ionZ == 13 ) {
     729        G4double Al_13[31]={3.267,3.662,4.395,5.063,5.672,6.23,6.739,7.205,7.631,9.28,10.36,11.14,11.72,12.52,12.99,13.24,13.35,13.36,13.31,13.23,12.55,11.79,11.07,10.42,9.298,8.375,7.609,6.967,6.421,5.953,5.547};
     730        physicsVector = CreatePhysicsVector(E,Al_13,factor);
     731     }
     732     else if( ionZ == 14 ) {
     733        G4double Al_14[31]={3.374,3.779,4.534,5.227,5.864,6.449,6.988,7.484,7.941,9.742,10.95,11.82,12.48,13.41,13.98,14.3,14.47,14.52,14.5,14.43,13.79,13.02,12.29,11.61,10.42,9.435,8.61,7.912,7.315,6.799,6.349};
     734        physicsVector = CreatePhysicsVector(E,Al_14,factor);
     735     }
     736     else if( ionZ == 15 ) {
     737        G4double Al_15[31]={3.473,3.887,4.662,5.378,6.039,6.65,7.216,7.74,8.226,10.17,11.51,12.47,13.22,14.28,14.96,15.38,15.61,15.72,15.74,15.7,15.12,14.36,13.61,12.91,11.66,10.62,9.727,8.969,8.314,7.745,7.248};
     738        physicsVector = CreatePhysicsVector(E,Al_15,factor);
     739     }
     740     else if( ionZ == 16 ) {
     741        G4double Al_16[31]={3.569,3.992,4.787,5.523,6.208,6.844,7.436,7.987,8.5,10.59,12.05,13.12,13.94,15.15,15.94,16.44,16.74,16.9,16.97,16.96,16.46,15.72,14.96,14.24,12.95,11.84,10.89,10.07,9.364,8.744,8.198};
     742        physicsVector = CreatePhysicsVector(E,Al_16,factor);
     743     }
     744     else if( ionZ == 17 ) {
     745        G4double Al_17[31]={3.673,4.103,4.913,5.666,6.369,7.025,7.639,8.213,8.751,10.97,12.55,13.72,14.63,15.97,16.87,17.46,17.84,18.05,18.16,18.19,17.77,17.05,16.29,15.55,14.21,13.05,12.05,11.18,10.42,9.75,9.159};
     746        physicsVector = CreatePhysicsVector(E,Al_17,factor);
     747     }
     748     else if( ionZ == 18 ) {
     749        G4double Al_18[31]={3.756,4.193,5.016,5.782,6.499,7.171,7.803,8.397,8.956,11.29,12.99,14.25,15.24,16.7,17.7,18.38,18.82,19.09,19.24,19.3,18.96,18.26,17.49,16.74,15.37,14.16,13.12,12.2,11.4,10.69,10.07};
     750        physicsVector = CreatePhysicsVector(E,Al_18,factor);
     751     }
     752}
     753
     754  else if( matName == namesMat[8] ) {
     755     if( ionZ == 3 ) {
     756        G4double Si_3[31]={1.468,1.612,1.817,1.946,2.033,2.093,2.137,2.169,2.192,2.242,2.237,2.208,2.167,2.066,1.96,1.856,1.759,1.67,1.589,1.514,1.224,1.027,0.8863,0.7809,0.634,0.5366,0.4672,0.4151,0.3745,0.3418,0.3149};
     757        physicsVector = CreatePhysicsVector(E,Si_3,factor);
     758     }
     759     else if( ionZ == 4 ) {
     760        G4double Si_4[31]={1.792,1.998,2.323,2.55,2.71,2.828,2.918,2.988,3.043,3.195,3.247,3.254,3.236,3.155,3.047,2.929,2.811,2.697,2.589,2.488,2.071,1.77,1.545,1.371,1.122,0.9528,0.8305,0.7381,0.6658,0.6075,0.5596};
     761        physicsVector = CreatePhysicsVector(E,Si_4,factor);
     762     }
     763     else if( ionZ == 5 ) {
     764        G4double Si_5[31]={2.047,2.299,2.729,3.055,3.297,3.48,3.623,3.738,3.831,4.113,4.241,4.3,4.318,4.283,4.193,4.079,3.954,3.827,3.702,3.581,3.06,2.66,2.35,2.103,1.739,1.484,1.297,1.154,1.042,0.9505,0.8753};
     765        physicsVector = CreatePhysicsVector(E,Si_5,factor);
     766     }
     767     else if( ionZ == 6 ) {
     768        G4double Si_6[31]={2.263,2.546,3.059,3.478,3.804,4.057,4.259,4.424,4.56,4.992,5.211,5.333,5.397,5.424,5.37,5.272,5.152,5.022,4.889,4.757,4.154,3.667,3.276,2.957,2.473,2.125,1.864,1.662,1.502,1.371,1.263};
     769        physicsVector = CreatePhysicsVector(E,Si_6,factor);
     770     }
     771     else if( ionZ == 7 ) {
     772        G4double Si_7[31]={2.453,2.758,3.329,3.825,4.23,4.555,4.819,5.036,5.218,5.814,6.138,6.333,6.454,6.561,6.557,6.489,6.386,6.262,6.129,5.992,5.333,4.773,4.308,3.92,3.315,2.869,2.529,2.261,2.047,1.871,1.724};
     773        physicsVector = CreatePhysicsVector(E,Si_7,factor);
     774     }
     775     else if( ionZ == 8 ) {
     776        G4double Si_8[31]={2.634,2.956,3.568,4.125,4.603,4.997,5.323,5.595,5.825,6.596,7.031,7.307,7.49,7.688,7.746,7.719,7.64,7.531,7.404,7.268,6.575,5.955,5.425,4.974,4.254,3.709,3.285,2.949,2.675,2.448,2.259};
     777        physicsVector = CreatePhysicsVector(E,Si_8,factor);
     778     }
     779     else if( ionZ == 9 ) {
     780        G4double Si_9[31]={2.803,3.14,3.782,4.384,4.921,5.379,5.765,6.091,6.369,7.318,7.869,8.227,8.475,8.767,8.889,8.907,8.858,8.767,8.651,8.521,7.809,7.143,6.56,6.055,5.232,4.598,4.096,3.691,3.359,3.083,2.849};
     781        physicsVector = CreatePhysicsVector(E,Si_9,factor);
     782     }
     783     else if( ionZ == 10 ) {
     784        G4double Si_10[31]={2.965,3.318,3.984,4.616,5.2,5.715,6.158,6.537,6.864,7.996,8.666,9.112,9.426,9.819,10.01,10.08,10.07,10,9.901,9.779,9.063,8.361,7.732,7.179,6.263,5.542,4.965,4.494,4.103,3.775,3.496};
     785        physicsVector = CreatePhysicsVector(E,Si_10,factor);
     786     }
     787     else if( ionZ == 11 ) {
     788        G4double Si_11[31]={3.107,3.473,4.161,4.817,5.437,6.001,6.496,6.927,7.302,8.623,9.423,9.963,10.35,10.86,11.13,11.26,11.29,11.25,11.17,11.07,10.36,9.634,8.966,8.369,7.365,6.562,5.909,5.37,4.919,4.537,4.21};
     789        physicsVector = CreatePhysicsVector(E,Si_11,factor);
     790     }
     791     else if( ionZ == 12 ) {
     792        G4double Si_12[31]={3.257,3.639,4.347,5.018,5.665,6.268,6.809,7.287,7.707,9.209,10.13,10.77,11.23,11.85,12.21,12.4,12.47,12.47,12.41,12.32,11.64,10.89,10.19,9.554,8.473,7.595,6.874,6.273,5.765,5.333,4.96};
     793        physicsVector = CreatePhysicsVector(E,Si_12,factor);
     794     }
     795     else if( ionZ == 13 ) {
     796        G4double Si_13[31]={3.396,3.794,4.523,5.207,5.87,6.502,7.083,7.604,8.067,9.75,10.81,11.54,12.08,12.81,13.26,13.52,13.65,13.68,13.65,13.58,12.94,12.18,11.45,10.78,9.63,8.682,7.894,7.231,6.668,6.184,5.764};
     797        physicsVector = CreatePhysicsVector(E,Si_13,factor);
     798     }
     799     else if( ionZ == 14 ) {
     800        G4double Si_14[31]={3.53,3.941,4.694,5.39,6.063,6.716,7.328,7.887,8.39,10.25,11.43,12.26,12.88,13.73,14.27,14.6,14.79,14.86,14.87,14.82,14.22,13.45,12.7,12.01,10.79,9.782,8.932,8.212,7.595,7.062,6.598};
     801        physicsVector = CreatePhysicsVector(E,Si_14,factor);
     802     }
     803     else if( ionZ == 15 ) {
     804        G4double Si_15[31]={3.652,4.078,4.853,5.562,6.244,6.91,7.547,8.139,8.678,10.71,12.03,12.96,13.66,14.64,15.29,15.7,15.95,16.08,16.12,16.1,15.58,14.83,14.07,13.35,12.08,11,10.08,9.303,8.628,8.042,7.527};
     805        physicsVector = CreatePhysicsVector(E,Si_15,factor);
     806     }
     807     else if( ionZ == 16 ) {
     808        G4double Si_16[31]={3.768,4.21,5.011,5.738,6.429,7.107,7.763,8.382,8.954,11.15,12.6,13.64,14.42,15.54,16.29,16.79,17.1,17.29,17.37,17.39,16.96,16.22,15.46,14.72,13.4,12.26,11.28,10.44,9.713,9.073,8.509};
     809        physicsVector = CreatePhysicsVector(E,Si_16,factor);
     810     }
     811     else if( ionZ == 17 ) {
     812        G4double Si_17[31]={3.887,4.344,5.168,5.91,6.609,7.292,7.961,8.602,9.201,11.55,13.14,14.28,15.14,16.39,17.24,17.83,18.21,18.45,18.58,18.64,18.3,17.59,16.82,16.07,14.7,13.51,12.48,11.59,10.8,10.12,9.505};
     813        physicsVector = CreatePhysicsVector(E,Si_17,factor);
     814     }
     815     else if( ionZ == 18 ) {
     816        G4double Si_18[31]={3.994,4.465,5.314,6.074,6.781,7.469,8.146,8.803,9.426,11.92,13.63,14.87,15.82,17.2,18.15,18.82,19.27,19.56,19.74,19.83,19.57,18.89,18.12,17.35,15.94,14.7,13.62,12.68,11.85,11.12,10.47};
     817        physicsVector = CreatePhysicsVector(E,Si_18,factor);
     818     }
     819}
     820
     821  else if( matName == namesMat[9] ) {
     822     if( ionZ == 3 ) {
     823        G4double Ar_3[31]={1.288,1.41,1.603,1.742,1.838,1.904,1.949,1.979,1.998,2.017,1.985,1.936,1.882,1.773,1.672,1.58,1.498,1.423,1.355,1.293,1.053,0.8894,0.7709,0.6814,0.5556,0.4714,0.4111,0.3656,0.3301,0.3014,0.2778};
     824        physicsVector = CreatePhysicsVector(E,Ar_3,factor);
     825     }
     826     else if( ionZ == 4 ) {
     827        G4double Ar_4[31]={1.578,1.748,2.032,2.253,2.422,2.549,2.645,2.716,2.769,2.886,2.898,2.87,2.825,2.716,2.604,2.495,2.393,2.297,2.207,2.123,1.779,1.528,1.34,1.193,0.9809,0.8355,0.7297,0.6495,0.5864,0.5355,0.4936};
     828        physicsVector = CreatePhysicsVector(E,Ar_4,factor);
     829     }
     830     else if( ionZ == 5 ) {
     831        G4double Ar_5[31]={1.804,2.017,2.382,2.68,2.92,3.111,3.261,3.38,3.474,3.723,3.801,3.81,3.787,3.699,3.591,3.479,3.367,3.258,3.154,3.054,2.624,2.292,2.032,1.825,1.516,1.299,1.138,1.014,0.9162,0.837,0.7714};
     832        physicsVector = CreatePhysicsVector(E,Ar_5,factor);
     833     }
     834     else if( ionZ == 6 ) {
     835        G4double Ar_6[31]={1.988,2.236,2.672,3.04,3.347,3.601,3.808,3.978,4.116,4.52,4.682,4.742,4.752,4.7,4.609,4.502,4.39,4.276,4.164,4.054,3.559,3.155,2.828,2.561,2.151,1.855,1.632,1.458,1.319,1.206,1.112};
     836        physicsVector = CreatePhysicsVector(E,Ar_6,factor);
     837     }
     838     else if( ionZ == 7 ) {
     839        G4double Ar_7[31]={2.142,2.417,2.912,3.34,3.708,4.02,4.283,4.504,4.689,5.262,5.524,5.648,5.701,5.701,5.638,5.547,5.442,5.331,5.218,5.104,4.564,4.101,3.713,3.388,2.878,2.5,2.209,1.98,1.795,1.643,1.516};
     840        physicsVector = CreatePhysicsVector(E,Ar_7,factor);
     841     }
     842     else if( ionZ == 8 ) {
     843        G4double Ar_8[31]={2.285,2.582,3.126,3.606,4.027,4.394,4.71,4.98,5.212,5.963,6.336,6.532,6.635,6.7,6.673,6.605,6.515,6.412,6.302,6.188,5.621,5.111,4.67,4.292,3.686,3.225,2.865,2.576,2.342,2.147,1.983};
     844        physicsVector = CreatePhysicsVector(E,Ar_8,factor);
     845     }
     846     else if( ionZ == 9 ) {
     847        G4double Ar_9[31]={2.419,2.731,3.314,3.838,4.306,4.721,5.085,5.402,5.678,6.609,7.1,7.374,7.533,7.667,7.682,7.64,7.567,7.475,7.372,7.261,6.682,6.134,5.649,5.226,4.534,3.996,3.57,3.224,2.94,2.702,2.501};
     848        physicsVector = CreatePhysicsVector(E,Ar_9,factor);
     849     }
     850     else if( ionZ == 10 ) {
     851        G4double Ar_10[31]={2.55,2.874,3.487,4.048,4.556,5.014,5.422,5.783,6.101,7.21,7.824,8.183,8.402,8.616,8.679,8.668,8.616,8.539,8.446,8.342,7.76,7.185,6.662,6.199,5.428,4.818,4.327,3.925,3.59,3.308,3.068};
     852        physicsVector = CreatePhysicsVector(E,Ar_10,factor);
     853     }
     854     else if( ionZ == 11 ) {
     855        G4double Ar_11[31]={2.671,3.004,3.641,4.233,4.776,5.271,5.718,6.12,6.478,7.764,8.509,8.961,9.249,9.555,9.674,9.701,9.676,9.617,9.537,9.443,8.874,8.28,7.726,7.227,6.381,5.7,5.145,4.686,4.3,3.973,3.692};
     856        physicsVector = CreatePhysicsVector(E,Ar_11,factor);
     857     }
     858     else if( ionZ == 12 ) {
     859        G4double Ar_12[31]={2.799,3.14,3.794,4.41,4.981,5.509,5.992,6.43,6.826,8.279,9.153,9.699,10.06,10.46,10.64,10.71,10.71,10.67,10.61,10.52,9.972,9.364,8.785,8.254,7.342,6.599,5.986,5.473,5.039,4.668,4.348};
     860        physicsVector = CreatePhysicsVector(E,Ar_12,factor);
     861     }
     862     else if( ionZ == 13 ) {
     863        G4double Ar_13[31]={2.923,3.272,3.942,4.577,5.173,5.727,6.24,6.712,7.142,8.757,9.761,10.41,10.84,11.34,11.59,11.7,11.74,11.73,11.68,11.61,11.09,10.48,9.876,9.319,8.347,7.543,6.873,6.308,5.826,5.411,5.051};
     864        physicsVector = CreatePhysicsVector(E,Ar_13,factor);
     865     }
     866     else if( ionZ == 14 ) {
     867        G4double Ar_14[31]={3.044,3.402,4.085,4.736,5.351,5.928,6.467,6.967,7.428,9.196,10.33,11.07,11.58,12.19,12.51,12.67,12.74,12.76,12.73,12.68,12.2,11.58,10.97,10.39,9.361,8.502,7.779,7.165,6.637,6.181,5.782};
     868        physicsVector = CreatePhysicsVector(E,Ar_14,factor);
     869     }
     870     else if( ionZ == 15 ) {
     871        G4double Ar_15[31]={3.158,3.525,4.22,4.883,5.514,6.11,6.671,7.197,7.686,9.599,10.86,11.71,12.3,13.02,13.42,13.65,13.76,13.81,13.81,13.78,13.36,12.76,12.14,11.54,10.46,9.552,8.774,8.108,7.532,7.03,6.589};
     872        physicsVector = CreatePhysicsVector(E,Ar_15,factor);
     873     }
     874     else if( ionZ == 16 ) {
     875        G4double Ar_16[31]={3.27,3.647,4.357,5.032,5.678,6.291,6.872,7.42,7.933,9.984,11.37,12.32,13,13.85,14.33,14.61,14.78,14.86,14.9,14.89,14.53,13.95,13.33,12.72,11.6,10.64,9.809,9.093,8.47,7.923,7.441};
     876        physicsVector = CreatePhysicsVector(E,Ar_16,factor);
     877     }
     878     else if( ionZ == 17 ) {
     879        G4double Ar_17[31]={3.382,3.77,4.494,5.178,5.835,6.462,7.059,7.625,8.16,10.34,11.84,12.9,13.66,14.63,15.2,15.55,15.76,15.88,15.95,15.96,15.68,15.13,14.51,13.89,12.73,11.72,10.85,10.09,9.419,8.83,8.309};
     880        physicsVector = CreatePhysicsVector(E,Ar_17,factor);
     881     }
     882     else if( ionZ == 18 ) {
     883        G4double Ar_18[31]={3.489,3.89,4.63,5.325,5.991,6.63,7.24,7.822,8.376,10.67,12.29,13.45,14.29,15.39,16.04,16.45,16.71,16.87,16.97,17.01,16.8,16.26,15.64,15.01,13.82,12.77,11.85,11.04,10.34,9.712,9.155};
     884        physicsVector = CreatePhysicsVector(E,Ar_18,factor);
     885     }
     886}
     887
     888  else if( matName == namesMat[10] ) {
     889     if( ionZ == 3 ) {
     890        G4double Ti_3[31]={1.008,1.108,1.272,1.4,1.5,1.577,1.635,1.68,1.715,1.785,1.777,1.743,1.7,1.612,1.527,1.448,1.376,1.311,1.251,1.197,0.9831,0.8357,0.7282,0.6465,0.5304,0.452,0.3954,0.3525,0.3188,0.2916,0.269};
     891        physicsVector = CreatePhysicsVector(E,Ti_3,factor);
     892     }
     893     else if( ionZ == 4 ) {
     894        G4double Ti_4[31]={1.218,1.356,1.594,1.789,1.949,2.081,2.187,2.274,2.345,2.538,2.587,2.579,2.548,2.464,2.372,2.281,2.193,2.11,2.032,1.959,1.656,1.433,1.263,1.13,0.9349,0.7999,0.701,0.6255,0.5659,0.5177,0.4777};
     895        physicsVector = CreatePhysicsVector(E,Ti_4,factor);
     896     }
     897     else if( ionZ == 5 ) {
     898        G4double Ti_5[31]={1.374,1.544,1.846,2.103,2.321,2.507,2.664,2.796,2.907,3.249,3.381,3.419,3.414,3.353,3.268,3.175,3.081,2.988,2.898,2.812,2.438,2.145,1.912,1.725,1.442,1.241,1.091,0.9755,0.8833,0.8084,0.7461};
     899        physicsVector = CreatePhysicsVector(E,Ti_5,factor);
     900     }
     901     else if( ionZ == 6 ) {
     902        G4double Ti_6[31]={1.498,1.692,2.047,2.358,2.631,2.869,3.075,3.253,3.406,3.912,4.147,4.247,4.279,4.258,4.19,4.105,4.012,3.916,3.821,3.727,3.3,2.947,2.657,2.416,2.043,1.77,1.563,1.401,1.27,1.164,1.075};
     903        physicsVector = CreatePhysicsVector(E,Ti_6,factor);
     904     }
     905     else if( ionZ == 7 ) {
     906        G4double Ti_7[31]={1.6,1.812,2.207,2.563,2.883,3.168,3.42,3.643,3.839,4.516,4.869,5.044,5.125,5.16,5.122,5.053,4.968,4.876,4.781,4.685,4.224,3.823,3.481,3.191,2.73,2.382,2.113,1.9,1.727,1.583,1.464};
     907        physicsVector = CreatePhysicsVector(E,Ti_7,factor);
     908     }
     909     else if( ionZ == 8 ) {
     910        G4double Ti_8[31]={1.696,1.922,2.348,2.742,3.102,3.428,3.723,3.988,4.225,5.076,5.555,5.816,5.956,6.06,6.06,6.014,5.944,5.86,5.768,5.673,5.194,4.756,4.371,4.036,3.49,3.068,2.736,2.468,2.249,2.067,1.912};
     911        physicsVector = CreatePhysicsVector(E,Ti_8,factor);
     912     }
     913     else if( ionZ == 9 ) {
     914        G4double Ti_9[31]={1.789,2.024,2.474,2.896,3.289,3.651,3.984,4.287,4.561,5.582,6.192,6.547,6.751,6.932,6.976,6.956,6.903,6.831,6.746,6.655,6.17,5.705,5.284,4.911,4.29,3.8,3.407,3.087,2.822,2.599,2.41};
     915        physicsVector = CreatePhysicsVector(E,Ti_9,factor);
     916     }
     917     else if( ionZ == 10 ) {
     918        G4double Ti_10[31]={1.883,2.125,2.593,3.037,3.457,3.849,4.214,4.551,4.86,6.044,6.786,7.241,7.517,7.788,7.882,7.894,7.862,7.804,7.73,7.645,7.164,6.679,6.23,5.824,5.134,4.58,4.129,3.756,3.445,3.181,2.955};
     919        physicsVector = CreatePhysicsVector(E,Ti_10,factor);
     920     }
     921     else if( ionZ == 11 ) {
     922        G4double Ti_11[31]={1.969,2.218,2.7,3.162,3.603,4.02,4.413,4.78,5.121,6.462,7.338,7.9,8.255,8.629,8.784,8.835,8.83,8.79,8.728,8.653,8.186,7.69,7.218,6.783,6.031,5.415,4.906,4.482,4.124,3.818,3.554};
     923        physicsVector = CreatePhysicsVector(E,Ti_11,factor);
     924     }
     925     else if( ionZ == 12 ) {
     926        G4double Ti_12[31]={2.062,2.316,2.808,3.283,3.74,4.178,4.594,4.987,5.356,6.841,7.846,8.514,8.953,9.436,9.658,9.753,9.777,9.758,9.711,9.646,9.197,8.694,8.204,7.745,6.939,6.267,5.706,5.233,4.831,4.484,4.184};
     927        physicsVector = CreatePhysicsVector(E,Ti_12,factor);
     928     }
     929     else if( ionZ == 13 ) {
     930        G4double Ti_13[31]={2.154,2.414,2.917,3.402,3.873,4.326,4.762,5.177,5.57,7.192,8.324,9.101,9.626,10.23,10.52,10.66,10.72,10.72,10.7,10.64,10.23,9.723,9.219,8.741,7.886,7.162,6.55,6.029,5.583,5.196,4.859};
     931        physicsVector = CreatePhysicsVector(E,Ti_13,factor);
     932     }
     933     else if( ionZ == 14 ) {
     934        G4double Ti_14[31]={2.246,2.512,3.023,3.518,3.998,4.465,4.915,5.348,5.762,7.509,8.763,9.648,10.26,10.98,11.35,11.55,11.64,11.67,11.66,11.63,11.25,10.75,10.24,9.74,8.842,8.071,7.413,6.848,6.359,5.934,5.561};
     935        physicsVector = CreatePhysicsVector(E,Ti_14,factor);
     936     }
     937     else if( ionZ == 15 ) {
     938        G4double Ti_15[31]={2.33,2.602,3.122,3.624,4.112,4.589,5.052,5.5,5.932,7.792,9.166,10.16,10.86,11.72,12.18,12.43,12.57,12.64,12.65,12.64,12.31,11.83,11.32,10.81,9.876,9.059,8.354,7.742,7.21,6.744,6.333};
     939        physicsVector = CreatePhysicsVector(E,Ti_15,factor);
     940     }
     941     else if( ionZ == 16 ) {
     942        G4double Ti_16[31]={2.246,2.512,3.023,3.518,3.998,4.465,4.915,5.348,5.762,7.509,8.763,9.648,10.26,10.98,11.35,11.55,11.64,11.67,11.66,11.63,11.25,10.75,10.24,9.74,8.842,8.071,7.413,6.848,6.359,5.934,5.561};
     943        physicsVector = CreatePhysicsVector(E,Ti_16,factor);
     944     }
     945     else if( ionZ == 17 ) {
     946        G4double Ti_17[31]={2.5,2.786,3.327,3.844,4.346,4.838,5.32,5.792,6.25,8.302,9.896,11.1,11.99,13.13,13.77,14.16,14.39,14.53,14.61,14.64,14.45,14.01,13.51,12.99,12,11.1,10.32,9.62,9.006,8.461,7.976};
     947        physicsVector = CreatePhysicsVector(E,Ti_17,factor);
     948     }
     949     else if( ionZ == 18 ) {
     950        G4double Ti_18[31]={2.585,2.879,3.433,3.958,4.467,4.965,5.454,5.934,6.403,8.533,10.23,11.53,12.52,13.8,14.53,14.99,15.27,15.45,15.55,15.6,15.48,15.07,14.57,14.04,13.02,12.1,11.27,10.54,9.887,9.308,8.791};
     951        physicsVector = CreatePhysicsVector(E,Ti_18,factor);
     952     }
     953}
     954
     955  else if( matName == namesMat[11] ) {
     956     if( ionZ == 3 ) {
     957        G4double Fe_3[31]={0.8835,0.9749,1.128,1.249,1.346,1.422,1.481,1.526,1.561,1.644,1.652,1.63,1.595,1.515,1.436,1.363,1.297,1.236,1.18,1.13,0.9314,0.7945,0.6945,0.6183,0.5096,0.4358,0.3822,0.3414,0.3092,0.2831,0.2615};
     958        physicsVector = CreatePhysicsVector(E,Fe_3,factor);
     959     }
     960     else if( ionZ == 4 ) {
     961        G4double Fe_4[31]={1.055,1.181,1.398,1.58,1.732,1.859,1.964,2.051,2.121,2.322,2.391,2.401,2.383,2.312,2.227,2.142,2.061,1.984,1.912,1.844,1.565,1.359,1.202,1.078,0.8965,0.7699,0.6767,0.6051,0.5484,0.5024,0.4642};
     962        physicsVector = CreatePhysicsVector(E,Fe_4,factor);
     963     }
     964     else if( ionZ == 5 ) {
     965        G4double Fe_5[31]={1.178,1.33,1.603,1.839,2.044,2.221,2.373,2.502,2.612,2.956,3.108,3.17,3.182,3.14,3.064,2.978,2.891,2.805,2.722,2.642,2.298,2.029,1.815,1.642,1.38,1.193,1.052,0.9424,0.8551,0.7837,0.7243};
     966        physicsVector = CreatePhysicsVector(E,Fe_5,factor);
     967     }
     968     else if( ionZ == 6 ) {
     969        G4double Fe_6[31]={1.273,1.446,1.764,2.047,2.299,2.522,2.719,2.892,3.042,3.543,3.794,3.92,3.976,3.98,3.924,3.846,3.76,3.672,3.584,3.497,3.105,2.782,2.516,2.295,1.952,1.698,1.504,1.351,1.228,1.127,1.042};
     970        physicsVector = CreatePhysicsVector(E,Fe_6,factor);
     971     }
     972     else if( ionZ == 7 ) {
     973        G4double Fe_7[31]={1.349,1.535,1.886,2.208,2.5,2.765,3.003,3.217,3.407,4.072,4.434,4.636,4.745,4.815,4.792,4.731,4.654,4.569,4.481,4.392,3.968,3.602,3.291,3.026,2.602,2.281,2.03,1.83,1.667,1.532,1.418};
     974        physicsVector = CreatePhysicsVector(E,Fe_7,factor);
     975     }
     976     else if( ionZ == 8 ) {
     977        G4double Fe_8[31]={1.422,1.617,1.994,2.347,2.674,2.974,3.249,3.5,3.727,4.558,5.037,5.324,5.495,5.643,5.663,5.627,5.564,5.487,5.403,5.315,4.875,4.475,4.126,3.821,3.321,2.933,2.624,2.374,2.168,1.996,1.85};
     978        physicsVector = CreatePhysicsVector(E,Fe_8,factor);
     979     }
     980     else if( ionZ == 9 ) {
     981        G4double Fe_9[31]={1.492,1.695,2.089,2.466,2.82,3.151,3.458,3.741,4.002,4.993,5.594,5.97,6.208,6.444,6.514,6.508,6.463,6.397,6.319,6.235,5.788,5.364,4.984,4.646,4.079,3.629,3.265,2.967,2.718,2.509,2.33};
     982        physicsVector = CreatePhysicsVector(E,Fe_9,factor);
     983     }
     984     else if( ionZ == 10 ) {
     985        G4double Fe_10[31]={1.564,1.772,2.179,2.574,2.951,3.306,3.64,3.953,4.244,5.386,6.111,6.58,6.89,7.226,7.354,7.383,7.36,7.309,7.241,7.163,6.721,6.279,5.872,5.505,4.879,4.37,3.953,3.607,3.316,3.068,2.855};
     986        physicsVector = CreatePhysicsVector(E,Fe_10,factor);
     987     }
     988     else if( ionZ == 11 ) {
     989        G4double Fe_11[31]={1.632,1.845,2.262,2.67,3.064,3.441,3.799,4.136,4.454,5.738,6.588,7.155,7.543,7.99,8.187,8.259,8.264,8.232,8.177,8.108,7.678,7.226,6.799,6.407,5.726,5.162,4.694,4.3,3.965,3.679,3.431};
     990        physicsVector = CreatePhysicsVector(E,Fe_11,factor);
     991     }
     992     else if( ionZ == 12 ) {
     993        G4double Fe_12[31]={1.706,1.923,2.348,2.765,3.173,3.566,3.943,4.302,4.643,6.055,7.026,7.69,8.156,8.719,8.992,9.113,9.15,9.14,9.1,9.041,8.628,8.169,7.726,7.314,6.585,5.972,5.456,5.018,4.643,4.319,4.037};
     994        physicsVector = CreatePhysicsVector(E,Fe_12,factor);
     995     }
     996     else if( ionZ == 13 ) {
     997        G4double Fe_13[31]={1.778,2,2.432,2.857,3.274,3.681,4.074,4.451,4.811,6.343,7.433,8.196,8.742,9.426,9.779,9.955,10.03,10.05,10.02,9.979,9.594,9.135,8.681,8.25,7.479,6.82,6.259,5.778,5.363,5.002,4.685};
     998        physicsVector = CreatePhysicsVector(E,Fe_13,factor);
     999     }
     1000     else if( ionZ == 14 ) {
     1001        G4double Fe_14[31]={1.851,2.078,2.517,2.948,3.373,3.79,4.196,4.588,4.965,6.603,7.808,8.669,9.296,10.1,10.54,10.77,10.89,10.93,10.93,10.9,10.55,10.1,9.637,9.193,8.384,7.684,7.082,6.56,6.107,5.71,5.36};
     1002        physicsVector = CreatePhysicsVector(E,Fe_14,factor);
     1003     }
     1004     else if( ionZ == 15 ) {
     1005        G4double Fe_15[31]={1.919,2.151,2.597,3.033,3.463,3.888,4.305,4.709,5.101,6.833,8.149,9.109,9.819,10.76,11.29,11.59,11.75,11.83,11.86,11.85,11.56,11.12,10.65,10.2,9.358,8.618,7.974,7.411,6.918,6.484,6.099};
     1006        physicsVector = CreatePhysicsVector(E,Fe_15,factor);
     1007     }
     1008     else if( ionZ == 16 ) {
     1009        G4double Fe_16[31]={1.987,2.225,2.681,3.122,3.559,3.991,4.416,4.831,5.235,7.05,8.47,9.527,10.32,11.4,12.03,12.4,12.61,12.73,12.78,12.8,12.56,12.14,11.68,11.22,10.36,9.581,8.898,8.296,7.765,7.294,6.875};
     1010        physicsVector = CreatePhysicsVector(E,Fe_16,factor);
     1011     }
     1012     else if( ionZ == 17 ) {
     1013        G4double Fe_17[31]={2.055,2.3,2.764,3.211,3.651,4.087,4.519,4.943,5.357,7.244,8.76,9.911,10.79,12,12.73,13.18,13.44,13.6,13.68,13.72,13.56,13.16,12.71,12.24,11.36,10.55,9.832,9.195,8.628,8.123,7.671};
     1014        physicsVector = CreatePhysicsVector(E,Fe_17,factor);
     1015     }
     1016     else if( ionZ == 18 ) {
     1017        G4double Fe_18[31]={2.127,2.378,2.854,3.308,3.753,4.194,4.631,5.062,5.485,7.434,9.04,10.28,11.24,12.58,13.42,13.94,14.26,14.46,14.57,14.63,14.53,14.16,13.71,13.24,12.33,11.49,10.74,10.07,9.473,8.937,8.455};
     1018        physicsVector = CreatePhysicsVector(E,Fe_18,factor);
     1019     }
     1020}
     1021
     1022  else if( matName == namesMat[12] ) {
     1023     if( ionZ == 3 ) {
     1024        G4double Ni_3[31]={0.8314,0.9198,1.07,1.193,1.294,1.376,1.443,1.495,1.536,1.634,1.649,1.632,1.601,1.525,1.447,1.375,1.308,1.247,1.192,1.141,0.942,0.8042,0.7035,0.6266,0.5169,0.4423,0.3881,0.3468,0.3142,0.2878,0.266};
     1025        physicsVector = CreatePhysicsVector(E,Ni_3,factor);
     1026     }
     1027     else if( ionZ == 4 ) {
     1028        G4double Ni_4[31]={0.9896,1.109,1.32,1.5,1.654,1.786,1.899,1.994,2.072,2.301,2.382,2.399,2.387,2.322,2.24,2.157,2.076,1.999,1.927,1.859,1.579,1.373,1.215,1.091,0.9083,0.7808,0.6867,0.6144,0.5571,0.5105,0.4718};
     1029        physicsVector = CreatePhysicsVector(E,Ni_4,factor);
     1030     }
     1031     else if( ionZ == 5 ) {
     1032        G4double Ni_5[31]={1.103,1.245,1.506,1.737,1.941,2.12,2.278,2.417,2.537,2.92,3.091,3.162,3.183,3.151,3.08,2.995,2.908,2.823,2.74,2.66,2.316,2.046,1.832,1.659,1.397,1.208,1.066,0.9562,0.8681,0.796,0.736};
     1033        physicsVector = CreatePhysicsVector(E,Ni_5,factor);
     1034     }
     1035     else if( ionZ == 6 ) {
     1036        G4double Ni_6[31]={1.191,1.35,1.649,1.923,2.17,2.393,2.594,2.774,2.934,3.485,3.763,3.904,3.971,3.991,3.942,3.867,3.781,3.693,3.605,3.518,3.125,2.802,2.537,2.316,1.972,1.718,1.523,1.37,1.246,1.144,1.058};
     1037        physicsVector = CreatePhysicsVector(E,Ni_6,factor);
     1038     }
     1039     else if( ionZ == 7 ) {
     1040        G4double Ni_7[31]={1.262,1.432,1.759,2.065,2.35,2.611,2.85,3.068,3.266,3.989,4.387,4.609,4.732,4.822,4.809,4.753,4.677,4.592,4.504,4.415,3.991,3.625,3.315,3.05,2.627,2.305,2.054,1.853,1.69,1.553,1.439};
     1041        physicsVector = CreatePhysicsVector(E,Ni_7,factor);
     1042     }
     1043     else if( ionZ == 8 ) {
     1044        G4double Ni_8[31]={1.329,1.508,1.855,2.187,2.502,2.796,3.069,3.322,3.555,4.445,4.972,5.283,5.471,5.645,5.679,5.65,5.59,5.513,5.429,5.341,4.899,4.5,4.151,3.847,3.349,2.961,2.653,2.402,2.196,2.023,1.876};
     1045        physicsVector = CreatePhysicsVector(E,Ni_8,factor);
     1046     }
     1047     else if( ionZ == 9 ) {
     1048        G4double Ni_9[31]={1.395,1.581,1.942,2.293,2.631,2.952,3.254,3.536,3.8,4.848,5.506,5.914,6.173,6.44,6.529,6.533,6.492,6.427,6.35,6.265,5.816,5.392,5.012,4.675,4.111,3.662,3.299,3,2.751,2.541,2.361};
     1049        physicsVector = CreatePhysicsVector(E,Ni_9,factor);
     1050     }
     1051     else if( ionZ == 10 ) {
     1052        G4double Ni_10[31]={1.461,1.653,2.026,2.39,2.746,3.088,3.414,3.722,4.013,5.207,5.998,6.507,6.842,7.213,7.366,7.409,7.392,7.343,7.276,7.198,6.751,6.309,5.903,5.538,4.914,4.408,3.992,3.646,3.355,3.107,2.893};
     1053        physicsVector = CreatePhysicsVector(E,Ni_10,factor);
     1054     }
     1055     else if( ionZ == 11 ) {
     1056        G4double Ni_11[31]={1.522,1.719,2.102,2.477,2.846,3.205,3.552,3.883,4.198,5.524,6.447,7.062,7.479,7.967,8.194,8.284,8.298,8.269,8.215,8.146,7.713,7.259,6.833,6.442,5.765,5.204,4.737,4.344,4.01,3.723,3.474};
     1057        physicsVector = CreatePhysicsVector(E,Ni_11,factor);
     1058     }
     1059     else if( ionZ == 12 ) {
     1060        G4double Ni_12[31]={1.588,1.791,2.183,2.566,2.944,3.316,3.679,4.029,4.364,5.809,6.856,7.576,8.076,8.685,8.993,9.136,9.186,9.18,9.142,9.084,8.668,8.207,7.764,7.353,6.628,6.019,5.505,5.068,4.693,4.369,4.087};
     1061        physicsVector = CreatePhysicsVector(E,Ni_12,factor);
     1062     }
     1063     else if( ionZ == 13 ) {
     1064        G4double Ni_13[31]={1.652,1.86,2.261,2.651,3.037,3.418,3.793,4.158,4.511,6.061,7.229,8.057,8.643,9.378,9.772,9.974,10.06,10.09,10.07,10.03,9.64,9.177,8.722,8.293,7.525,6.871,6.313,5.833,5.419,5.058,4.741};
     1065        physicsVector = CreatePhysicsVector(E,Ni_13,factor);
     1066     }
     1067     else if( ionZ == 14 ) {
     1068        G4double Ni_14[31]={1.717,1.93,2.34,2.737,3.129,3.517,3.901,4.278,4.645,6.29,7.571,8.504,9.178,10.04,10.53,10.79,10.92,10.98,10.98,10.96,10.61,10.15,9.683,9.239,8.435,7.74,7.141,6.621,6.169,5.772,5.423};
     1069        physicsVector = CreatePhysicsVector(E,Ni_14,factor);
     1070     }
     1071     else if( ionZ == 15 ) {
     1072        G4double Ni_15[31]={1.776,1.994,2.411,2.814,3.211,3.605,3.996,4.382,4.761,6.489,7.879,8.917,9.681,10.68,11.27,11.6,11.79,11.88,11.91,11.91,11.61,11.17,10.7,10.25,9.41,8.676,8.036,7.476,6.985,6.551,6.166};
     1073        physicsVector = CreatePhysicsVector(E,Ni_15,factor);
     1074     }
     1075     else if( ionZ == 16 ) {
     1076        G4double Ni_16[31]={1.837,2.061,2.488,2.899,3.302,3.701,4.098,4.492,4.881,6.679,8.166,9.307,10.16,11.3,11.99,12.4,12.64,12.77,12.84,12.86,12.62,12.2,11.73,11.27,10.41,9.641,8.963,8.365,7.836,7.366,6.947};
     1077        physicsVector = CreatePhysicsVector(E,Ni_16,factor);
     1078     }
     1079     else if( ionZ == 17 ) {
     1080        G4double Ni_17[31]={1.899,2.127,2.563,2.981,3.389,3.792,4.193,4.593,4.989,6.847,8.422,9.66,10.6,11.89,12.68,13.17,13.47,13.64,13.74,13.78,13.62,13.22,12.76,12.3,11.41,10.61,9.901,9.267,8.703,8.2,7.749};
     1081        physicsVector = CreatePhysicsVector(E,Ni_17,factor);
     1082     }
     1083     else if( ionZ == 18 ) {
     1084        G4double Ni_18[31]={1.965,2.199,2.645,3.072,3.486,3.894,4.299,4.704,5.106,7.015,8.67,10,11.03,12.46,13.35,13.92,14.28,14.5,14.63,14.7,14.6,14.22,13.77,13.3,12.39,11.56,10.82,10.15,9.555,9.021,8.54};
     1085        physicsVector = CreatePhysicsVector(E,Ni_18,factor);
     1086     }
     1087}
     1088
     1089  else if( matName == namesMat[13] ) {
     1090    if( ionZ == 3) {
     1091      G4double Cu_3[31]={0.618,0.6921,0.8207,0.9275,1.017,1.091,1.153,1.203,1.245,1.356,1.386,1.383,1.365,1.311,1.252,1.195,1.142,1.093,1.047,1.006,0.8383,0.7202,0.6328,0.5655,0.4688,0.4025,0.354,0.3169,0.2876,0.2638,0.244};
     1092      physicsVector = CreatePhysicsVector(E,Cu_3,factor);
     1093    }
     1094    else if( ionZ == 4) {
     1095      G4double Cu_4[31]={0.7253,0.8223,0.9989,1.153,1.287,1.404,1.505,1.593,1.668,1.903,1.998,2.031,2.034,1.996,1.938,1.874,1.811,1.75,1.691,1.636,1.403,1.228,1.092,0.9835,0.823,0.71,0.6261,0.5613,0.5098,0.4677,0.4328};
     1096    physicsVector = CreatePhysicsVector(E,Cu_4,factor);
     1097    }
     1098    else if( ionZ == 5) {
     1099      G4double Cu_5[31]={0.8018,0.9144,1.127,1.321,1.496,1.652,1.792,1.917,2.027,2.404,2.588,2.675,2.711,2.709,2.664,2.603,2.537,2.47,2.404,2.34,2.056,1.828,1.645,1.495,1.265,1.098,0.9717,0.8731,0.794,0.7291,0.6749};
     1100      physicsVector = CreatePhysicsVector(E,Cu_5,factor);
     1101    }
     1102    else if( ionZ == 6) {
     1103      G4double Cu_6[31]={0.8636,0.9862,1.225,1.45,1.659,1.85,2.025,2.184,2.329,2.856,3.143,3.297,3.379,3.43,3.41,3.36,3.298,3.231,3.162,3.093,2.772,2.501,2.275,2.085,1.785,1.56,1.387,1.25,1.139,1.047,0.9701};
     1104      physicsVector = CreatePhysicsVector(E,Cu_6,factor);
     1105    }
     1106    else if( ionZ == 7) {
     1107      G4double Cu_7[31]={0.9151,1.044,1.298,1.545,1.781,2.003,2.208,2.399,2.574,3.25,3.651,3.884,4.021,4.142,4.159,4.131,4.08,4.018,3.95,3.881,3.539,3.234,2.971,2.743,2.375,2.093,1.87,1.691,1.544,1.422,1.319};
     1108      physicsVector = CreatePhysicsVector(E,Cu_7,factor);
     1109    }
     1110    else if( ionZ == 8) {
     1111      G4double Cu_8[31]={0.9691,1.102,1.367,1.629,1.885,2.131,2.363,2.581,2.785,3.602,4.122,4.442,4.643,4.846,4.911,4.91,4.876,4.824,4.762,4.695,4.343,4.012,3.718,3.458,3.027,2.687,2.414,2.191,2.006,1.851,1.719};
     1112 physicsVector = CreatePhysicsVector(E,Cu_8,factor);
     1113    }
     1114    else if( ionZ == 9) {
     1115      G4double Cu_9[31]={1.024,1.161,1.432,1.704,1.974,2.238,2.491,2.732,2.961,3.907,4.548,4.961,5.229,5.524,5.644,5.676,5.662,5.623,5.569,5.507,5.154,4.806,4.487,4.2,3.713,3.321,3,2.735,2.513,2.324,2.163};
     1116      physicsVector = CreatePhysicsVector(E,Cu_9,factor);
     1117    }
     1118    else if( ionZ == 10) {
     1119      G4double Cu_10[31]={1.08,1.22,1.497,1.775,2.055,2.331,2.601,2.862,3.111,4.175,4.934,5.443,5.785,6.181,6.364,6.436,6.447,6.424,6.381,6.326,5.982,5.621,5.283,4.973,4.437,3.996,3.63,3.323,3.063,2.841,2.649};
     1120      physicsVector = CreatePhysicsVector(E,Cu_10,factor);
     1121}
     1122    else if( ionZ == 11) {
     1123      G4double Cu_11[31]={1.133,1.277,1.56,1.843,2.128,2.414,2.697,2.973,3.24,4.408,5.281,5.89,6.311,6.819,7.074,7.194,7.236,7.234,7.205,7.16,6.833,6.466,6.112,5.783,5.202,4.715,4.305,3.957,3.66,3.403,3.18};
     1124      physicsVector = CreatePhysicsVector(E,Cu_11,factor);
     1125    }
     1126    else if( ionZ == 12) {
     1127      G4double Cu_12[31]={1.192,1.34,1.628,1.914,2.203,2.494,2.786,3.074,3.356,4.614,5.594,6.3,6.801,7.425,7.759,7.931,8.009,8.031,8.018,7.985,7.678,7.309,6.943,6.598,5.979,5.451,5.001,4.615,4.282,3.993,3.74};
     1128      physicsVector = CreatePhysicsVector(E,Cu_12,factor);
     1129    }
     1130    else if( ionZ == 13) {
     1131      G4double Cu_13[31]={1.248,1.4,1.694,1.984,2.275,2.57,2.868,3.164,3.457,4.795,5.874,6.678,7.26,8.006,8.423,8.654,8.773,8.824,8.832,8.813,8.539,8.172,7.798,7.439,6.786,6.22,5.732,5.31,4.942,4.621,4.338};
     1132      physicsVector = CreatePhysicsVector(E,Cu_13,factor);
     1133    }
     1134    else if( ionZ == 14) {
     1135      G4double Cu_14[31]={1.305,1.461,1.762,2.056,2.35,2.647,2.948,3.25,3.551,4.958,6.129,7.028,7.692,8.562,9.066,9.358,9.52,9.601,9.632,9.63,9.394,9.034,8.655,8.286,7.604,7.005,6.482,6.026,5.625,5.272,4.96};
     1136      physicsVector = CreatePhysicsVector(E,Cu_14,factor);
     1137    }
     1138    else if( ionZ == 15) {
     1139      G4double Cu_15[31]={1.356,1.517,1.824,2.123,2.419,2.717,3.02,3.327,3.634,5.098,6.353,7.345,8.094,9.095,9.694,10.05,10.27,10.39,10.44,10.46,10.28,9.94,9.563,9.188,8.481,7.85,7.293,6.801,6.367,5.982,5.639};
     1140      physicsVector = CreatePhysicsVector(E,Cu_15,factor);
     1141    }
     1142    else if( ionZ == 16) {
     1143      G4double Cu_16[31]={1.408,1.574,1.89,2.194,2.494,2.795,3.099,3.409,3.72,5.232,6.562,7.642,8.475,9.61,10.31,10.74,11.01,11.17,11.26,11.3,11.18,10.86,10.49,10.11,9.381,8.721,8.133,7.609,7.142,6.726,6.353};
     1144      physicsVector = CreatePhysicsVector(E,Cu_16,factor);
     1145    }
     1146    else if( ionZ == 17) {
     1147      G4double Cu_17[31]={1.46,1.631,1.955,2.265,2.568,2.87,3.176,3.486,3.8,5.35,6.745,7.908,8.822,10.09,10.89,11.4,11.72,11.92,12.05,12.11,12.06,11.77,11.4,11.02,10.28,9.599,8.982,8.428,7.931,7.485,7.084};
     1148      physicsVector = CreatePhysicsVector(E,Cu_17,factor);
     1149    }
     1150    else if( ionZ == 18) {
     1151      G4double Cu_18[31]={1.515,1.692,2.025,2.343,2.651,2.956,3.263,3.575,3.89,5.471,6.924,8.164,9.158,10.56,11.46,12.05,12.43,12.67,12.83,12.92,12.93,12.66,12.3,11.92,11.16,10.45,9.811,9.229,8.706,8.233,7.806};
     1152      physicsVector = CreatePhysicsVector(E,Cu_18,factor);
     1153    }
     1154  }
     1155 
     1156  else if( matName == namesMat[14] ) {
     1157     if( ionZ == 3 ) {
     1158        G4double Ge_3[31]={0.6441,0.7195,0.842,0.9317,0.9987,1.05,1.091,1.124,1.152,1.233,1.266,1.272,1.263,1.222,1.171,1.119,1.069,1.023,0.9797,0.9402,0.7833,0.673,0.5915,0.5289,0.439,0.3774,0.3323,0.2979,0.2705,0.2483,0.2298};
     1159        physicsVector = CreatePhysicsVector(E,Ge_3,factor);
     1160     }
     1161     else if( ionZ == 4 ) {
     1162        G4double Ge_4[31]={0.7658,0.8635,1.037,1.178,1.29,1.379,1.452,1.513,1.565,1.733,1.819,1.86,1.874,1.855,1.809,1.753,1.695,1.637,1.582,1.53,1.311,1.147,1.02,0.9192,0.7703,0.6653,0.5874,0.5272,0.4793,0.4401,0.4075};
     1163        physicsVector = CreatePhysicsVector(E,Ge_4,factor);
     1164     }
     1165     else if( ionZ == 5 ) {
     1166        G4double Ge_5[31]={0.8579,0.9711,1.182,1.367,1.522,1.651,1.759,1.85,1.929,2.198,2.352,2.441,2.488,2.51,2.482,2.432,2.373,2.311,2.249,2.188,1.92,1.707,1.536,1.396,1.183,1.028,0.9111,0.8196,0.746,0.6857,0.6352};
     1167        physicsVector = CreatePhysicsVector(E,Ge_5,factor);
     1168     }
     1169     else if( ionZ == 6 ) {
     1170        G4double Ge_6[31]={0.9323,1.057,1.294,1.512,1.706,1.873,2.016,2.139,2.247,2.626,2.856,3.001,3.091,3.168,3.17,3.136,3.083,3.022,2.958,2.893,2.59,2.335,2.123,1.946,1.668,1.46,1.3,1.173,1.07,0.9843,0.9125};
     1171        physicsVector = CreatePhysicsVector(E,Ge_6,factor);
     1172     }
     1173     else if( ionZ == 7 ) {
     1174        G4double Ge_7[31]={0.9928,1.126,1.382,1.623,1.847,2.047,2.224,2.379,2.515,3.01,3.321,3.53,3.669,3.815,3.858,3.849,3.81,3.756,3.695,3.63,3.305,3.018,2.771,2.56,2.218,1.957,1.751,1.585,1.449,1.335,1.239};
     1175        physicsVector = CreatePhysicsVector(E,Ge_7,factor);
     1176     }
     1177     else if( ionZ == 8 ) {
     1178        G4double Ge_8[31]={1.053,1.192,1.462,1.72,1.966,2.194,2.401,2.586,2.751,3.362,3.758,4.034,4.227,4.451,4.545,4.568,4.549,4.507,4.452,4.39,4.057,3.744,3.468,3.226,2.825,2.511,2.258,2.052,1.881,1.737,1.615};
     1179        physicsVector = CreatePhysicsVector(E,Ge_8,factor);
     1180     }
     1181     else if( ionZ == 9 ) {
     1182        G4double Ge_9[31]={1.111,1.254,1.535,1.806,2.068,2.317,2.549,2.76,2.951,3.677,4.159,4.504,4.754,5.063,5.213,5.272,5.278,5.251,5.206,5.15,4.816,4.486,4.186,3.918,3.466,3.102,2.806,2.561,2.355,2.181,2.031};
     1183        physicsVector = CreatePhysicsVector(E,Ge_9,factor);
     1184     }
     1185     else if( ionZ == 10 ) {
     1186        G4double Ge_10[31]={1.169,1.316,1.605,1.887,2.16,2.424,2.675,2.91,3.125,3.961,4.53,4.945,5.254,5.655,5.868,5.969,6.003,5.996,5.963,5.916,5.592,5.249,4.93,4.64,4.141,3.732,3.394,3.11,2.87,2.664,2.487};
     1187        physicsVector = CreatePhysicsVector(E,Ge_10,factor);
     1188     }
     1189     else if( ionZ == 11 ) {
     1190        G4double Ge_11[31]={1.224,1.375,1.671,1.96,2.242,2.518,2.784,3.038,3.275,4.216,4.872,5.358,5.729,6.228,6.511,6.662,6.73,6.746,6.73,6.693,6.388,6.039,5.705,5.396,4.855,4.404,4.024,3.704,3.428,3.191,2.984};
     1191        physicsVector = CreatePhysicsVector(E,Ge_11,factor);
     1192     }
     1193     else if( ionZ == 12 ) {
     1194        G4double Ge_12[31]={1.281,1.438,1.739,2.035,2.325,2.608,2.885,3.154,3.409,4.448,5.187,5.742,6.174,6.772,7.129,7.334,7.44,7.484,7.486,7.463,7.181,6.829,6.482,6.158,5.58,5.091,4.674,4.318,4.01,3.743,3.508};
     1195        physicsVector = CreatePhysicsVector(E,Ge_12,factor);
     1196     }
     1197     else if( ionZ == 13 ) {
     1198        G4double Ge_13[31]={1.335,1.498,1.806,2.106,2.402,2.692,2.977,3.256,3.525,4.654,5.477,6.101,6.593,7.293,7.728,7.991,8.14,8.215,8.241,8.235,7.987,7.637,7.282,6.945,6.335,5.81,5.358,4.968,4.628,4.33,4.068};
     1199        physicsVector = CreatePhysicsVector(E,Ge_13,factor);
     1200     }
     1201     else if( ionZ == 14 ) {
     1202        G4double Ge_14[31]={1.389,1.558,1.873,2.178,2.478,2.773,3.064,3.351,3.631,4.841,5.744,6.438,6.99,7.791,8.305,8.628,8.823,8.931,8.982,8.995,8.789,8.446,8.086,7.738,7.1,6.543,6.059,5.637,5.267,4.941,4.651};
     1203        physicsVector = CreatePhysicsVector(E,Ge_14,factor);
     1204     }
     1205     else if( ionZ == 15 ) {
     1206        G4double Ge_15[31]={1.437,1.612,1.936,2.244,2.548,2.848,3.143,3.435,3.723,5.006,5.988,6.75,7.363,8.27,8.868,9.258,9.504,9.652,9.733,9.768,9.621,9.294,8.935,8.58,7.918,7.331,6.815,6.361,5.959,5.603,5.286};
     1207        physicsVector = CreatePhysicsVector(E,Ge_15,factor);
     1208     }
     1209     else if( ionZ == 16 ) {
     1210        G4double Ge_16[31]={1.485,1.667,2.002,2.315,2.622,2.927,3.227,3.523,3.818,5.162,6.218,7.047,7.721,8.733,9.419,9.878,10.18,10.37,10.48,10.54,10.46,10.15,9.797,9.438,8.756,8.143,7.598,7.113,6.682,6.297,5.952};
     1211        physicsVector = CreatePhysicsVector(E,Ge_16,factor);
     1212     }
     1213     else if( ionZ == 17 ) {
     1214        G4double Ge_17[31]={1.533,1.721,2.066,2.384,2.695,3.002,3.305,3.605,3.903,5.3,6.424,7.319,8.05,9.166,9.94,10.47,10.83,11.06,11.21,11.29,11.28,11,10.66,10.3,9.599,8.963,8.39,7.878,7.419,7.007,6.636};
     1215        physicsVector = CreatePhysicsVector(E,Ge_17,factor);
     1216     }
     1217     else if( ionZ == 18 ) {
     1218        G4double Ge_18[31]={1.585,1.779,2.137,2.463,2.778,3.088,3.395,3.698,4,5.439,6.629,7.587,8.375,9.592,10.45,11.05,11.47,11.74,11.93,12.04,12.1,11.84,11.5,11.14,10.42,9.764,9.167,8.629,8.145,7.708,7.313};
     1219        physicsVector = CreatePhysicsVector(E,Ge_18,factor);
     1220     }
     1221}
     1222
     1223  else if( matName == namesMat[15] ) {
     1224     if( ionZ == 3 ) {
     1225        G4double Kr_3[31]={0.826,0.9063,1.029,1.113,1.17,1.211,1.241,1.265,1.282,1.324,1.328,1.317,1.298,1.247,1.188,1.13,1.076,1.026,0.9803,0.9389,0.7771,0.6654,0.5835,0.521,0.4315,0.3705,0.326,0.292,0.2652,0.2433,0.2252};
     1226        physicsVector = CreatePhysicsVector(E,Kr_3,factor);
     1227     }
     1228     else if( ionZ == 4 ) {
     1229        G4double Kr_4[31]={0.9936,1.106,1.292,1.432,1.534,1.611,1.671,1.72,1.759,1.872,1.917,1.931,1.929,1.894,1.838,1.775,1.71,1.647,1.588,1.532,1.304,1.135,1.007,0.9061,0.7574,0.6533,0.5763,0.517,0.4698,0.4313,0.3993};
     1230        physicsVector = CreatePhysicsVector(E,Kr_4,factor);
     1231     }
     1232     else if( ionZ == 5 ) {
     1233        G4double Kr_5[31]={1.119,1.256,1.495,1.689,1.84,1.958,2.052,2.128,2.192,2.393,2.492,2.543,2.567,2.565,2.525,2.466,2.399,2.33,2.262,2.197,1.913,1.692,1.518,1.377,1.163,1.01,0.8939,0.8036,0.7312,0.6718,0.6223};
     1234        physicsVector = CreatePhysicsVector(E,Kr_5,factor);
     1235     }
     1236     else if( ionZ == 6 ) {
     1237        G4double Kr_6[31]={1.219,1.375,1.656,1.896,2.094,2.254,2.384,2.492,2.583,2.882,3.043,3.138,3.195,3.24,3.227,3.182,3.121,3.051,2.98,2.908,2.583,2.318,2.101,1.921,1.641,1.434,1.275,1.15,1.048,0.9642,0.8938};
     1238        physicsVector = CreatePhysicsVector(E,Kr_6,factor);
     1239     }
     1240     else if( ionZ == 7 ) {
     1241        G4double Kr_7[31]={1.301,1.47,1.784,2.062,2.301,2.501,2.668,2.807,2.927,3.331,3.562,3.706,3.802,3.904,3.928,3.907,3.859,3.795,3.725,3.653,3.301,2.999,2.744,2.528,2.183,1.921,1.717,1.553,1.419,1.308,1.214};
     1242        physicsVector = CreatePhysicsVector(E,Kr_7,factor);
     1243     }
     1244     else if( ionZ == 8 ) {
     1245        G4double Kr_8[31]={1.38,1.559,1.897,2.204,2.479,2.716,2.918,3.091,3.239,3.753,4.057,4.256,4.394,4.559,4.628,4.637,4.608,4.556,4.491,4.421,4.054,3.723,3.435,3.186,2.78,2.465,2.214,2.01,1.842,1.7,1.58};
     1246        physicsVector = CreatePhysicsVector(E,Kr_8,factor);
     1247     }
     1248     else if( ionZ == 9 ) {
     1249        G4double Kr_9[31]={1.456,1.642,1.998,2.329,2.631,2.901,3.136,3.339,3.516,4.14,4.521,4.776,4.959,5.192,5.311,5.355,5.348,5.311,5.256,5.19,4.82,4.466,4.151,3.874,3.412,3.047,2.752,2.509,2.306,2.134,1.988};
     1250        physicsVector = CreatePhysicsVector(E,Kr_9,factor);
     1251     }
     1252     else if( ionZ == 10 ) {
     1253        G4double Kr_10[31]={1.533,1.724,2.094,2.443,2.767,3.064,3.329,3.561,3.765,4.499,4.958,5.273,5.503,5.809,5.981,6.064,6.086,6.068,6.025,5.967,5.602,5.232,4.894,4.592,4.08,3.668,3.329,3.048,2.81,2.608,2.433};
     1254        physicsVector = CreatePhysicsVector(E,Kr_10,factor);
     1255     }
     1256     else if( ionZ == 11 ) {
     1257        G4double Kr_11[31]={1.606,1.803,2.183,2.546,2.889,3.208,3.498,3.758,3.988,4.831,5.369,5.745,6.024,6.408,6.641,6.769,6.823,6.828,6.801,6.754,6.404,6.024,5.668,5.344,4.786,4.329,3.949,3.629,3.357,3.122,2.919};
     1258        physicsVector = CreatePhysicsVector(E,Kr_11,factor);
     1259     }
     1260     else if( ionZ == 12 ) {
     1261        G4double Kr_12[31]={1.684,1.886,2.275,2.649,3.005,3.341,3.653,3.937,4.193,5.141,5.757,6.193,6.522,6.984,7.278,7.454,7.546,7.577,7.569,7.535,7.205,6.818,6.447,6.104,5.506,5.008,4.589,4.233,3.928,3.664,3.433};
     1262        physicsVector = CreatePhysicsVector(E,Kr_12,factor);
     1263     }
     1264     else if( ionZ == 13 ) {
     1265        G4double Kr_13[31]={1.759,1.968,2.365,2.748,3.114,3.464,3.793,4.099,4.377,5.427,6.122,6.621,7,7.541,7.898,8.126,8.257,8.319,8.334,8.316,8.019,7.632,7.249,6.89,6.255,5.718,5.263,4.872,4.534,4.24,3.981};
     1266        physicsVector = CreatePhysicsVector(E,Kr_13,factor);
     1267     }
     1268     else if( ionZ == 14 ) {
     1269        G4double Kr_14[31]={1.833,2.049,2.455,2.845,3.22,3.581,3.924,4.247,4.544,5.69,6.464,7.024,7.454,8.075,8.496,8.777,8.951,9.046,9.085,9.087,8.831,8.447,8.056,7.684,7.016,6.445,5.955,5.531,5.162,4.839,4.553};
     1270        physicsVector = CreatePhysicsVector(E,Kr_14,factor);
     1271     }
     1272     else if( ionZ == 15 ) {
     1273        G4double Kr_15[31]={1.901,2.126,2.541,2.936,3.318,3.687,4.041,4.378,4.693,5.932,6.783,7.407,7.889,8.594,9.083,9.422,9.643,9.775,9.844,9.867,9.667,9.297,8.903,8.522,7.825,7.221,6.698,6.241,5.841,5.487,5.173};
     1274        physicsVector = CreatePhysicsVector(E,Kr_15,factor);
     1275     }
     1276     else if( ionZ == 16 ) {
     1277        G4double Kr_16[31]={1.97,2.204,2.631,3.033,3.421,3.796,4.16,4.509,4.838,6.164,7.089,7.776,8.311,9.102,9.66,10.06,10.33,10.5,10.6,10.65,10.51,10.16,9.764,9.376,8.656,8.021,7.466,6.978,6.547,6.164,5.823};
     1278        physicsVector = CreatePhysicsVector(E,Kr_16,factor);
     1279     }
     1280     else if( ionZ == 17 ) {
     1281        G4double Kr_17[31]={2.038,2.28,2.72,3.128,3.521,3.902,4.272,4.63,4.972,6.375,7.374,8.122,8.709,9.584,10.21,10.67,10.99,11.2,11.33,11.41,11.34,11.01,10.62,10.23,9.491,8.831,8.247,7.73,7.27,6.86,6.492};
     1282        physicsVector = CreatePhysicsVector(E,Kr_17,factor);
     1283     }
     1284     else if( ionZ == 18 ) {
     1285        G4double Kr_18[31]={2.11,2.362,2.817,3.234,3.633,4.019,4.394,4.759,5.111,6.587,7.656,8.465,9.104,10.06,10.76,11.27,11.64,11.9,12.06,12.16,12.17,11.86,11.47,11.07,10.31,9.628,9.016,8.472,7.987,7.551,7.158};
     1286        physicsVector = CreatePhysicsVector(E,Kr_18,factor);
     1287     }
     1288}
     1289
     1290  else if( matName == namesMat[16] ) {
     1291     if( ionZ == 3 ) {
     1292        G4double Mo_3[31]={0.6534,0.7272,0.8512,0.9467,1.019,1.073,1.114,1.147,1.173,1.235,1.244,1.236,1.22,1.177,1.13,1.083,1.037,0.9929,0.9519,0.9138,0.7605,0.6532,0.5743,0.5137,0.4269,0.3673,0.3238,0.2904,0.264,0.2424,0.2245};
     1293        physicsVector = CreatePhysicsVector(E,Mo_3,factor);
     1294     }
     1295     else if( ionZ == 4 ) {
     1296        G4double Mo_4[31]={0.7836,0.8807,1.052,1.196,1.312,1.406,1.48,1.542,1.592,1.741,1.796,1.812,1.81,1.782,1.739,1.689,1.638,1.586,1.534,1.485,1.272,1.112,0.9894,0.8922,0.7484,0.6472,0.5719,0.5138,0.4674,0.4295,0.3979};
     1297        physicsVector = CreatePhysicsVector(E,Mo_4,factor);
     1298     }
     1299     else if( ionZ == 5 ) {
     1300        G4double Mo_5[31]={0.8829,0.9968,1.205,1.389,1.547,1.68,1.791,1.883,1.962,2.215,2.331,2.385,2.408,2.408,2.379,2.337,2.287,2.232,2.176,2.12,1.862,1.654,1.489,1.354,1.148,0.9989,0.8861,0.7979,0.7269,0.6686,0.6199};
     1301        physicsVector = CreatePhysicsVector(E,Mo_5,factor);
     1302     }
     1303     else if( ionZ == 6 ) {
     1304        G4double Mo_6[31]={0.9635,1.089,1.326,1.541,1.735,1.905,2.05,2.175,2.283,2.649,2.84,2.942,2.997,3.038,3.034,3.006,2.964,2.913,2.857,2.798,2.509,2.262,2.056,1.885,1.616,1.417,1.262,1.14,1.041,0.9587,0.8896};
     1305        physicsVector = CreatePhysicsVector(E,Mo_6,factor);
     1306     }
     1307     else if( ionZ == 7 ) {
     1308        G4double Mo_7[31]={1.029,1.164,1.421,1.661,1.882,2.083,2.261,2.418,2.554,3.039,3.313,3.471,3.566,3.659,3.687,3.681,3.653,3.611,3.56,3.504,3.199,2.92,2.681,2.476,2.147,1.895,1.697,1.538,1.408,1.299,1.207};
     1309        physicsVector = CreatePhysicsVector(E,Mo_7,factor);
     1310     }
     1311     else if( ionZ == 8 ) {
     1312        G4double Mo_8[31]={1.092,1.232,1.505,1.764,2.007,2.234,2.441,2.627,2.792,3.394,3.757,3.978,4.118,4.273,4.34,4.361,4.352,4.323,4.281,4.23,3.922,3.619,3.351,3.116,2.73,2.428,2.186,1.988,1.825,1.687,1.57};
     1313        physicsVector = CreatePhysicsVector(E,Mo_8,factor);
     1314     }
     1315     else if( ionZ == 9 ) {
     1316        G4double Mo_9[31]={1.15,1.296,1.581,1.854,2.115,2.361,2.592,2.804,2.995,3.712,4.166,4.455,4.645,4.867,4.979,5.03,5.043,5.031,5,4.957,4.656,4.337,4.045,3.785,3.348,2.999,2.714,2.479,2.283,2.115,1.972};
     1317        physicsVector = CreatePhysicsVector(E,Mo_9,factor);
     1318     }
     1319     else if( ionZ == 10 ) {
     1320        G4double Mo_10[31]={1.205,1.357,1.651,1.937,2.211,2.473,2.722,2.956,3.171,3.998,4.543,4.904,5.148,5.446,5.606,5.692,5.731,5.738,5.722,5.689,5.406,5.076,4.765,4.483,4,3.606,3.281,3.01,2.78,2.583,2.413};
     1321        physicsVector = CreatePhysicsVector(E,Mo_10,factor);
     1322     }
     1323     else if( ionZ == 11 ) {
     1324        G4double Mo_11[31]={1.256,1.414,1.717,2.012,2.297,2.572,2.836,3.088,3.324,4.256,4.89,5.325,5.628,6.008,6.224,6.35,6.418,6.448,6.449,6.429,6.173,5.839,5.514,5.213,4.688,4.253,3.888,3.58,3.317,3.09,2.892};
     1325        physicsVector = CreatePhysicsVector(E,Mo_11,factor);
     1326     }
     1327     else if( ionZ == 12 ) {
     1328        G4double Mo_12[31]={1.308,1.471,1.783,2.086,2.381,2.666,2.942,3.208,3.462,4.49,5.211,5.721,6.083,6.547,6.822,6.991,7.092,7.147,7.167,7.163,6.939,6.606,6.269,5.952,5.39,4.917,4.517,4.175,3.88,3.624,3.4};
     1329        physicsVector = CreatePhysicsVector(E,Mo_12,factor);
     1330     }
     1331     else if( ionZ == 13 ) {
     1332        G4double Mo_13[31]={1.356,1.526,1.847,2.157,2.459,2.753,3.039,3.316,3.584,4.702,5.507,6.092,6.515,7.068,7.405,7.62,7.757,7.84,7.883,7.896,7.716,7.389,7.044,6.714,6.121,5.612,5.177,4.802,4.476,4.191,3.94};
     1333        physicsVector = CreatePhysicsVector(E,Mo_13,factor);
     1334     }
     1335     else if( ionZ == 14 ) {
     1336        G4double Mo_14[31]={1.403,1.58,1.91,2.226,2.534,2.835,3.129,3.415,3.694,4.892,5.777,6.436,6.922,7.567,7.967,8.231,8.405,8.517,8.585,8.618,8.491,8.174,7.825,7.485,6.863,6.323,5.855,5.449,5.094,4.782,4.505};
     1337        physicsVector = CreatePhysicsVector(E,Mo_14,factor);
     1338     }
     1339     else if( ionZ == 15 ) {
     1340        G4double Mo_15[31]={1.446,1.628,1.967,2.289,2.603,2.91,3.21,3.503,3.791,5.059,6.022,6.754,7.304,8.046,8.517,8.834,9.049,9.195,9.29,9.346,9.285,8.989,8.642,8.295,7.649,7.079,6.581,6.143,5.758,5.417,5.114};
     1341        physicsVector = CreatePhysicsVector(E,Mo_15,factor);
     1342     }
     1343     else if( ionZ == 16 ) {
     1344        G4double Mo_16[31]={1.49,1.677,2.028,2.357,2.676,2.988,3.294,3.594,3.889,5.22,6.255,7.057,7.672,8.515,9.059,9.43,9.689,9.87,9.993,10.07,10.08,9.812,9.47,9.119,8.453,7.857,7.33,6.863,6.45,6.081,5.751};
     1345        physicsVector = CreatePhysicsVector(E,Mo_16,factor);
     1346     }
     1347     else if( ionZ == 17 ) {
     1348        G4double Mo_17[31]={1.533,1.726,2.086,2.422,2.746,3.063,3.374,3.679,3.979,5.362,6.465,7.335,8.013,8.957,9.575,10,10.31,10.53,10.68,10.78,10.87,10.63,10.3,9.946,9.264,8.645,8.091,7.598,7.157,6.763,6.408};
     1349        physicsVector = CreatePhysicsVector(E,Mo_17,factor);
     1350     }
     1351     else if( ionZ == 18 ) {
     1352        G4double Mo_18[31]={1.583,1.781,2.153,2.497,2.827,3.149,3.465,3.775,4.08,5.508,6.675,7.61,8.351,9.397,10.09,10.58,10.92,11.18,11.36,11.49,11.66,11.44,11.12,10.76,10.07,9.424,8.846,8.327,7.862,7.443,7.065};
     1353        physicsVector = CreatePhysicsVector(E,Mo_18,factor);
     1354     }
     1355}
     1356
     1357  else if( matName == namesMat[17] ) {
     1358     if( ionZ == 3 ) {
     1359        G4double Ag_3[31]={0.616,0.695,0.8256,0.9274,1.006,1.064,1.108,1.141,1.165,1.222,1.224,1.207,1.184,1.131,1.079,1.031,0.9856,0.9444,0.9066,0.8719,0.7337,0.635,0.5609,0.5032,0.4193,0.3612,0.3185,0.2857,0.2596,0.2384,0.2208};
     1360        physicsVector = CreatePhysicsVector(E,Ag_3,factor);
     1361     }
     1362     else if( ionZ == 4 ) {
     1363        G4double Ag_4[31]={0.7283,0.8324,1.015,1.166,1.292,1.394,1.475,1.54,1.591,1.734,1.781,1.786,1.772,1.726,1.672,1.617,1.563,1.512,1.463,1.418,1.226,1.079,0.9641,0.8719,0.7337,0.6354,0.5619,0.505,0.4595,0.4223,0.3913};
     1364        physicsVector = CreatePhysicsVector(E,Ag_4,factor);
     1365     }
     1366     else if( ionZ == 5 ) {
     1367        G4double Ag_5[31]={0.8167,0.9362,1.158,1.352,1.52,1.664,1.785,1.886,1.969,2.219,2.326,2.367,2.374,2.348,2.3,2.246,2.19,2.133,2.079,2.026,1.792,1.602,1.448,1.32,1.123,0.9791,0.8694,0.7834,0.714,0.657,0.6092};
     1368        physicsVector = CreatePhysicsVector(E,Ag_5,factor);
     1369     }
     1370     else if( ionZ == 6 ) {
     1371        G4double Ag_6[31]={0.8963,1.023,1.271,1.499,1.702,1.884,2.043,2.18,2.297,2.669,2.85,2.937,2.974,2.98,2.948,2.901,2.847,2.79,2.733,2.676,2.413,2.188,1.998,1.836,1.579,1.387,1.237,1.118,1.021,0.9412,0.8736};
     1372        physicsVector = CreatePhysicsVector(E,Ag_6,factor);
     1373     }
     1374     else if( ionZ == 7 ) {
     1375        G4double Ag_7[31]={0.9709,1.099,1.362,1.615,1.847,2.06,2.252,2.424,2.574,3.076,3.34,3.483,3.558,3.608,3.6,3.567,3.521,3.468,3.412,3.354,3.074,2.822,2.601,2.409,2.095,1.853,1.661,1.507,1.38,1.274,1.184};
     1376        physicsVector = CreatePhysicsVector(E,Ag_7,factor);
     1377     }
     1378     else if( ionZ == 8 ) {
     1379        G4double Ag_8[31]={1.047,1.177,1.447,1.716,1.972,2.21,2.431,2.632,2.814,3.45,3.804,4.01,4.129,4.233,4.256,4.241,4.207,4.161,4.109,4.054,3.767,3.495,3.248,3.029,2.661,2.37,2.136,1.945,1.786,1.653,1.538};
     1380        physicsVector = CreatePhysicsVector(E,Ag_8,factor);
     1381     }
     1382     else if( ionZ == 9 ) {
     1383        G4double Ag_9[31]={1.12,1.254,1.527,1.807,2.08,2.339,2.582,2.809,3.019,3.786,4.234,4.508,4.676,4.843,4.902,4.91,4.891,4.855,4.809,4.758,4.472,4.186,3.92,3.677,3.262,2.926,2.651,2.424,2.233,2.071,1.931};
     1384        physicsVector = CreatePhysicsVector(E,Ag_9,factor);
     1385     }
     1386     else if( ionZ == 10 ) {
     1387        G4double Ag_10[31]={1.189,1.331,1.607,1.893,2.178,2.453,2.715,2.963,3.196,4.09,4.633,4.979,5.202,5.44,5.541,5.576,5.574,5.551,5.514,5.468,5.192,4.898,4.616,4.354,3.896,3.517,3.204,2.941,2.718,2.527,2.362};
     1388        physicsVector = CreatePhysicsVector(E,Ag_10,factor);
     1389     }
     1390     else if( ionZ == 11 ) {
     1391        G4double Ag_11[31]={1.251,1.402,1.685,1.974,2.267,2.555,2.832,3.098,3.35,4.362,5.003,5.424,5.705,6.023,6.173,6.24,6.26,6.252,6.226,6.189,5.928,5.632,5.338,5.06,4.563,4.145,3.794,3.496,3.241,3.021,2.829};
     1392        physicsVector = CreatePhysicsVector(E,Ag_11,factor);
     1393     }
     1394     else if( ionZ == 12 ) {
     1395        G4double Ag_12[31]={1.311,1.472,1.766,2.058,2.356,2.653,2.942,3.221,3.49,4.609,5.348,5.844,6.185,6.586,6.788,6.892,6.937,6.947,6.934,6.906,6.666,6.37,6.068,5.776,5.246,4.792,4.406,4.075,3.789,3.541,3.324};
     1396        physicsVector = CreatePhysicsVector(E,Ag_12,factor);
     1397     }
     1398     else if( ionZ == 13 ) {
     1399        G4double Ag_13[31]={1.366,1.537,1.845,2.14,2.441,2.744,3.043,3.334,3.615,4.83,5.666,6.24,6.644,7.133,7.392,7.535,7.608,7.638,7.641,7.624,7.413,7.124,6.817,6.515,5.956,5.468,5.048,4.685,4.37,4.094,3.851};
     1400        physicsVector = CreatePhysicsVector(E,Ag_13,factor);
     1401     }
     1402     else if( ionZ == 14 ) {
     1403        G4double Ag_14[31]={1.419,1.597,1.922,2.221,2.525,2.832,3.138,3.438,3.73,5.028,5.958,6.61,7.077,7.659,7.978,8.163,8.266,8.319,8.338,8.336,8.16,7.88,7.572,7.262,6.678,6.16,5.709,5.316,4.972,4.67,4.402};
     1404        physicsVector = CreatePhysicsVector(E,Ag_14,factor);
     1405     }
     1406     else if( ionZ == 15 ) {
     1407        G4double Ag_15[31]={1.465,1.65,1.99,2.298,2.603,2.912,3.223,3.53,3.831,5.199,6.222,6.951,7.483,8.164,8.55,8.782,8.92,8.999,9.039,9.052,8.924,8.662,8.357,8.043,7.439,6.894,6.413,5.99,5.617,5.287,4.993};
     1408        physicsVector = CreatePhysicsVector(E,Ag_15,factor);
     1409     }
     1410     else if( ionZ == 16 ) {
     1411        G4double Ag_16[31]={1.511,1.703,2.059,2.377,2.685,2.997,3.312,3.625,3.933,5.361,6.471,7.277,7.875,8.659,9.115,9.397,9.572,9.678,9.74,9.771,9.692,9.452,9.154,8.839,8.218,7.648,7.14,6.689,6.289,5.932,5.613};
     1412        physicsVector = CreatePhysicsVector(E,Ag_16,factor);
     1413     }
     1414     else if( ionZ == 17 ) {
     1415        G4double Ag_17[31]={1.555,1.753,2.123,2.454,2.767,3.08,3.397,3.714,4.028,5.505,6.696,7.578,8.242,9.129,9.659,9.994,10.21,10.34,10.43,10.48,10.45,10.24,9.951,9.637,9.004,8.413,7.88,7.403,6.976,6.595,6.251};
     1416        physicsVector = CreatePhysicsVector(E,Ag_17,factor);
     1417     }
     1418     else if( ionZ == 18 ) {
     1419        G4double Ag_18[31]={1.605,1.81,2.193,2.539,2.858,3.175,3.494,3.814,4.133,5.653,6.919,7.875,8.603,9.596,10.2,10.59,10.84,11.01,11.12,11.18,11.21,11.02,10.74,10.43,9.784,9.172,8.615,8.113,7.663,7.258,6.892};
     1420        physicsVector = CreatePhysicsVector(E,Ag_18,factor);
     1421     }
     1422}
     1423
     1424  else if( matName == namesMat[18] ) {
     1425     if( ionZ == 3 ) {
     1426        G4double Sn_3[31]={0.5096,0.5567,0.632,0.6872,0.728,0.7589,0.7833,0.8031,0.8194,0.8713,0.8964,0.9074,0.9098,0.8992,0.8778,0.8518,0.8241,0.7964,0.7696,0.744,0.6366,0.5568,0.4957,0.4473,0.3757,0.3253,0.2879,0.259,0.2361,0.2174,0.2018};
     1427        physicsVector = CreatePhysicsVector(E,Sn_3,factor);
     1428     }
     1429     else if( ionZ == 4 ) {
     1430        G4double Sn_4[31]={0.6712,0.7388,0.8518,0.9402,1.009,1.063,1.107,1.143,1.173,1.273,1.328,1.36,1.376,1.382,1.368,1.343,1.313,1.281,1.247,1.214,1.066,0.9472,0.8523,0.7751,0.6573,0.5722,0.508,0.4579,0.4179,0.3851,0.3577};
     1431        physicsVector = CreatePhysicsVector(E,Sn_4,factor);
     1432     }
     1433     else if( ionZ == 5 ) {
     1434        G4double Sn_5[31]={0.8182,0.904,1.052,1.173,1.271,1.351,1.416,1.471,1.517,1.674,1.766,1.824,1.86,1.892,1.893,1.876,1.848,1.815,1.779,1.742,1.562,1.409,1.282,1.175,1.007,0.8819,0.7861,0.7105,0.6494,0.5991,0.5569};
     1435        physicsVector = CreatePhysicsVector(E,Sn_5,factor);
     1436     }
     1437     else if( ionZ == 6 ) {
     1438        G4double Sn_6[31]={0.9537,1.056,1.235,1.386,1.513,1.619,1.708,1.782,1.846,2.067,2.201,2.289,2.349,2.416,2.438,2.433,2.413,2.383,2.348,2.309,2.109,1.928,1.771,1.635,1.417,1.25,1.119,1.015,0.9293,0.8585,0.7988};
     1439        physicsVector = CreatePhysicsVector(E,Sn_6,factor);
     1440     }
     1441     else if( ionZ == 7 ) {
     1442        G4double Sn_7[31]={1.078,1.194,1.401,1.579,1.733,1.864,1.976,2.072,2.155,2.445,2.624,2.747,2.835,2.941,2.99,3.004,2.995,2.973,2.941,2.905,2.696,2.492,2.31,2.148,1.881,1.671,1.504,1.368,1.256,1.162,1.083};
     1443        physicsVector = CreatePhysicsVector(E,Sn_7,factor);
     1444     }
     1445     else if( ionZ == 8 ) {
     1446        G4double Sn_8[31]={1.198,1.327,1.559,1.762,1.94,2.096,2.231,2.348,2.45,2.813,3.042,3.202,3.319,3.47,3.55,3.585,3.592,3.579,3.555,3.522,3.312,3.093,2.889,2.705,2.392,2.14,1.935,1.767,1.627,1.508,1.407};
     1447        physicsVector = CreatePhysicsVector(E,Sn_8,factor);
     1448     }
     1449     else if( ionZ == 9 ) {
     1450        G4double Sn_9[31]={1.311,1.452,1.705,1.93,2.13,2.308,2.465,2.603,2.725,3.164,3.444,3.643,3.791,3.99,4.104,4.164,4.188,4.187,4.171,4.145,3.942,3.713,3.492,3.289,2.935,2.644,2.403,2.203,2.035,1.891,1.768};
     1451        physicsVector = CreatePhysicsVector(E,Sn_9,factor);
     1452     }
     1453     else if( ionZ == 10 ) {
     1454        G4double Sn_10[31]={1.42,1.571,1.845,2.089,2.309,2.507,2.684,2.842,2.983,3.499,3.833,4.073,4.254,4.504,4.655,4.742,4.786,4.8,4.795,4.776,4.587,4.353,4.12,3.9,3.509,3.181,2.906,2.675,2.478,2.309,2.162};
     1455        physicsVector = CreatePhysicsVector(E,Sn_10,factor);
     1456     }
     1457     else if( ionZ == 11 ) {
     1458        G4double Sn_11[31]={1.52,1.681,1.974,2.235,2.473,2.689,2.885,3.062,3.222,3.816,4.206,4.488,4.704,5.008,5.199,5.317,5.384,5.417,5.424,5.415,5.248,5.013,4.772,4.539,4.116,3.753,3.445,3.182,2.957,2.762,2.592};
     1459        physicsVector = CreatePhysicsVector(E,Sn_11,factor);
     1460     }
     1461     else if( ionZ == 12 ) {
     1462        G4double Sn_12[31]={1.612,1.782,2.091,2.368,2.621,2.853,3.065,3.26,3.437,4.108,4.554,4.879,5.13,5.488,5.722,5.874,5.967,6.019,6.042,6.045,5.906,5.675,5.429,5.186,4.735,4.342,4.004,3.712,3.459,3.239,3.047};
     1463        physicsVector = CreatePhysicsVector(E,Sn_12,factor);
     1464     }
     1465     else if( ionZ == 13 ) {
     1466        G4double Sn_13[31]={1.705,1.883,2.208,2.5,2.767,3.014,3.242,3.453,3.646,4.392,4.896,5.266,5.552,5.968,6.246,6.432,6.552,6.625,6.665,6.681,6.576,6.354,6.105,5.855,5.38,4.959,4.591,4.271,3.992,3.747,3.531};
     1467        physicsVector = CreatePhysicsVector(E,Sn_13,factor);
     1468     }
     1469     else if( ionZ == 14 ) {
     1470        G4double Sn_14[31]={1.793,1.98,2.32,2.626,2.906,3.166,3.408,3.633,3.842,4.66,5.222,5.637,5.961,6.434,6.758,6.979,7.128,7.224,7.282,7.312,7.246,7.036,6.788,6.532,6.038,5.591,5.197,4.85,4.545,4.276,4.038};
     1471        physicsVector = CreatePhysicsVector(E,Sn_14,factor);
     1472     }
     1473     else if( ionZ == 15 ) {
     1474        G4double Sn_15[31]={1.874,2.07,2.424,2.742,3.035,3.307,3.561,3.799,4.021,4.909,5.529,5.991,6.353,6.889,7.26,7.521,7.702,7.823,7.902,7.949,7.931,7.742,7.499,7.241,6.732,6.262,5.841,5.468,5.138,4.844,4.583};
     1475        physicsVector = CreatePhysicsVector(E,Sn_15,factor);
     1476     }
     1477     else if( ionZ == 16 ) {
     1478        G4double Sn_16[31]={1.954,2.158,2.527,2.858,3.163,3.446,3.712,3.962,4.197,5.152,5.83,6.338,6.74,7.339,7.761,8.062,8.275,8.423,8.524,8.588,8.624,8.456,8.222,7.965,7.443,6.952,6.508,6.11,5.755,5.438,5.154};
     1479        physicsVector = CreatePhysicsVector(E,Sn_16,factor);
     1480     }
     1481     else if( ionZ == 17 ) {
     1482        G4double Sn_17[31]={2.03,2.242,2.625,2.969,3.285,3.579,3.855,4.116,4.363,5.381,6.116,6.671,7.112,7.776,8.248,8.59,8.837,9.013,9.136,9.219,9.311,9.168,8.945,8.69,8.161,7.653,7.187,6.767,6.389,6.049,5.743};
     1483        physicsVector = CreatePhysicsVector(E,Sn_17,factor);
     1484     }
     1485     else if( ionZ == 18 ) {
     1486        G4double Sn_18[31]={2.114,2.334,2.732,3.089,3.417,3.722,4.009,4.28,4.538,5.618,6.409,7.012,7.493,8.22,8.742,9.124,9.404,9.607,9.752,9.853,9.998,9.878,9.664,9.411,8.874,8.349,7.863,7.421,7.022,6.661,6.335};
     1487        physicsVector = CreatePhysicsVector(E,Sn_18,factor);
     1488     }
     1489}
     1490
     1491  else if( matName == namesMat[19] ) {
     1492     if( ionZ == 3 ) {
     1493        G4double Xe_3[31]={0.5617,0.6027,0.6687,0.7189,0.7574,0.7872,0.8104,0.8285,0.8426,0.8788,0.8879,0.8864,0.88,0.8595,0.8342,0.807,0.7794,0.7523,0.7263,0.7016,0.5984,0.5227,0.4653,0.4202,0.3538,0.3069,0.272,0.245,0.2235,0.2058,0.1912};
     1494        physicsVector = CreatePhysicsVector(E,Xe_3,factor);
     1495     }
     1496     else if( ionZ == 4 ) {
     1497        G4double Xe_4[31]={0.7468,0.8068,0.9059,0.9845,1.048,1.099,1.14,1.174,1.202,1.285,1.32,1.334,1.337,1.327,1.305,1.277,1.246,1.213,1.18,1.147,1.003,0.8898,0.8004,0.7282,0.6187,0.5396,0.4798,0.433,0.3954,0.3646,0.3388};
     1498        physicsVector = CreatePhysicsVector(E,Xe_4,factor);
     1499     }
     1500     else if( ionZ == 5 ) {
     1501        G4double Xe_5[31]={0.9138,0.9925,1.125,1.233,1.321,1.395,1.457,1.509,1.552,1.691,1.759,1.795,1.813,1.822,1.81,1.787,1.757,1.722,1.686,1.649,1.473,1.325,1.204,1.104,0.9474,0.8314,0.7421,0.6715,0.6143,0.567,0.5273};
     1502        physicsVector = CreatePhysicsVector(E,Xe_5,factor);
     1503     }
     1504     else if( ionZ == 6 ) {
     1505        G4double Xe_6[31]={1.065,1.162,1.327,1.463,1.578,1.675,1.758,1.829,1.889,2.09,2.197,2.259,2.297,2.332,2.336,2.322,2.297,2.265,2.229,2.19,1.991,1.814,1.664,1.537,1.333,1.178,1.056,0.9584,0.8786,0.8122,0.7561};
     1506        physicsVector = CreatePhysicsVector(E,Xe_6,factor);
     1507     }
     1508     else if( ionZ == 7 ) {
     1509        G4double Xe_7[31]={1.201,1.315,1.51,1.675,1.814,1.935,2.039,2.129,2.207,2.475,2.625,2.717,2.778,2.845,2.871,2.872,2.856,2.829,2.796,2.758,2.547,2.348,2.172,2.02,1.769,1.574,1.418,1.292,1.187,1.099,1.025};
     1510        physicsVector = CreatePhysicsVector(E,Xe_7,factor);
     1511     }
     1512     else if( ionZ == 8 ) {
     1513        G4double Xe_8[31]={1.329,1.459,1.685,1.875,2.04,2.183,2.307,2.417,2.513,2.851,3.048,3.174,3.26,3.364,3.414,3.432,3.429,3.411,3.382,3.347,3.133,2.916,2.719,2.544,2.25,2.015,1.825,1.668,1.537,1.426,1.331};
     1514        physicsVector = CreatePhysicsVector(E,Xe_8,factor);
     1515     }
     1516     else if( ionZ == 9 ) {
     1517        G4double Xe_9[31]={1.448,1.593,1.845,2.061,2.249,2.413,2.559,2.687,2.801,3.212,3.458,3.619,3.732,3.875,3.953,3.991,4.002,3.994,3.973,3.943,3.733,3.504,3.29,3.095,2.762,2.49,2.266,2.079,1.922,1.787,1.672};
     1518        physicsVector = CreatePhysicsVector(E,Xe_9,factor);
     1519     }
     1520     else if( ionZ == 10 ) {
     1521        G4double Xe_10[31]={1.56,1.718,1.997,2.236,2.446,2.631,2.796,2.944,3.075,3.558,3.856,4.055,4.197,4.382,4.49,4.55,4.578,4.583,4.571,4.548,4.348,4.112,3.883,3.673,3.304,2.997,2.741,2.524,2.34,2.182,2.045};
     1522        physicsVector = CreatePhysicsVector(E,Xe_10,factor);
     1523     }
     1524     else if( ionZ == 11 ) {
     1525        G4double Xe_11[31]={1.664,1.834,2.136,2.398,2.629,2.834,3.018,3.183,3.332,3.888,4.239,4.478,4.65,4.881,5.022,5.108,5.155,5.175,5.175,5.16,4.979,4.74,4.501,4.276,3.876,3.536,3.249,3.003,2.792,2.609,2.45};
     1526        physicsVector = CreatePhysicsVector(E,Xe_11,factor);
     1527     }
     1528     else if( ionZ == 12 ) {
     1529        G4double Xe_12[31]={1.759,1.94,2.263,2.545,2.795,3.019,3.22,3.402,3.567,4.195,4.6,4.879,5.082,5.359,5.535,5.649,5.718,5.755,5.768,5.764,5.607,5.37,5.125,4.889,4.461,4.093,3.776,3.503,3.267,3.061,2.88};
     1530        physicsVector = CreatePhysicsVector(E,Xe_12,factor);
     1531     }
     1532     else if( ionZ == 13 ) {
     1533        G4double Xe_13[31]={1.854,2.046,2.389,2.69,2.958,3.199,3.418,3.616,3.797,4.495,4.955,5.276,5.512,5.838,6.05,6.192,6.284,6.339,6.367,6.375,6.248,6.017,5.767,5.522,5.071,4.675,4.331,4.031,3.77,3.54,3.337};
     1534        physicsVector = CreatePhysicsVector(E,Xe_13,factor);
     1535     }
     1536     else if( ionZ == 14 ) {
     1537        G4double Xe_14[31]={1.946,2.147,2.508,2.828,3.113,3.371,3.605,3.819,4.015,4.781,5.295,5.659,5.929,6.305,6.555,6.726,6.842,6.916,6.959,6.979,6.889,6.667,6.416,6.165,5.693,5.273,4.903,4.578,4.293,4.04,3.817};
     1538        physicsVector = CreatePhysicsVector(E,Xe_14,factor);
     1539     }
     1540     else if( ionZ == 15 ) {
     1541        G4double Xe_15[31]={2.032,2.241,2.619,2.955,3.257,3.53,3.779,4.008,4.218,5.049,5.619,6.026,6.331,6.762,7.052,7.256,7.398,7.495,7.557,7.592,7.545,7.339,7.091,6.837,6.348,5.905,5.511,5.161,4.852,4.577,4.331};
     1542        physicsVector = CreatePhysicsVector(E,Xe_15,factor);
     1543     }
     1544     else if( ionZ == 16 ) {
     1545        G4double Xe_16[31]={2.116,2.335,2.729,3.08,3.397,3.686,3.949,4.192,4.416,5.311,5.935,6.386,6.728,7.214,7.547,7.784,7.954,8.073,8.154,8.206,8.206,8.02,7.778,7.522,7.021,6.557,6.14,5.767,5.435,5.137,4.87};
     1546        physicsVector = CreatePhysicsVector(E,Xe_16,factor);
     1547     }
     1548     else if( ionZ == 17 ) {
     1549        G4double Xe_17[31]={2.199,2.425,2.835,3.2,3.532,3.834,4.111,4.367,4.604,5.561,6.238,6.733,7.111,7.655,8.03,8.302,8.5,8.643,8.744,8.812,8.864,8.699,8.465,8.211,7.7,7.22,6.782,6.387,6.033,5.714,5.427};
     1550        physicsVector = CreatePhysicsVector(E,Xe_17,factor);
     1551     }
     1552     else if( ionZ == 18 ) {
     1553        G4double Xe_18[31]={2.288,2.523,2.948,3.329,3.675,3.991,4.282,4.551,4.801,5.818,6.548,7.088,7.503,8.104,8.522,8.826,9.052,9.217,9.337,9.421,9.521,9.377,9.15,8.896,8.375,7.879,7.422,7.007,6.632,6.293,5.987};
     1554        physicsVector = CreatePhysicsVector(E,Xe_18,factor);
     1555     }
     1556}
     1557
     1558  else if( matName == namesMat[20] ) {
     1559     if( ionZ == 3 ) {
     1560        G4double W_3[31]={0.2439,0.2673,0.3038,0.3307,0.3513,0.368,0.3819,0.3938,0.4041,0.4399,0.4601,0.4714,0.4774,0.4805,0.4778,0.4725,0.4657,0.4583,0.4506,0.4428,0.4054,0.3722,0.3432,0.3182,0.2778,0.2471,0.2231,0.2039,0.1882,0.1751,0.164};
     1561        physicsVector = CreatePhysicsVector(E,W_3,factor);
     1562     }
     1563     else if( ionZ == 4 ) {
     1564        G4double W_4[31]={0.3226,0.3566,0.4129,0.4564,0.4909,0.5191,0.543,0.5637,0.5818,0.648,0.6891,0.7156,0.7327,0.7499,0.7556,0.7553,0.7512,0.7447,0.7368,0.7281,0.6801,0.6322,0.5883,0.5491,0.4837,0.4326,0.392,0.3592,0.332,0.3093,0.2899};
     1565        physicsVector = CreatePhysicsVector(E,W_4,factor);
     1566     }
     1567     else if( ionZ == 5 ) {
     1568        G4double W_5[31]={0.3961,0.4392,0.514,0.5747,0.6241,0.6653,0.7005,0.7311,0.7582,0.8591,0.925,0.9703,1.002,1.04,1.059,1.067,1.069,1.066,1.06,1.052,1,0.9409,0.8833,0.8299,0.7381,0.6641,0.6042,0.5551,0.5141,0.4795,0.4499};
     1569        physicsVector = CreatePhysicsVector(E,W_5,factor);
     1570     }
     1571     else if( ionZ == 6 ) {
     1572        G4double W_6[31]={0.466,0.5168,0.608,0.6852,0.7498,0.8046,0.8517,0.893,0.9298,1.069,1.162,1.229,1.278,1.342,1.379,1.399,1.409,1.412,1.41,1.405,1.355,1.289,1.22,1.154,1.036,0.9378,0.8569,0.7896,0.7329,0.6847,0.6431};
     1573        physicsVector = CreatePhysicsVector(E,W_6,factor);
     1574     }
     1575     else if( ionZ == 7 ) {
     1576        G4double W_7[31]={0.5322,0.5896,0.695,0.7871,0.8664,0.9347,0.9941,1.047,1.093,1.273,1.396,1.487,1.556,1.65,1.708,1.743,1.764,1.775,1.779,1.779,1.738,1.669,1.592,1.514,1.372,1.25,1.147,1.061,0.9871,0.9237,0.8687};
     1577        physicsVector = CreatePhysicsVector(E,W_7,factor);
     1578     }
     1579     else if( ionZ == 8 ) {
     1580        G4double W_8[31]={0.6002,0.664,0.7818,0.8875,0.9807,1.062,1.134,1.198,1.255,1.477,1.632,1.748,1.837,1.964,2.046,2.099,2.132,2.153,2.165,2.17,2.144,2.075,1.993,1.906,1.742,1.597,1.473,1.366,1.274,1.195,1.125};
     1581        physicsVector = CreatePhysicsVector(E,W_8,factor);
     1582     }
     1583     else if( ionZ == 9 ) {
     1584        G4double W_9[31]={0.6666,0.7365,0.8655,0.9831,1.089,1.183,1.267,1.342,1.41,1.674,1.862,2.004,2.116,2.277,2.384,2.456,2.504,2.536,2.557,2.569,2.561,2.497,2.412,2.319,2.136,1.97,1.825,1.699,1.59,1.494,1.41};
     1585        physicsVector = CreatePhysicsVector(E,W_9,factor);
     1586     }
     1587     else if( ionZ == 10 ) {
     1588        G4double W_10[31]={0.7327,0.8086,0.9483,1.076,1.194,1.3,1.395,1.481,1.559,1.867,2.088,2.258,2.392,2.59,2.724,2.817,2.881,2.926,2.956,2.977,2.992,2.936,2.85,2.753,2.554,2.369,2.205,2.06,1.932,1.82,1.721};
     1589        physicsVector = CreatePhysicsVector(E,W_10,factor);
     1590     }
     1591     else if( ionZ == 11 ) {
     1592        G4double W_11[31]={0.7964,0.8785,1.028,1.166,1.294,1.411,1.517,1.614,1.702,2.053,2.308,2.506,2.663,2.898,3.062,3.178,3.261,3.32,3.362,3.392,3.435,3.39,3.307,3.207,2.995,2.793,2.61,2.446,2.301,2.173,2.058};
     1593        physicsVector = CreatePhysicsVector(E,W_11,factor);
     1594     }
     1595     else if( ionZ == 12 ) {
     1596        G4double W_12[31]={0.8567,0.9447,1.104,1.251,1.387,1.514,1.63,1.737,1.835,2.228,2.517,2.742,2.923,3.195,3.389,3.531,3.634,3.709,3.764,3.805,3.879,3.848,3.769,3.669,3.448,3.231,3.031,2.851,2.689,2.545,2.415};
     1597        physicsVector = CreatePhysicsVector(E,W_12,factor);
     1598     }
     1599     else if( ionZ == 13 ) {
     1600        G4double W_13[31]={0.9191,1.013,1.183,1.338,1.483,1.618,1.744,1.86,1.968,2.402,2.725,2.979,3.184,3.496,3.721,3.888,4.012,4.103,4.172,4.224,4.333,4.318,4.247,4.148,3.92,3.689,3.474,3.277,3.1,2.94,2.795};
     1601        physicsVector = CreatePhysicsVector(E,W_13,factor);
     1602     }
     1603     else if( ionZ == 14 ) {
     1604        G4double W_14[31]={0.9809,1.081,1.262,1.425,1.577,1.721,1.856,1.981,2.097,2.572,2.928,3.21,3.439,3.791,4.049,4.242,4.386,4.496,4.578,4.642,4.79,4.794,4.732,4.636,4.403,4.161,3.931,3.719,3.527,3.352,3.193};
     1605        physicsVector = CreatePhysicsVector(E,W_14,factor);
     1606     }
     1607     else if( ionZ == 15 ) {
     1608        G4double W_15[31]={1.039,1.146,1.336,1.508,1.667,1.818,1.96,2.094,2.218,2.732,3.121,3.431,3.686,4.079,4.371,4.592,4.761,4.889,4.988,5.065,5.257,5.285,5.234,5.144,4.91,4.658,4.415,4.189,3.981,3.791,3.618};
     1609        physicsVector = CreatePhysicsVector(E,W_15,factor);
     1610     }
     1611     else if( ionZ == 16 ) {
     1612        G4double W_16[31]={1.098,1.211,1.412,1.592,1.759,1.917,2.067,2.208,2.34,2.893,3.314,3.653,3.932,4.368,4.695,4.945,5.137,5.286,5.401,5.492,5.731,5.783,5.747,5.663,5.43,5.171,4.916,4.676,4.454,4.25,4.062};
     1613        physicsVector = CreatePhysicsVector(E,W_16,factor);
     1614     }
     1615     else if( ionZ == 17 ) {
     1616        G4double W_17[31]={1.154,1.273,1.486,1.674,1.848,2.013,2.169,2.317,2.457,3.046,3.499,3.865,4.169,4.649,5.01,5.29,5.507,5.676,5.809,5.915,6.202,6.282,6.262,6.186,5.957,5.692,5.428,5.175,4.94,4.722,4.521};
     1617        physicsVector = CreatePhysicsVector(E,W_17,factor);
     1618     }
     1619     else if( ionZ == 18 ) {
     1620        G4double W_18[31]={1.219,1.344,1.569,1.767,1.949,2.12,2.283,2.438,2.586,3.211,3.696,4.09,4.419,4.94,5.336,5.643,5.884,6.073,6.223,6.343,6.677,6.782,6.776,6.709,6.484,6.215,5.94,5.677,5.429,5.199,4.985};
     1621        physicsVector = CreatePhysicsVector(E,W_18,factor);
     1622     }
     1623}
     1624
     1625  else if( matName == namesMat[21] ) {
     1626     if( ionZ == 3 ) {
     1627        G4double Pt_3[31]={0.2992,0.3235,0.3633,0.3948,0.4203,0.4415,0.4596,0.4752,0.4888,0.5363,0.5617,0.5743,0.5791,0.5764,0.5666,0.5541,0.5405,0.527,0.5137,0.5011,0.446,0.4022,0.3663,0.3365,0.2897,0.2551,0.2285,0.2074,0.1904,0.1763,0.1644};
     1628        physicsVector = CreatePhysicsVector(E,Pt_3,factor);
     1629     }
     1630     else if( ionZ == 4 ) {
     1631        G4double Pt_4[31]={0.4136,0.4491,0.5084,0.5565,0.5962,0.6298,0.6587,0.6839,0.7063,0.7881,0.8373,0.8667,0.8831,0.8938,0.8903,0.8805,0.8672,0.8523,0.8367,0.821,0.7467,0.6824,0.6274,0.5802,0.5043,0.4465,0.4015,0.3655,0.336,0.3115,0.2908};
     1632        physicsVector = CreatePhysicsVector(E,Pt_4,factor);
     1633     }
     1634     else if( ionZ == 5 ) {
     1635        G4double Pt_5[31]={0.5215,0.568,0.6469,0.712,0.7668,0.8137,0.8544,0.8903,0.9224,1.042,1.12,1.17,1.202,1.233,1.241,1.238,1.228,1.214,1.199,1.182,1.095,1.014,0.9405,0.8758,0.7687,0.6851,0.6186,0.5648,0.5204,0.4832,0.4516};
     1636        physicsVector = CreatePhysicsVector(E,Pt_5,factor);
     1637     }
     1638     else if( ionZ == 6 ) {
     1639        G4double Pt_6[31]={0.6218,0.679,0.7771,0.8591,0.9292,0.9899,1.043,1.09,1.132,1.294,1.402,1.475,1.526,1.584,1.608,1.615,1.611,1.601,1.588,1.572,1.48,1.385,1.296,1.215,1.077,0.9665,0.8768,0.8032,0.7419,0.6901,0.6458};
     1640        physicsVector = CreatePhysicsVector(E,Pt_6,factor);
     1641     }
     1642     else if( ionZ == 7 ) {
     1643        G4double Pt_7[31]={0.7138,0.781,0.8974,0.9958,1.081,1.155,1.221,1.28,1.333,1.538,1.679,1.779,1.851,1.939,1.984,2.004,2.01,2.006,1.997,1.984,1.893,1.79,1.688,1.593,1.425,1.287,1.173,1.079,0.9988,0.931,0.8725};
     1644        physicsVector = CreatePhysicsVector(E,Pt_7,factor);
     1645     }
     1646     else if( ionZ == 8 ) {
     1647        G4double Pt_8[31]={0.803,0.8796,1.014,1.128,1.228,1.316,1.395,1.466,1.529,1.779,1.955,2.083,2.177,2.3,2.368,2.404,2.42,2.424,2.421,2.412,2.328,2.22,2.109,2.001,1.807,1.642,1.504,1.388,1.289,1.204,1.13};
     1648        physicsVector = CreatePhysicsVector(E,Pt_8,factor);
     1649     }
     1650     else if( ionZ == 9 ) {
     1651        G4double Pt_9[31]={0.8862,0.9718,1.122,1.252,1.366,1.468,1.559,1.641,1.716,2.012,2.223,2.38,2.499,2.658,2.751,2.804,2.834,2.847,2.851,2.847,2.775,2.666,2.549,2.431,2.214,2.025,1.863,1.726,1.608,1.505,1.416};
     1652        physicsVector = CreatePhysicsVector(E,Pt_9,factor);
     1653     }
     1654     else if( ionZ == 10 ) {
     1655        G4double Pt_10[31]={0.9654,1.059,1.226,1.37,1.498,1.612,1.716,1.81,1.896,2.238,2.485,2.672,2.816,3.014,3.134,3.207,3.251,3.275,3.287,3.29,3.234,3.128,3.007,2.882,2.644,2.432,2.249,2.091,1.953,1.833,1.728};
     1656        physicsVector = CreatePhysicsVector(E,Pt_10,factor);
     1657     }
     1658     else if( ionZ == 11 ) {
     1659        G4double Pt_11[31]={1.04,1.141,1.322,1.481,1.621,1.748,1.864,1.969,2.066,2.455,2.74,2.957,3.127,3.365,3.515,3.61,3.671,3.708,3.729,3.739,3.704,3.605,3.482,3.352,3.096,2.864,2.66,2.481,2.325,2.187,2.066};
     1660        physicsVector = CreatePhysicsVector(E,Pt_11,factor);
     1661     }
     1662     else if( ionZ == 12 ) {
     1663        G4double Pt_12[31]={1.108,1.217,1.411,1.582,1.735,1.874,2,2.116,2.224,2.658,2.98,3.228,3.424,3.702,3.884,4.004,4.083,4.134,4.166,4.185,4.175,4.085,3.964,3.83,3.561,3.311,3.088,2.89,2.716,2.561,2.424};
     1664        physicsVector = CreatePhysicsVector(E,Pt_12,factor);
     1665     }
     1666     else if( ionZ == 13 ) {
     1667        G4double Pt_13[31]={1.176,1.292,1.499,1.683,1.847,1.997,2.135,2.262,2.379,2.86,3.218,3.498,3.72,4.042,4.255,4.4,4.498,4.564,4.608,4.637,4.655,4.577,4.46,4.325,4.044,3.778,3.537,3.321,3.129,2.958,2.804};
     1668        physicsVector = CreatePhysicsVector(E,Pt_13,factor);
     1669     }
     1670     else if( ionZ == 14 ) {
     1671        G4double Pt_14[31]={1.242,1.365,1.585,1.779,1.955,2.116,2.264,2.401,2.528,3.053,3.448,3.759,4.008,4.375,4.622,4.792,4.91,4.992,5.048,5.087,5.137,5.073,4.961,4.827,4.538,4.258,4,3.767,3.559,3.371,3.203};
     1672        physicsVector = CreatePhysicsVector(E,Pt_14,factor);
     1673     }
     1674     else if( ionZ == 15 ) {
     1675        G4double Pt_15[31]={1.303,1.432,1.663,1.869,2.055,2.226,2.383,2.53,2.667,3.235,3.666,4.008,4.285,4.698,4.981,5.18,5.32,5.419,5.49,5.541,5.628,5.583,5.48,5.349,5.055,4.762,4.489,4.24,4.015,3.811,3.627};
     1676        physicsVector = CreatePhysicsVector(E,Pt_15,factor);
     1677     }
     1678     else if( ionZ == 16 ) {
     1679        G4double Pt_16[31]={1.363,1.498,1.741,1.957,2.154,2.334,2.501,2.657,2.804,3.414,3.882,4.255,4.56,5.019,5.34,5.568,5.731,5.849,5.935,5.998,6.124,6.1,6.008,5.88,5.584,5.281,4.994,4.73,4.489,4.27,4.071};
     1680        physicsVector = CreatePhysicsVector(E,Pt_16,factor);
     1681     }
     1682     else if( ionZ == 17 ) {
     1683        G4double Pt_17[31]={1.42,1.561,1.815,2.041,2.247,2.437,2.613,2.778,2.933,3.584,4.087,4.492,4.824,5.331,5.69,5.947,6.134,6.271,6.373,6.449,6.618,6.616,6.537,6.416,6.121,5.809,5.51,5.232,4.977,4.743,4.53};
     1684        physicsVector = CreatePhysicsVector(E,Pt_17,factor);
     1685     }
     1686     else if( ionZ == 18 ) {
     1687        G4double Pt_18[31]={1.484,1.632,1.897,2.133,2.349,2.548,2.733,2.907,3.071,3.763,4.302,4.738,5.097,5.651,6.047,6.333,6.543,6.699,6.816,6.905,7.113,7.133,7.065,6.95,6.656,6.338,6.028,5.737,5.468,5.221,4.994};
     1688        physicsVector = CreatePhysicsVector(E,Pt_18,factor);
     1689     }
     1690}
     1691
     1692  else if( matName == namesMat[22] ) {
     1693     if( ionZ == 3 ) {
     1694        G4double Au_3[31]={0.3146,0.3401,0.3821,0.4151,0.4417,0.4636,0.4822,0.4981,0.512,0.5601,0.5855,0.5977,0.6018,0.5976,0.5859,0.5715,0.5563,0.5412,0.5266,0.5127,0.4536,0.4077,0.3708,0.3403,0.2927,0.2576,0.2306,0.2093,0.192,0.1778,0.1657};
     1695        physicsVector = CreatePhysicsVector(E,Au_3,factor);
     1696     }
     1697     else if( ionZ == 4 ) {
     1698        G4double Au_4[31]={0.4344,0.4717,0.5341,0.5845,0.6261,0.6609,0.6907,0.7167,0.7395,0.8225,0.8719,0.9009,0.9167,0.9255,0.9198,0.9076,0.8921,0.875,0.8575,0.84,0.7597,0.6921,0.6352,0.5868,0.5095,0.4509,0.4052,0.3687,0.3389,0.3142,0.2932};
     1699        physicsVector = CreatePhysicsVector(E,Au_4,factor);
     1700     }
     1701     else if( ionZ == 5 ) {
     1702        G4double Au_5[31]={0.5472,0.5962,0.6791,0.7473,0.8046,0.8534,0.8955,0.9324,0.9652,1.087,1.165,1.215,1.246,1.276,1.281,1.275,1.263,1.246,1.228,1.209,1.114,1.028,0.9523,0.8859,0.7766,0.6917,0.6243,0.5698,0.5249,0.4873,0.4553};
     1703        physicsVector = CreatePhysicsVector(E,Au_5,factor);
     1704     }
     1705     else if( ionZ == 6 ) {
     1706        G4double Au_6[31]={0.6522,0.7123,0.8152,0.9011,0.9743,1.037,1.093,1.141,1.185,1.349,1.457,1.531,1.581,1.637,1.659,1.663,1.656,1.643,1.627,1.608,1.506,1.405,1.313,1.23,1.088,0.9758,0.8848,0.8102,0.7482,0.6958,0.651};
     1707        physicsVector = CreatePhysicsVector(E,Au_6,factor);
     1708     }
     1709     else if( ionZ == 7 ) {
     1710        G4double Au_7[31]={0.7484,0.8189,0.9409,1.044,1.133,1.21,1.279,1.339,1.394,1.602,1.744,1.844,1.916,2.003,2.045,2.062,2.064,2.057,2.045,2.029,1.926,1.816,1.71,1.611,1.44,1.299,1.184,1.088,1.007,0.9385,0.8794};
     1711        physicsVector = CreatePhysicsVector(E,Au_7,factor);
     1712     }
     1713     else if( ionZ == 8 ) {
     1714        G4double Au_8[31]={0.8412,0.9217,1.062,1.182,1.286,1.378,1.459,1.532,1.598,1.853,2.03,2.158,2.253,2.374,2.439,2.472,2.485,2.486,2.479,2.466,2.369,2.253,2.136,2.025,1.826,1.658,1.518,1.4,1.3,1.214,1.139};
     1715        physicsVector = CreatePhysicsVector(E,Au_8,factor);
     1716     }
     1717     else if( ionZ == 9 ) {
     1718        G4double Au_9[31]={0.9278,1.018,1.175,1.311,1.43,1.536,1.63,1.715,1.793,2.094,2.307,2.465,2.584,2.742,2.833,2.883,2.909,2.919,2.919,2.911,2.824,2.706,2.582,2.46,2.237,2.044,1.88,1.74,1.621,1.517,1.427};
     1719        physicsVector = CreatePhysicsVector(E,Au_9,factor);
     1720     }
     1721     else if( ionZ == 10 ) {
     1722        G4double Au_10[31]={1.01,1.109,1.283,1.433,1.567,1.686,1.793,1.89,1.979,2.329,2.579,2.767,2.911,3.108,3.227,3.297,3.337,3.357,3.365,3.364,3.291,3.175,3.046,2.916,2.671,2.456,2.269,2.108,1.969,1.848,1.741};
     1723        physicsVector = CreatePhysicsVector(E,Au_10,factor);
     1724     }
     1725     else if( ionZ == 11 ) {
     1726        G4double Au_11[31]={1.087,1.194,1.383,1.548,1.695,1.827,1.946,2.056,2.156,2.553,2.842,3.061,3.231,3.469,3.617,3.71,3.766,3.799,3.817,3.823,3.77,3.659,3.528,3.392,3.129,2.892,2.684,2.502,2.344,2.204,2.081};
     1727        physicsVector = CreatePhysicsVector(E,Au_11,factor);
     1728     }
     1729     else if( ionZ == 12 ) {
     1730        G4double Au_12[31]={1.158,1.272,1.475,1.653,1.813,1.957,2.088,2.208,2.319,2.764,3.09,3.341,3.537,3.816,3.996,4.113,4.188,4.236,4.264,4.279,4.25,4.147,4.016,3.877,3.599,3.343,3.116,2.915,2.738,2.581,2.442};
     1731        physicsVector = CreatePhysicsVector(E,Au_12,factor);
     1732     }
     1733     else if( ionZ == 13 ) {
     1734        G4double Au_13[31]={1.228,1.349,1.566,1.757,1.929,2.084,2.227,2.358,2.48,2.972,3.336,3.618,3.842,4.165,4.377,4.519,4.614,4.676,4.716,4.74,4.739,4.646,4.519,4.377,4.087,3.815,3.568,3.349,3.154,2.981,2.825};
     1735        physicsVector = CreatePhysicsVector(E,Au_13,factor);
     1736     }
     1737     else if( ionZ == 14 ) {
     1738        G4double Au_14[31]={1.296,1.424,1.653,1.856,2.039,2.206,2.36,2.502,2.633,3.171,3.573,3.887,4.139,4.506,4.753,4.921,5.035,5.113,5.165,5.2,5.229,5.15,5.028,4.886,4.587,4.299,4.036,3.8,3.588,3.398,3.227};
     1739        physicsVector = CreatePhysicsVector(E,Au_14,factor);
     1740     }
     1741     else if( ionZ == 15 ) {
     1742        G4double Au_15[31]={1.358,1.493,1.734,1.949,2.142,2.32,2.483,2.635,2.776,3.359,3.798,4.145,4.424,4.838,5.122,5.318,5.455,5.551,5.617,5.663,5.729,5.668,5.554,5.414,5.109,4.809,4.53,4.276,4.047,3.841,3.654};
     1743        physicsVector = CreatePhysicsVector(E,Au_15,factor);
     1744     }
     1745     else if( ionZ == 16 ) {
     1746        G4double Au_16[31]={1.42,1.561,1.814,2.039,2.244,2.431,2.605,2.766,2.917,3.544,4.021,4.399,4.706,5.168,5.489,5.715,5.875,5.989,6.071,6.13,6.234,6.192,6.088,5.952,5.645,5.333,5.04,4.771,4.526,4.303,4.101};
     1747        physicsVector = CreatePhysicsVector(E,Au_16,factor);
     1748     }
     1749     else if( ionZ == 17 ) {
     1750        G4double Au_17[31]={1.479,1.626,1.89,2.125,2.339,2.536,2.719,2.89,3.05,3.719,4.232,4.642,4.978,5.489,5.848,6.104,6.288,6.422,6.519,6.591,6.737,6.717,6.624,6.494,6.187,5.867,5.561,5.277,5.017,4.78,4.563};
     1751        physicsVector = CreatePhysicsVector(E,Au_17,factor);
     1752     }
     1753     else if( ionZ == 18 ) {
     1754        G4double Au_18[31]={1.543,1.697,1.973,2.219,2.443,2.65,2.842,3.022,3.191,3.903,4.453,4.895,5.259,5.817,6.213,6.499,6.706,6.859,6.971,7.056,7.241,7.241,7.16,7.036,6.729,6.401,6.083,5.787,5.513,5.261,5.031};
     1755        physicsVector = CreatePhysicsVector(E,Au_18,factor);
     1756     }
     1757}
     1758
     1759  else if( matName == namesMat[23] ) {
     1760     if( ionZ == 3 ) {
     1761        G4double Pb_3[31]={0.3483,0.3786,0.426,0.4605,0.4861,0.5059,0.5217,0.5346,0.5454,0.5801,0.5962,0.602,0.6016,0.5907,0.5742,0.5559,0.5375,0.5197,0.5029,0.4873,0.4243,0.3787,0.3436,0.3154,0.2722,0.2406,0.2163,0.1971,0.1814,0.1684,0.1574};
     1762        physicsVector = CreatePhysicsVector(E,Pb_3,factor);
     1763     }
     1764     else if( ionZ == 4 ) {
     1765        G4double Pb_4[31]={0.4635,0.5078,0.5801,0.6356,0.6786,0.7126,0.7402,0.7631,0.7826,0.8488,0.8853,0.9051,0.9142,0.9137,0.9012,0.8835,0.8633,0.8423,0.8215,0.8013,0.714,0.646,0.5913,0.5461,0.4751,0.4219,0.3805,0.3473,0.3202,0.2976,0.2784};
     1766        physicsVector = CreatePhysicsVector(E,Pb_4,factor);
     1767     }
     1768     else if( ionZ == 5 ) {
     1769        G4double Pb_5[31]={0.5692,0.6265,0.7228,0.7996,0.8612,0.911,0.9521,0.9866,1.016,1.119,1.18,1.218,1.241,1.258,1.255,1.242,1.224,1.202,1.18,1.157,1.052,0.9641,0.8904,0.8276,0.7265,0.6487,0.5871,0.5373,0.4962,0.4617,0.4323};
     1770        physicsVector = CreatePhysicsVector(E,Pb_5,factor);
     1771     }
     1772     else if( ionZ == 6 ) {
     1773        G4double Pb_6[31]={0.6665,0.7355,0.8541,0.9515,1.032,1.098,1.154,1.201,1.242,1.386,1.475,1.534,1.573,1.614,1.626,1.621,1.607,1.588,1.566,1.543,1.427,1.323,1.232,1.153,1.021,0.9172,0.8336,0.765,0.7079,0.6597,0.6184};
     1774        physicsVector = CreatePhysicsVector(E,Pb_6,factor);
     1775     }
     1776     else if( ionZ == 7 ) {
     1777        G4double Pb_7[31]={0.7558,0.8351,0.9739,1.091,1.189,1.272,1.343,1.403,1.456,1.645,1.765,1.848,1.906,1.974,2.005,2.012,2.006,1.992,1.973,1.952,1.831,1.715,1.61,1.515,1.354,1.224,1.117,1.029,0.954,0.8905,0.8358};
     1778        physicsVector = CreatePhysicsVector(E,Pb_7,factor);
     1779     }
     1780     else if( ionZ == 8 ) {
     1781        G4double Pb_8[31]={0.8429,0.9317,1.089,1.223,1.339,1.439,1.524,1.599,1.664,1.9,2.053,2.161,2.24,2.34,2.391,2.414,2.418,2.411,2.396,2.378,2.259,2.135,2.018,1.91,1.722,1.565,1.435,1.325,1.232,1.153,1.083};
     1782        physicsVector = CreatePhysicsVector(E,Pb_8,factor);
     1783     }
     1784     else if( ionZ == 9 ) {
     1785        G4double Pb_9[31]={0.9254,1.023,1.197,1.348,1.479,1.594,1.695,1.783,1.86,2.146,2.334,2.469,2.57,2.703,2.778,2.817,2.833,2.835,2.827,2.812,2.7,2.571,2.445,2.327,2.114,1.934,1.781,1.651,1.539,1.442,1.358};
     1786        physicsVector = CreatePhysicsVector(E,Pb_9,factor);
     1787     }
     1788     else if( ionZ == 10 ) {
     1789        G4double Pb_10[31]={1.005,1.11,1.299,1.465,1.612,1.742,1.856,1.958,2.048,2.384,2.609,2.772,2.896,3.065,3.166,3.224,3.253,3.265,3.264,3.255,3.154,3.024,2.892,2.765,2.531,2.327,2.153,2.002,1.872,1.758,1.658};
     1790        physicsVector = CreatePhysicsVector(E,Pb_10,factor);
     1791     }
     1792     else if( ionZ == 11 ) {
     1793        G4double Pb_11[31]={1.081,1.193,1.396,1.576,1.736,1.88,2.008,2.123,2.226,2.613,2.875,3.068,3.216,3.422,3.551,3.63,3.676,3.699,3.708,3.706,3.621,3.493,3.358,3.223,2.97,2.746,2.55,2.38,2.231,2.1,1.984};
     1794        physicsVector = CreatePhysicsVector(E,Pb_11,factor);
     1795     }
     1796     else if( ionZ == 12 ) {
     1797        G4double Pb_12[31]={1.152,1.271,1.487,1.679,1.851,2.007,2.148,2.275,2.39,2.828,3.128,3.351,3.523,3.767,3.925,4.028,4.092,4.129,4.148,4.154,4.09,3.968,3.831,3.691,3.422,3.18,2.965,2.776,2.609,2.461,2.33};
     1798        physicsVector = CreatePhysicsVector(E,Pb_12,factor);
     1799     }
     1800     else if( ionZ == 13 ) {
     1801        G4double Pb_13[31]={1.223,1.349,1.577,1.781,1.965,2.133,2.285,2.424,2.551,3.04,3.378,3.632,3.83,4.114,4.303,4.429,4.512,4.563,4.593,4.608,4.569,4.455,4.318,4.175,3.894,3.634,3.401,3.193,3.009,2.845,2.698};
     1802        physicsVector = CreatePhysicsVector(E,Pb_13,factor);
     1803     }
     1804     else if( ionZ == 14 ) {
     1805        G4double Pb_14[31]={1.293,1.426,1.666,1.88,2.075,2.253,2.417,2.567,2.705,3.243,3.621,3.905,4.129,4.455,4.675,4.827,4.928,4.995,5.038,5.062,5.051,4.947,4.813,4.669,4.376,4.101,3.851,3.627,3.426,3.246,3.084};
     1806        physicsVector = CreatePhysicsVector(E,Pb_14,factor);
     1807     }
     1808     else if( ionZ == 15 ) {
     1809        G4double Pb_15[31]={1.358,1.497,1.748,1.973,2.178,2.366,2.54,2.7,2.848,3.435,3.851,4.167,4.417,4.787,5.042,5.22,5.344,5.428,5.484,5.52,5.543,5.454,5.326,5.181,4.882,4.594,4.328,4.087,3.869,3.673,3.496};
     1810        physicsVector = CreatePhysicsVector(E,Pb_15,factor);
     1811     }
     1812     else if( ionZ == 16 ) {
     1813        G4double Pb_16[31]={1.423,1.569,1.831,2.065,2.28,2.477,2.661,2.831,2.989,3.624,4.078,4.426,4.703,5.118,5.408,5.614,5.76,5.863,5.934,5.982,6.04,5.968,5.847,5.705,5.401,5.101,4.82,4.564,4.33,4.119,3.927};
     1814        physicsVector = CreatePhysicsVector(E,Pb_16,factor);
     1815     }
     1816     else if( ionZ == 17 ) {
     1817        G4double Pb_17[31]={1.485,1.637,1.91,2.154,2.377,2.584,2.776,2.955,3.122,3.802,4.296,4.675,4.98,5.44,5.765,6,6.17,6.291,6.378,6.439,6.536,6.483,6.371,6.233,5.927,5.617,5.324,5.053,4.805,4.579,4.372};
     1818        physicsVector = CreatePhysicsVector(E,Pb_17,factor);
     1819     }
     1820     else if( ionZ == 18 ) {
     1821        G4double Pb_18[31]={1.554,1.713,1.998,2.252,2.485,2.7,2.901,3.089,3.265,3.99,4.522,4.934,5.266,5.771,6.132,6.394,6.586,6.726,6.827,6.901,7.035,6.999,6.897,6.762,6.454,6.136,5.831,5.547,5.285,5.044,4.824};
     1822        physicsVector = CreatePhysicsVector(E,Pb_18,factor);
     1823     }
     1824}
     1825
     1826  else if( matName == namesMat[24] ) {
     1827     if( ionZ == 3 ) {
     1828        G4double U_3[31]={0.4158,0.4488,0.4987,0.5342,0.5603,0.5798,0.5944,0.6054,0.6139,0.6323,0.6313,0.623,0.6119,0.5877,0.564,0.5413,0.5196,0.4992,0.4801,0.4623,0.3915,0.3427,0.3074,0.2806,0.2419,0.2148,0.1943,0.1781,0.1649,0.1538,0.1443};
     1829        physicsVector = CreatePhysicsVector(E,U_3,factor);
     1830     }
     1831     else if( ionZ == 4 ) {
     1832        G4double U_4[31]={0.5309,0.5804,0.6584,0.7166,0.7614,0.7965,0.8243,0.8465,0.8645,0.9152,0.9314,0.9324,0.9264,0.9057,0.8816,0.8569,0.8318,0.8068,0.7824,0.7591,0.6601,0.5867,0.5313,0.4878,0.4235,0.3773,0.3421,0.314,0.291,0.2716,0.2551};
     1833        physicsVector = CreatePhysicsVector(E,U_4,factor);
     1834     }
     1835     else if( ionZ == 5 ) {
     1836        G4double U_5[31]={0.6283,0.6928,0.7987,0.8807,0.9455,0.9979,1.041,1.076,1.105,1.196,1.235,1.25,1.253,1.243,1.224,1.201,1.175,1.149,1.122,1.095,0.9736,0.8778,0.8024,0.7416,0.6491,0.581,0.5283,0.4859,0.4508,0.4212,0.3959};
     1837        physicsVector = CreatePhysicsVector(E,U_5,factor);
     1838     }
     1839     else if( ionZ == 6 ) {
     1840        G4double U_6[31]={0.7126,0.79,0.9217,1.027,1.112,1.183,1.241,1.291,1.332,1.468,1.535,1.569,1.585,1.59,1.58,1.563,1.54,1.514,1.486,1.458,1.322,1.207,1.113,1.036,0.9142,0.8227,0.7506,0.692,0.6431,0.6017,0.566};
     1841        physicsVector = CreatePhysicsVector(E,U_6,factor);
     1842     }
     1843     else if( ionZ == 7 ) {
     1844        G4double U_7[31]={0.786,0.8741,1.029,1.156,1.261,1.35,1.425,1.489,1.543,1.728,1.828,1.883,1.914,1.941,1.944,1.935,1.917,1.895,1.869,1.841,1.697,1.567,1.457,1.364,1.215,1.099,1.007,0.9307,0.8667,0.812,0.7647};
     1845        physicsVector = CreatePhysicsVector(E,U_7,factor);
     1846     }
     1847     else if( ionZ == 8 ) {
     1848        G4double U_8[31]={0.8561,0.9532,1.127,1.275,1.4,1.506,1.597,1.676,1.744,1.982,2.116,2.196,2.245,2.296,2.314,2.316,2.306,2.289,2.267,2.241,2.094,1.953,1.829,1.722,1.546,1.407,1.294,1.2,1.12,1.051,0.9908};
     1849        physicsVector = CreatePhysicsVector(E,U_8,factor);
     1850     }
     1851     else if( ionZ == 9 ) {
     1852        G4double U_9[31]={0.9213,1.026,1.217,1.383,1.526,1.649,1.756,1.849,1.932,2.223,2.394,2.501,2.57,2.648,2.684,2.698,2.698,2.688,2.67,2.648,2.504,2.355,2.22,2.101,1.902,1.74,1.607,1.495,1.398,1.315,1.242};
     1853        physicsVector = CreatePhysicsVector(E,U_9,factor);
     1854     }
     1855     else if( ionZ == 10 ) {
     1856        G4double U_10[31]={0.9839,1.096,1.3,1.483,1.642,1.782,1.904,2.012,2.107,2.453,2.664,2.8,2.891,2.999,3.055,3.083,3.094,3.092,3.08,3.063,2.927,2.773,2.629,2.5,2.279,2.097,1.944,1.814,1.701,1.603,1.516};
     1857        physicsVector = CreatePhysicsVector(E,U_10,factor);
     1858     }
     1859     else if( ionZ == 11 ) {
     1860        G4double U_11[31]={1.043,1.161,1.378,1.574,1.749,1.903,2.04,2.162,2.271,2.672,2.924,3.09,3.204,3.344,3.422,3.468,3.491,3.499,3.496,3.484,3.361,3.206,3.056,2.918,2.677,2.476,2.304,2.157,2.028,1.915,1.814};
     1861        physicsVector = CreatePhysicsVector(E,U_11,factor);
     1862     }
     1863     else if( ionZ == 12 ) {
     1864        G4double U_12[31]={1.098,1.222,1.45,1.657,1.845,2.013,2.164,2.298,2.42,2.875,3.168,3.365,3.503,3.677,3.78,3.844,3.883,3.902,3.908,3.903,3.798,3.645,3.49,3.345,3.088,2.87,2.681,2.517,2.372,2.244,2.131};
     1865        physicsVector = CreatePhysicsVector(E,U_12,factor);
     1866     }
     1867     else if( ionZ == 13 ) {
     1868        G4double U_13[31]={1.155,1.284,1.522,1.74,1.939,2.12,2.283,2.431,2.564,3.074,3.408,3.637,3.801,4.011,4.14,4.224,4.277,4.309,4.324,4.328,4.244,4.096,3.939,3.788,3.517,3.282,3.077,2.896,2.737,2.595,2.467};
     1869        physicsVector = CreatePhysicsVector(E,U_13,factor);
     1870     }
     1871     else if( ionZ == 14 ) {
     1872        G4double U_14[31]={1.209,1.345,1.592,1.819,2.029,2.221,2.396,2.555,2.7,3.262,3.638,3.9,4.09,4.34,4.495,4.599,4.669,4.713,4.739,4.751,4.692,4.551,4.394,4.24,3.956,3.707,3.486,3.291,3.117,2.961,2.82};
     1873        physicsVector = CreatePhysicsVector(E,U_14,factor);
     1874     }
     1875     else if( ionZ == 15 ) {
     1876        G4double U_15[31]={1.261,1.402,1.658,1.893,2.111,2.313,2.499,2.669,2.825,3.437,3.854,4.15,4.367,4.658,4.844,4.971,5.058,5.118,5.156,5.178,5.149,5.02,4.865,4.709,4.416,4.153,3.919,3.709,3.521,3.351,3.197};
     1877        physicsVector = CreatePhysicsVector(E,U_15,factor);
     1878     }
     1879     else if( ionZ == 16 ) {
     1880        G4double U_16[31]={1.313,1.459,1.725,1.967,2.193,2.404,2.599,2.78,2.946,3.607,4.065,4.396,4.641,4.975,5.192,5.342,5.449,5.524,5.575,5.608,5.611,5.495,5.345,5.189,4.888,4.614,4.367,4.143,3.941,3.757,3.59};
     1881        physicsVector = CreatePhysicsVector(E,U_16,factor);
     1882     }
     1883     else if( ionZ == 17 ) {
     1884        G4double U_17[31]={1.363,1.514,1.789,2.038,2.271,2.49,2.694,2.884,3.06,3.767,4.266,4.63,4.904,5.283,5.532,5.707,5.833,5.924,5.989,6.033,6.073,5.972,5.828,5.673,5.368,5.084,4.825,4.589,4.373,4.177,3.998};
     1885        physicsVector = CreatePhysicsVector(E,U_17,factor);
     1886     }
     1887     else if( ionZ == 18 ) {
     1888        G4double U_18[31]={1.419,1.577,1.861,2.118,2.358,2.585,2.797,2.996,3.181,3.935,4.474,4.872,5.175,5.599,5.879,6.078,6.223,6.33,6.408,6.463,6.537,6.451,6.313,6.159,5.849,5.556,5.286,5.038,4.811,4.603,4.412};
     1889        physicsVector = CreatePhysicsVector(E,U_18,factor);
     1890     }
     1891  }
     1892
     1893  if(physicsVector != 0) {
     1894     dedxKeys.push_back( key );
     1895     dedx.push_back( physicsVector );
     1896  }
     1897
     1898  return physicsVector;
     1899}
     1900
     1901//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
     1902
     1903G4PhysicsVector* G4SimpleMaterialStoppingICRU73::GetPhysicsVector(G4int ionZ,
     1904                                                 G4int matZ)
     1905{
     1906  G4PhysicsVector* physicsVector = 0;
     1907
     1908  size_t nmbMat =  atomicNumbersMat.size();
     1909
     1910  for( size_t i = 0; i < nmbMat; i++ ) {
     1911
     1912     if( atomicNumbersMat[i] == matZ ) {
     1913        physicsVector = GetPhysicsVector(ionZ, namesMat[i]);
     1914        break;
     1915     }
     1916  }
     1917
     1918  return physicsVector;
     1919}
     1920
     1921//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
Note: See TracChangeset for help on using the changeset viewer.