#include "TVirtualMC.h"
+#include "TMCOptical.h"
+#include "TFlukaCodes.h"
+#include "TFlukaMCGeometry.h"
//Forward declaration
class TGeoMCGeometry;
-class TFlukaMCGeometry;
+//class TFlukaMCGeometry;
class TGeoMaterial;
class TFluka : public TVirtualMC {
TFluka(const char *title, Int_t verbosity = 0, Bool_t isRootGeometrySupported = 0);
TFluka();
virtual ~TFluka();
+ virtual Bool_t IsRootGeometrySupported() const { return kTRUE;}
+
+ Int_t GetNstep() { return fGeom->GetNstep(); } // to be removed
//
// Methods for building/management of geometry
const char *konly, Double_t *upar, Int_t np);
virtual void Gsbool(const char* onlyVolName, const char* manyVolName);
+ // functions for access to geometry
+ //
+ // Return the Transformation matrix between the volume specified by
+ // the path volumePath and the top or master volume.
+ virtual Bool_t GetTransformation(const TString& volumePath,
+ TGeoHMatrix& matrix);
+
+ // Return the name of the shape and its parameters for the volume
+ // specified by the volume name.
+ virtual Bool_t GetShape(const TString& volumePath,
+ TString& shapeType, TArrayD& par);
+
+ // Returns the material parameters for the volume specified by
+ // the volume name.
+ virtual Bool_t GetMaterial(const TString& volumeName,
+ TString& name, Int_t& imat,
+ Double_t& a, Double_t& z, Double_t& density,
+ Double_t& radl, Double_t& inter, TArrayD& par);
+
+ // Returns the medium parameters for the volume specified by the
+ // volume name.
+ virtual Bool_t GetMedium(const TString& volumeName,
+ TString& name, Int_t& imed,
+ Int_t& nmat, Int_t& isvol, Int_t& ifield,
+ Double_t& fieldm, Double_t& tmaxfd, Double_t& stemax,
+ Double_t& deemax, Double_t& epsil, Double_t& stmin,
+ TArrayD& par);
+
virtual void SetCerenkov(Int_t itmed, Int_t npckov, Float_t *ppckov,
Float_t *absco, Float_t *effic, Float_t *rindex);
virtual void SetCerenkov(Int_t itmed, Int_t npckov, Double_t *ppckov,
virtual void SetCerenkov(Int_t itmed, Int_t npckov, Double_t *ppckov,
Double_t *absco, Double_t *effic, Double_t *rindex, Double_t *rfl);
+//
+ virtual void DefineOpSurface(const char* name, EMCOpSurfaceModel model, EMCOpSurfaceType surface,
+ EMCOpSurfaceFinish surfaceFinish, Double_t sigmaAlpha);
+
+ virtual void SetBorderSurface(const char* name, const char* vol1Name, int vol1CopyNo, const char* vol2Name, int vol2CopyNo,
+ const char* opSurfaceName);
+
+
+ virtual void SetSkinSurface(const char* name, const char* volName, const char* opSurfaceName);
+ virtual void SetMaterialProperty(Int_t itmed, const char* propertyName, Int_t np, Double_t* pp, Double_t* values);
+
+ virtual void SetMaterialProperty(Int_t itmed, const char* propertyName, Double_t value);
+
+ virtual void SetMaterialProperty(const char* surfaceName, const char* propertyName, Int_t np, Double_t* pp, Double_t* values);
+
// Functions for drawing
virtual void DrawOneSpec(const char* /*name*/)
- {printf("WARNING: DrawOneSpec not yet implemented !\n");}
+ {Warning("DrawOneSpec", "Not yet implemented !\n");}
virtual void Gsatt(const char* name, const char* att, Int_t val);
virtual void Gdraw(const char*,Double_t /*theta = 30*/, Double_t /*phi = 30*/,
Double_t /*psi = 0*/, Double_t /*u0 = 10*/, Double_t /*v0 = 10*/,
Double_t /*ul = 0.01*/, Double_t /*vl = 0.01*/)
- {printf("WARNING: Gdraw not yet implemented !\n");}
+ {Warning("Gdraw", "Not yet implemented !\n");}
// Euclid
virtual void WriteEuclid(const char*, const char*, Int_t, Int_t);
// Getters
+ Int_t GetDummyRegion() const;
+ Int_t GetDummyLattice() const;
virtual Int_t VolId(const Text_t* volName) const;
virtual const char* VolName(Int_t id) const;
virtual Int_t NofVolumes() const {return fNVolumes;}
virtual Int_t VolId2Mate(Int_t id) const;
+ // Return the unique numeric identifier for medium name mediumName
+ virtual Int_t MediumId(const Text_t* mediumName) const;
+
//
// Methods for physics management
// ------------------------------------------------
virtual void SetProcess(const char* flagName, Int_t flagValue, Int_t imed);
virtual Bool_t SetCut(const char* cutName, Double_t cutValue);
virtual void SetCut(const char* cutName, Double_t cutValue, Int_t imed);
+ virtual void SetModelParameter(const char* parName, Double_t parValue, Int_t imed);
virtual TObjArray* GetListOfUserConfigs() {return fUserConfig;}
virtual Double_t Xsec(char*, Double_t, Int_t, Int_t);
-
-
+ virtual void SetLowEnergyNeutronTransport(Bool_t flag) {fLowEnergyNeutronTransport = flag;}
+ virtual Bool_t LowEnergyNeutronTransport() {return fLowEnergyNeutronTransport;}
// Particle table usage
virtual Int_t IdFromPDG(Int_t id) const;
virtual Int_t PDGFromId(Int_t pdg) const;
virtual void DefineParticles()
- {printf("WARNING: DefineParticles not yet implemented !\n");}
+ {Warning("DefineParticles", "Not yet implemented !\n");}
//
// methods for step management
virtual Double_t MaxStep() const;
virtual Int_t GetMaxNStep() const
- {printf("WARNING: GetMaxNStep not yet implemented !\n"); return -1;}
+ {Warning("GetMaxNStep", "Not yet implemented !\n"); return -1;}
virtual Int_t GetMedium() const;
+ virtual Int_t CurrentMedium() const {return GetMedium();}
// Tracking particle
// dynamic properties
virtual Double_t TrackTime() const;
virtual Double_t Edep() const;
// Static properties
+ virtual Int_t CorrectFlukaId() const;
virtual Int_t TrackPid() const;
virtual Double_t TrackCharge() const;
virtual Double_t TrackMass() const;
// !!! need to be transformed to common interface
//
virtual void Gdopt(const char*,const char*)
- {printf("WARNING: Gdopt not yet implemented !\n");}
+ {Warning("Gdopt", "Not yet implemented !\n");}
virtual void SetClipBox(const char*,Double_t=-9999,Double_t=0, Double_t=-9999,
Double_t=0,Double_t=-9999,Double_t=0)
- {printf("WARNING: SetClipBox not yet implemented !\n");}
+ {Warning("SetClipBox", "Not yet implemented !\n");}
virtual void DefaultRange()
- {printf("WARNING: DefaultRange not yet implemented !\n");}
+ {Warning("DefaultRange", "Not yet implemented !\n");}
virtual void Gdhead(Int_t, const char*, Double_t=0)
- {printf("WARNING: Gdhead not yet implemented !\n");}
+ {Warning("Gdhead", "Not yet implemented !\n");}
virtual void Gdman(Double_t, Double_t, const char*)
- {printf("WARNING: Gdman not yet implemented !\n");}
+ {Warning("Gdman", "Not yet implemented !\n");}
virtual void SetColors()
- {printf("WARNING: SetColors not yet implemented !\n");}
+ {Warning("SetColors", "Not yet implemented !\n");}
virtual void Gtreve()
- {printf("WARNING: Gtreve not yet implemented !\n");}
+ {Warning("Gtreve", "Not yet implemented !\n");}
virtual void GtreveRoot()
- {printf("WARNING: GtreveRoot not yet implemented !\n");}
+ {Warning("GtreveRoot", "Not yet implemented !\n");}
virtual void Gckmat(Int_t, char*)
- {printf("WARNING: Gckmat not yet implemented !\n");}
+ {Warning("Gckmat", "Not yet implemented !\n");}
virtual void InitLego()
- {printf("WARNING: InitLego not yet implemented !\n");}
+ {Warning("InitLego", "Not yet implemented !\n");}
//
virtual void Gfpart(Int_t pdg, char* name, Int_t& type, Float_t& mass, Float_t& charge, Float_t& tlife);
virtual void Gspart(Int_t, const char*, Int_t, Double_t, Double_t, Double_t)
- {printf("WARNING: Gspart not yet implemented !\n");}
+ {Warning("Gspart", "Not yet implemented !\n");}
//
// Particle Properties
// -------------------
//
- virtual Bool_t DefineParticle(int, const char*, TMCParticleType, double, double, double) {return kFALSE;}
+ virtual Bool_t DefineParticle(Int_t, const char*, TMCParticleType, Double_t, Double_t, Double_t) {return kFALSE;}
+ virtual Bool_t DefineParticle(Int_t, const char*, TMCParticleType, Double_t, Double_t, Double_t,
+ const TString&, Double_t, Int_t, Int_t, Int_t, Int_t, Int_t, Int_t, Int_t, Int_t,
+ Bool_t, Bool_t = kFALSE, const TString& = "", Int_t = 0, Double_t = 0.0, Double_t = 0.0) {return kFALSE;}
virtual Bool_t DefineIon(const char*, int, int, int, double, double) {return kFALSE;}
virtual TString ParticleName(int pdg) const;
virtual Double_t ParticleMass(int pdg) const;
+ virtual Double_t ParticleMassFPC(int fpc) const;
virtual Double_t ParticleCharge(int pdg) const;
virtual Double_t ParticleLifeTime(int pdg) const;
virtual TMCParticleType ParticleMCType(int) const {return (TMCParticleType) 9;}
// FLUKA Scoring specific methods
// ------------------------------
//
- virtual void SetUserScoring(const char* option, Int_t npr,char* outfile, Float_t* what);
- virtual void SetUserScoring(const char* option, Int_t npr,char* outfile, Float_t* what,
+ virtual void SetUserScoring(const char* option, const char* sdum, Int_t npr,char* outfile, Float_t* what);
+ virtual void SetUserScoring(const char* option, const char* sdum, Int_t npr,char* outfile, Float_t* what,
const char* det1, const char* det2, const char* det3);
//
// New Getter and Setters
Int_t GetVerbosityLevel() const {return fVerbosityLevel;}
void SetVerbosityLevel(Int_t l) {fVerbosityLevel = l;}
- // - Fluka Draw procedures identifiers
- // bxdraw = 1 inside
- // bxdraw = 11 entering
- // bxdraw = 12 exiting
- // eedraw = 2
- // endraw = 3
- // mgdraw = 4
- // sodraw = 5
- // usdraw = 6
- Int_t GetCaller() const {return fCaller;}
- void SetCaller(Int_t l) {fCaller = l;}
-
- // - Fluka Draw procedures formal parameters
- Int_t GetIcode() const {return fIcode;}
- void SetIcode(Int_t l) {fIcode = l;}
- // in the case of sodraw fIcode=0
-
+ //
+ // - Fluka Draw procedures identifiers, see TFlukaCodes.h
+ //
+ FlukaCallerCode_t GetCaller() const {return fCaller;}
+ FlukaProcessCode_t GetIcode() const {return fIcode;}
Int_t GetMreg() const {return fCurrentFlukaRegion;}
- void SetMreg(Int_t l);
-
Int_t GetNewreg() const {return fNewReg;}
- void SetNewreg(Int_t l) {fNewReg = l;}
-
Double_t GetRull() const {return fRull;}
- void SetRull(Double_t r) {fRull = r;}
-
Double_t GetXsco() const {return fXsco;}
- void SetXsco(Double_t x) {fXsco = x;}
-
Double_t GetYsco() const {return fYsco;}
- void SetYsco(Double_t y) {fYsco = y;}
-
Double_t GetZsco() const {return fZsco;}
- void SetZsco(Double_t z) {fZsco = z;}
-
- void SetCurrentFlukaRegion(Int_t reg) {fCurrentFlukaRegion=reg;}
- Int_t GetCurrentFlukaRegion() const {return fCurrentFlukaRegion;}
+ Int_t GetCurrentFlukaRegion() const {return fCurrentFlukaRegion;}
+ // - Fluka Draw Setters
+ void SetCurrentFlukaRegion(Int_t reg) {fCurrentFlukaRegion=reg;}
+ void SetCaller(FlukaCallerCode_t l) {fCaller = l;}
+ void SetIcode(FlukaProcessCode_t l) {fIcode = l;}
+ void SetMreg(Int_t l, Int_t lttc);
+ void SetNewreg(Int_t l, Int_t /*lttc*/) {fNewReg = l;}
+ void SetRull(Double_t r) {fRull = r;}
+ void SetXsco(Double_t x) {fXsco = x;}
+ void SetYsco(Double_t y) {fYsco = y;}
+ void SetZsco(Double_t z) {fZsco = z;}
+ void SetPint(Double_t px, Double_t py, Double_t pz, Double_t e) {fPint[0] = px; fPint[1] = py; fPint[2] = pz; fPint[3] = e;}
+ void SetTrackIsEntering(){fTrackIsEntering = kTRUE; fTrackIsExiting = kFALSE;}
+ void SetTrackIsExiting() {fTrackIsExiting = kTRUE; fTrackIsEntering = kFALSE;}
+ void SetTrackIsInside() {fTrackIsExiting = kFALSE; fTrackIsEntering = kFALSE;}
+ void SetTrackIsNew(Bool_t flag = kTRUE);
void SetDummyBoundary(Int_t mode) {fDummyBoundary = mode;}
Int_t GetDummyBoundary() const {return fDummyBoundary;}
Bool_t IsDummyBoundary() const {return (fDummyBoundary==0)?kFALSE:kTRUE;}
- void SetGeneratePemf(Bool_t flag = kTRUE) {fGeneratePemf = flag;}
- Bool_t IsGeneratePemf() const {return fGeneratePemf;}
-
void EnableField(Bool_t flag=kTRUE) {fFieldFlag = flag;}
Bool_t IsFieldEnabled() const {return fFieldFlag;}
- void SetTrackIsEntering(){fTrackIsEntering = kTRUE; fTrackIsExiting = kFALSE;}
- void SetTrackIsExiting() {fTrackIsExiting = kTRUE; fTrackIsEntering = kFALSE;}
- void SetTrackIsInside() {fTrackIsExiting = kFALSE; fTrackIsEntering = kFALSE;}
- void SetTrackIsNew(Bool_t flag = kTRUE);
- Int_t GetMaterialIndex(Int_t idmat) const {return fMaterials[idmat];}
- TObjArray *GetFlukaMaterials();
- private:
- void PrintHeader();
- TFluka(const TFluka &mc): TVirtualMC(mc) {;}
- TFluka & operator=(const TFluka &) {return (*this);}
+ Int_t GetMaterialIndex(Int_t idmat) const {return fMaterials[idmat];}
+
+ TObjArray * GetFlukaMaterials();
+ virtual void SetRootGeometry() {;} // Dummy
+ virtual Int_t NofVolDaughters(const char* volName) const;
+ virtual const char* VolDaughterName(const char* volName, Int_t i) const;
+ virtual Int_t VolDaughterCopyNo(const char* volName, Int_t i) const;
+ virtual const char* CurrentVolPath();
+ virtual void ForceDecayTime(Float_t){;}
+ //
+ // Info about primary ionization electrons
+ Int_t GetNPrimaryElectrons();
+ Double_t GetPrimaryElectronKineticEnergy(Int_t i) const;
+ void GetPrimaryElectronPosition(Int_t i, Double_t& x, Double_t& y, Double_t& z, Double_t& t) const;
+ void SetCurrentPrimaryElectronIndex(Int_t i) {fPrimaryElectronIndex = i;}
+ void PrimaryIonisationStepping(Int_t nprim);
+ void CalcPrimaryIonisationTime();
+ void AddIon(Int_t a, Int_t z) const;
+ Int_t GetIonPdg(Int_t z, Int_t a, Int_t i = 0) const;
+ private:
+
+ // Copy constructor and operator= declared but not implemented (-Weff++ flag)
+ TFluka(const TFluka &mc); //: TVirtualMC(mc) {;}
+ TFluka & operator=(const TFluka &); // {return (*this);}
+
+ void PrintHeader();
+ void AddParticlesToPdgDataBase() const;
+
+ Int_t GetSpecialPdg(Int_t number) const;
+ Float_t* CreateFloatArray(Double_t* array, Int_t size) const;
+ //
Int_t fVerbosityLevel; //Verbosity level (0 lowest - 3 highest)
Int_t fNEvent; //Current event number
TString fInputFileName; //Name of the real input file
TString fCoreInputFileName; //Name of the input file
- Int_t fCaller; //Parameter to indicate who is the caller of the Fluka Draw
- Int_t fIcode; //Fluka Draw procedures formal parameter
- Int_t fNewReg; //Fluka Draw procedures formal parameter
- Double_t fRull; //Fluka Draw procedures formal parameter
- Double_t fXsco; //Fluka Draw procedures formal parameter
- Double_t fYsco; //Fluka Draw procedures formal parameter
- Double_t fZsco; //Fluka Draw procedures formal parameter
- Bool_t fTrackIsEntering; // Flag for track entering
- Bool_t fTrackIsExiting; // Flag for track exiting
- Bool_t fTrackIsNew; // Flag for new track
- Bool_t fFieldFlag; // Flag for magnetic field
- Bool_t fGeneratePemf; // Flag for automatic .pemf generation
- Int_t fDummyBoundary; // Flag for crossing dummy boundaries
- Bool_t fStopped; // Flag for stopping
- Bool_t fStopEvent; // Flag for stopped event
- Bool_t fStopRun; // Flag for stopped run
+ FlukaCallerCode_t fCaller; // Parameter to indicate who is the caller of the Fluka Draw
+ FlukaProcessCode_t fIcode; // Fluka Draw procedures formal parameter
+ Int_t fNewReg; // Fluka Draw procedures formal parameter
+ Double_t fRull; // Fluka Draw procedures formal parameter
+ Double_t fXsco; // Fluka Draw procedures formal parameter
+ Double_t fYsco; // Fluka Draw procedures formal parameter
+ Double_t fZsco; // Fluka Draw procedures formal parameter
+ Double_t fPint[4]; // 4-vector of particle after interaction
+ Double_t* fPItime; // Time distribution of primary ionisations
+ Double_t* fPIlength; // Track length distribution of primary ionisations
+ Int_t fNPI; // Number of primary ionisation steps
+ Bool_t fTrackIsEntering; // Flag for track entering
+ Bool_t fTrackIsExiting; // Flag for track exiting
+ Bool_t fTrackIsNew; // Flag for new track
+ Bool_t fFieldFlag; // Flag for magnetic field
+ Int_t fDummyBoundary; // Flag for crossing dummy boundaries
+ Bool_t fStopped; // Flag for stopping
+ Bool_t fStopEvent; // Flag for stopped event
+ Bool_t fStopRun; // Flag for stopped run
+ Int_t fPrimaryElectronIndex; // Primary electron Index
+ Bool_t fLowEnergyNeutronTransport; // Flag to force low energy neutron transport
//
//Geometry through TGeo
TObjArray* fUserConfig; // List of user physics configuration
TObjArray* fUserScore; // List of user scoring options
+
ClassDef(TFluka,1) //C++ interface to Fluka montecarlo
+
+
+ // Temporary implementation of new functions
+ // To be removed with the next release
};
+ inline Int_t TFluka::NofVolDaughters(const char* /*volName*/) const {
+ Warning("NofVolDaughters", "New function - not yet implemented.");
+ return 0;
+ }
+
+ inline const char* TFluka::VolDaughterName(const char* /*volName*/, Int_t /*i*/) const {
+ Warning("VolDaughterName", "New function - not yet implemented.");
+ return "";
+ }
+
+ inline Int_t TFluka::VolDaughterCopyNo(const char* /*volName*/, Int_t /*i*/) const {
+ Warning("VolDaughterCopyNo", "New function - not yet implemented.");
+ return 0;
+ }
+
+
+inline void TFluka::DefineOpSurface(const char* /*name*/, EMCOpSurfaceModel /*model*/, EMCOpSurfaceType /*surface*/,
+ EMCOpSurfaceFinish /*surfaceFinish*/, Double_t /*sigmaAlpha*/)
+{
+ Warning("DefineOpSurface", "New function - not yet implemented.");
+}
+
+
+inline void TFluka::SetBorderSurface(const char* /*name*/, const char* /*vol1Name*/, int /*vol1CopyNo*/, const char* /*vol2Name*/,
+ int /*vol2CopyNo*/, const char* /*opSurfaceName*/)
+{
+ Warning("SetBorderSurface", "New function - not yet implemented.");
+}
+
+
+inline void TFluka::SetSkinSurface(const char* /*name*/, const char* /*volName*/, const char* /*opSurfaceName*/)
+{
+ Warning("SetSkinSurface", "New function - not yet implemented.");
+}
+
+
+inline void TFluka::SetMaterialProperty(Int_t /*itmed*/, const char* /*propertyName*/, Int_t /*np*/, Double_t* /*pp*/, Double_t* /*values*/)
+{
+ Warning("SetMaterialProperty", "New function - not yet implemented.");
+}
+
+
+inline void TFluka::SetMaterialProperty(Int_t /*itmed*/, const char* /*propertyName*/, Double_t /*value*/)
+{
+ Warning("SetMaterialProperty", "New function - not yet implemented.");
+}
+
+
+inline void TFluka::SetMaterialProperty(const char* /*surfaceName*/, const char* /*propertyName*/, Int_t /*np*/,
+ Double_t* /*pp*/, Double_t* /*values*/)
+{
+ Warning("SetMaterialProperty", "New function - not yet implemented.");
+}
+
+
#endif //TFLUKA