Import Geant4 0.1.0 source tree

This commit is contained in:
Gabriele Cosmo
2016-06-08 15:09:25 +02:00
parent b97f8d0df7
commit aaa409b6ee
2922 changed files with 55107 additions and 81674 deletions
@@ -5,8 +5,8 @@
// based on the Program) you indicate your acceptance of this statement,
// and all its terms.
//
// $Id: G4IVContinuousDiscreteProcess.hh,v 2.5 1998/10/16 13:21:31 kurasige Exp $
// GEANT4 tag $Name: geant4-00 $
// $Id: G4IVContinuousDiscreteProcess.hh,v 1.4 1999/04/30 08:01:53 urban Exp $
// GEANT4 tag $Name: geant4-00-01 $
//
// $Id:
// ------------------------------------------------------------
@@ -41,20 +41,20 @@ class G4IVContinuousDiscreteProcess : public G4VProcess
G4ProcessType aType = fNotDefined );
G4IVContinuousDiscreteProcess(G4IVContinuousDiscreteProcess &);
~G4IVContinuousDiscreteProcess();
virtual ~G4IVContinuousDiscreteProcess();
G4double PostStepGetPhysicalInteractionLength(
virtual G4double PostStepGetPhysicalInteractionLength(
const G4Track& track,
G4double previousStepSize,
G4ForceCondition* condition
);
G4VParticleChange* PostStepDoIt(
virtual G4VParticleChange* PostStepDoIt(
const G4Track& ,
const G4Step&
);
G4double AlongStepGetPhysicalInteractionLength(
virtual G4double AlongStepGetPhysicalInteractionLength(
const G4Track&,
G4double previousStepSize,
G4double currentMinimumStep,
@@ -62,22 +62,22 @@ class G4IVContinuousDiscreteProcess : public G4VProcess
G4GPILSelection* selection
) ;
G4VParticleChange* AlongStepDoIt(
virtual G4VParticleChange* AlongStepDoIt(
const G4Track& ,
const G4Step&
);
// no operation in AtRestDoIt
G4double AtRestGetPhysicalInteractionLength(
virtual G4double AtRestGetPhysicalInteractionLength(
const G4Track& ,
G4ForceCondition*
) { return -1.0; };
// no operation in AtRestDoIt
G4VParticleChange* AtRestDoIt(
virtual G4VParticleChange* AtRestDoIt(
const G4Track& ,
const G4Step&
) {return NULL;};
) {return 0;};
protected:
virtual G4double GetContinuousStepLimit(const G4Track& aTrack,
@@ -109,14 +109,13 @@ class G4IVContinuousDiscreteProcess : public G4VProcess
protected:
G4PhysicsTable* theNlambdaTable ;
G4PhysicsTable* theInverseNlambdaTable ;
G4double BIGSTEP ;
const G4double BIGSTEP ;
};
// -----------------------------------------
// inlined function members implementation
// -----------------------------------------
#include "G4Track.hh"
#include "G4Step.hh"
#include "G4EnergyLossTables.hh"
#include "G4MaterialTable.hh"
@@ -129,97 +128,6 @@ inline void G4IVContinuousDiscreteProcess::
;
}
inline G4double G4IVContinuousDiscreteProcess::
PostStepGetPhysicalInteractionLength(
const G4Track& track,
G4double previousStepSize,
G4ForceCondition* condition
)
{// get particle,particle type,kin.energy,material,mat.index
G4double nl,nlold,range,rangeold,rangenext,
KineticEnergyOld,KineticEnergyNext,value;
G4bool isOut;
const G4DynamicParticle* particle = track.GetDynamicParticle();
const G4ParticleDefinition* particletype = particle->GetDefinition() ;
G4double KineticEnergy = particle->GetKineticEnergy();
G4Material* material = track.GetMaterial();
const G4MaterialTable* theMaterialTable =
G4Material::GetMaterialTable();
G4int materialindex = material->GetIndex();
nl = (*theNlambdaTable)[materialindex]->
GetValue(KineticEnergy,isOut);
range = G4EnergyLossTables::GetPreciseRangeFromEnergy(particletype,
KineticEnergy,material) ;
if ( (previousStepSize <=0.0) || (theNumberOfInteractionLengthLeft<=0.0)) {
// beggining of tracking (or just after DoIt of this process)
ResetNumberOfInteractionLengthLeft();
} else {
// subtract NumberOfInteractionLengthLeft
rangeold = range + previousStepSize ;
KineticEnergyOld = G4EnergyLossTables::GetPreciseEnergyFromRange(
particletype,
rangeold,material);
nlold = (*theNlambdaTable)[materialindex]->
GetValue(KineticEnergyOld,isOut);
if(nlold < nl) {
#ifdef G4VERBOSE
if(verboseLevel>2) {
G4cout << GetProcessName() << " PostStepGPIL : Nlambda has been" <<
" increased at update.Nlambda old/new :" << nlold <<
" " << nl << endl;
G4cout << "(theNumberOfInteractionLengthLeft has been increased!)" << endl;
G4cout << " correction : Nlambda old=new ........." << endl;
}
#endif
//corr. of num errror
nlold = nl ;
}
theNumberOfInteractionLengthLeft -= nlold-nl ;
if(theNumberOfInteractionLengthLeft<perMillion)
theNumberOfInteractionLengthLeft=0.;
}
// condition is set to "Not Forced"
*condition = NotForced;
if(nl <= theNumberOfInteractionLengthLeft){
value = BIGSTEP ;
} else {
KineticEnergyNext = (*theInverseNlambdaTable)[materialindex]->
GetValue(nl-theNumberOfInteractionLengthLeft,isOut);
rangenext = G4EnergyLossTables::GetPreciseRangeFromEnergy(particletype,
KineticEnergyNext,material);
value = range - rangenext ;
if(range<rangenext) {
#ifdef G4VERBOSE
if(verboseLevel>2) {
G4cout << GetProcessName() << " PostStepGPIL: Step < 0.!, Step=" <<
value << endl;
G4cout << "range,rangenext:" << range << " " << rangenext << endl ;
G4cout << "correction : rangenext=range ....." << endl;
}
#endif
//corr. of num error
rangenext = range ;
value = range - rangenext ;
}
}
return value;
}
inline G4VParticleChange* G4IVContinuousDiscreteProcess::PostStepDoIt(
const G4Track& ,