Import Geant4 10.2.0 source tree

This commit is contained in:
Gabriele Cosmo
2016-06-10 14:11:04 +02:00
parent c9b32a6c0a
commit d4af681f38
4886 changed files with 420149 additions and 1023309 deletions
@@ -23,7 +23,7 @@
// * acceptance of all terms of the Geant4 Software license. *
// ********************************************************************
//
// $Id: G4HyperNucleiProperties.cc 67971 2013-03-13 10:13:24Z gcosmo $
// $Id: G4HyperNucleiProperties.cc 94091 2015-11-05 15:13:52Z gcosmo $
//
// ------------------------------------------------------------
// GEANT 4 class header file
@@ -39,18 +39,18 @@
#include "G4ParticleTable.hh"
G4double G4HyperNucleiProperties::GetNuclearMass(G4int A, G4int Z, G4int L)
G4double G4HyperNucleiProperties::GetNuclearMass(G4int A, G4int Z, G4int LL)
{
if (L==0) return G4NucleiProperties::GetNuclearMass(A, Z);
if (LL==0) return G4NucleiProperties::GetNuclearMass(A, Z);
G4ParticleTable* pTable = G4ParticleTable::GetParticleTable();
if (A < 2 || Z < 0 || Z > A-L || L>A ) {
if (A < 2 || Z < 0 || Z > A-LL || LL>A ) {
#ifdef G4VERBOSE
if (pTable->GetVerboseLevel()>0) {
G4cout << "G4HyperNucleiProperties::GetNuclearMass: "
<< " Wrong values for A = " << A
<< " Z = " << Z
<< " L = " << L
<< " L = " << LL
<< G4endl;
}
#endif
@@ -61,7 +61,7 @@ G4double G4HyperNucleiProperties::GetNuclearMass(G4int A, G4int Z, G4int L)
G4cout << "G4HyperNucleiProperties::GetNuclearMass: "
<< " No boud state for A = " << A
<< " Z = " << Z
<< " L = " << L
<< " L = " << LL
<< G4endl;
}
#endif
@@ -79,7 +79,7 @@ G4double G4HyperNucleiProperties::GetNuclearMass(G4int A, G4int Z, G4int L)
#endif
return 0.0;
}
const G4double mL= lambda->GetPDGMass(); // mLambda
const G4double mLL= lambda->GetPDGMass(); // mLambda
static const G4double b7=25.*MeV;
static const G4double b8=10.5; // Slope
@@ -87,33 +87,33 @@ G4double G4HyperNucleiProperties::GetNuclearMass(G4int A, G4int Z, G4int L)
static const G4double a3=2.2*MeV; // BindingEnergy for (t/He3)+Lamb(MeV)
static const G4double eps =0.0001*MeV; // security value (MeV)
G4double mass = G4NucleiProperties::GetNuclearMass(A-L, Z);
G4double mass = G4NucleiProperties::GetNuclearMass(A-LL, Z);
// A non-"strange" nucleus
G4double bs=0.;
if (A-L ==2) bs=a2; // for nnL,npL,ppL
else if(A-L ==3) bs=a3; // for 3nL,2npL,n2pL,3pL
else if(A-L >3) bs=b7*std::exp(-b8/(A-L+1.));
mass += L*(mL-bs) + eps;
if (A-LL ==2) bs=a2; // for nnL,npL,ppL
else if(A-LL ==3) bs=a3; // for 3nL,2npL,n2pL,3pL
else if(A-LL >3) bs=b7*std::exp(-b8/(A-LL+1.));
mass += LL*(mLL-bs) + eps;
return mass;
}
G4double G4HyperNucleiProperties::GetAtomicMass(G4int A, G4int Z, G4int L)
G4double G4HyperNucleiProperties::GetAtomicMass(G4int A, G4int Z, G4int LL)
{
if (A < 1 || Z < 0 || Z > A-L || L > A || L <0 ) {
if (A < 1 || Z < 0 || Z > A-LL || LL > A || LL <0 ) {
#ifdef G4VERBOSE
if (G4ParticleTable::GetParticleTable()->GetVerboseLevel()>0) {
G4cout << "G4HyperNucleiProperties::GetAtomicMass: "
<< " Wrong values for A = " << A
<< " Z = " << Z
<< " L = " << L << G4endl;
<< " L = " << LL << G4endl;
}
#endif
return 0.0;
} else {
G4double nuclearMass = GetNuclearMass(A, Z, L);
G4double nuclearMass = GetNuclearMass(A, Z, LL);
return nuclearMass + Z*electron_mass_c2
- 1.433e-5*MeV*std::pow(G4double(Z),2.39);
}