Import Geant4 9.2.0 source tree

This commit is contained in:
Gabriele Cosmo
2016-06-09 15:58:43 +02:00
parent 96c8bcd0af
commit b79225fb37
7544 changed files with 245407 additions and 91099 deletions
@@ -24,7 +24,7 @@
// ********************************************************************
//
// -------------------------------------------------------------------
// $Id: MicrobeamEMField.cc,v 1.6 2007/07/06 06:52:54 sincerti Exp $
// $Id: MicrobeamEMField.cc,v 1.7 2008/10/23 11:12:12 sincerti Exp $
// -------------------------------------------------------------------
#include "MicrobeamEMField.hh"
@@ -522,13 +522,13 @@ if (z>=-1400*mm & z <-200*mm)
// ZERO FIELD REGIONS
if (
(Bfield[0]==0. &
Bfield[1]==0. &
Bfield[2]==0. &
Bfield[4]==0. &
Bfield[5]==0. &
Bfield[6]==0. )
)
(Bfield[0]==0. &&
Bfield[1]==0. &&
Bfield[2]==0. &&
Bfield[3]==0. &&
Bfield[4]==0. &&
Bfield[5]==0. )
)
{
G4FieldManager *pFieldMgr;
@@ -24,7 +24,7 @@
// ********************************************************************
//
// -------------------------------------------------------------------
// $Id: MicrobeamPhantomConfiguration.cc,v 1.5 2006/06/29 16:05:31 gunter Exp $
// $Id: MicrobeamPhantomConfiguration.cc,v 1.6 2008/06/16 07:46:11 sincerti Exp $
// -------------------------------------------------------------------
#include "MicrobeamPhantomConfiguration.hh"
@@ -86,17 +86,17 @@ G4int MicrobeamPhantomConfiguration::Initialize() {
if (mat==2) // NUCLEUS
{
if (den==1) density = denNucl1;
if (den==2) density = denNucl2;
if (den==3) density = denNucl3;
if (den==1) density = denNucl1*(g/cm3);
if (den==2) density = denNucl2*(g/cm3);
if (den==3) density = denNucl3*(g/cm3);
nucleusMass = nucleusMass + density * dx * dy * dz ;
}
if (mat==1) // CYTOPLASM
{
if (den==1) density = denCyto1;
if (den==2) density = denCyto2;
if (den==3) density = denCyto3;
if (den==1) density = denCyto1*(g/cm3);
if (den==2) density = denCyto2*(g/cm3);
if (den==3) density = denCyto3*(g/cm3);
cytoplasmMass = cytoplasmMass + density * dx * dy * dz ;
}
@@ -105,10 +105,7 @@ G4int MicrobeamPhantomConfiguration::Initialize() {
}
fclose(fMap);
nucleusMass = nucleusMass * 1e-6 ;
cytoplasmMass = cytoplasmMass * 1e-6 ;
return 0;
}
@@ -24,7 +24,7 @@
// ********************************************************************
//
// -------------------------------------------------------------------
// $Id: MicrobeamPhysicsList.cc,v 1.6 2006/11/23 12:24:20 sincerti Exp $
// $Id: MicrobeamPhysicsList.cc,v 1.7 2008/08/20 11:08:29 sincerti Exp $
// -------------------------------------------------------------------
#include "G4ParticleDefinition.hh"
@@ -154,7 +154,7 @@ void MicrobeamPhysicsList::ConstructEM()
pmanager->AddDiscreteProcess(new G4LowEnergyRayleigh());
pmanager->AddProcess(new G4StepLimiter(), -1, -1, 3);
pmanager->AddProcess(new G4StepLimiter(), -1, -1, 5);
} else if (particleName == "e-") {
@@ -169,19 +169,20 @@ void MicrobeamPhysicsList::ConstructEM()
G4LowEnergyBremsstrahlung * LeBrprocess = new G4LowEnergyBremsstrahlung();
pmanager->AddProcess(LeBrprocess, -1, -1, 3);
pmanager->AddProcess(new G4StepLimiter(), -1, -1, 3);
pmanager->AddProcess(new G4StepLimiter(), -1, -1, 4);
} else if (particleName == "e+") {
pmanager->AddProcess(new G4MultipleScattering,-1, 1,1);
pmanager->AddProcess(new G4MultipleScattering,-1, 1, 1);
pmanager->AddProcess(new G4eIonisation, -1, 2,2);
pmanager->AddProcess(new G4eIonisation, -1, 2, 2);
pmanager->AddProcess(new G4eBremsstrahlung, -1,-1,3);
pmanager->AddProcess(new G4eBremsstrahlung, -1, 3, 3);
pmanager->AddProcess(new G4eplusAnnihilation, 0,-1,4);
pmanager->AddProcess(new G4eplusAnnihilation, 0, -1, 4);
pmanager->AddProcess(new G4StepLimiter(), -1, -1, 3);
pmanager->AddProcess(new G4StepLimiter(), -1, -1, 5);
} else if( particleName == "mu+" ||
particleName == "mu-" ) {
@@ -191,10 +192,10 @@ void MicrobeamPhysicsList::ConstructEM()
(particle->GetParticleName() != "chargedgeantino")) {
//pmanager->AddProcess(new G4MultipleScattering(),-1,1,1);
pmanager->AddProcess(new G4hMultipleScattering(),-1,1,1);
pmanager->AddProcess(new G4hMultipleScattering(),-1, 1, 1);
G4hLowEnergyIonisation* hLowEnergyIonisation = new G4hLowEnergyIonisation();
pmanager->AddProcess(hLowEnergyIonisation,-1,2,2);
pmanager->AddProcess(hLowEnergyIonisation,-1, 2, 2);
hLowEnergyIonisation->SetElectronicStoppingPowerModel(particle,"ICRU_R49He");
hLowEnergyIonisation->SetNuclearStoppingOn();
@@ -24,7 +24,7 @@
// ********************************************************************
//
// -------------------------------------------------------------------
// $Id: MicrobeamSteppingAction.cc,v 1.8 2007/08/22 13:58:33 sincerti Exp $
// $Id: MicrobeamSteppingAction.cc,v 1.9 2008/06/16 07:46:11 sincerti Exp $
// -------------------------------------------------------------------
#include "G4SteppingManager.hh"
@@ -157,7 +157,7 @@ if (
if (aStep->GetPreStepPoint()->GetPhysicalVolume()->GetName() == "physicalNucleus")
{
G4double dose = (e_SI*(aStep->GetTotalEnergyDeposit()/eV))/(Run->GetMassNucleus());
G4double dose = (aStep->GetTotalEnergyDeposit()/joule)/(Run->GetMassNucleus()/kg);
Run->AddDoseN(dose);
G4ThreeVector v;
@@ -169,7 +169,7 @@ if (aStep->GetPreStepPoint()->GetPhysicalVolume()->GetName() == "physicalNucleu
if (aStep->GetPreStepPoint()->GetPhysicalVolume()->GetName() == "physicalCytoplasm")
{
G4double dose = (e_SI*(aStep->GetTotalEnergyDeposit()/eV))/(Run->GetMassCytoplasm());
G4double dose = (aStep->GetTotalEnergyDeposit()/joule)/(Run->GetMassCytoplasm()/kg);
Run->AddDoseC(dose);
G4ThreeVector v;