Geant4 Cross Reference

Cross-Referencing   Geant4
Geant4/processes/hadronic/management/src/G4HadronicProcess.cc

Version: [ ReleaseNotes ] [ 1.0 ] [ 1.1 ] [ 2.0 ] [ 3.0 ] [ 3.1 ] [ 3.2 ] [ 4.0 ] [ 4.0.p1 ] [ 4.0.p2 ] [ 4.1 ] [ 4.1.p1 ] [ 5.0 ] [ 5.0.p1 ] [ 5.1 ] [ 5.1.p1 ] [ 5.2 ] [ 5.2.p1 ] [ 5.2.p2 ] [ 6.0 ] [ 6.0.p1 ] [ 6.1 ] [ 6.2 ] [ 6.2.p1 ] [ 6.2.p2 ] [ 7.0 ] [ 7.0.p1 ] [ 7.1 ] [ 7.1.p1 ] [ 8.0 ] [ 8.0.p1 ] [ 8.1 ] [ 8.1.p1 ] [ 8.1.p2 ] [ 8.2 ] [ 8.2.p1 ] [ 8.3 ] [ 8.3.p1 ] [ 8.3.p2 ] [ 9.0 ] [ 9.0.p1 ] [ 9.0.p2 ] [ 9.1 ] [ 9.1.p1 ] [ 9.1.p2 ] [ 9.1.p3 ] [ 9.2 ] [ 9.2.p1 ] [ 9.2.p2 ] [ 9.2.p3 ] [ 9.2.p4 ] [ 9.3 ] [ 9.3.p1 ] [ 9.3.p2 ] [ 9.4 ] [ 9.4.p1 ] [ 9.4.p2 ] [ 9.4.p3 ] [ 9.4.p4 ] [ 9.5 ] [ 9.5.p1 ] [ 9.5.p2 ] [ 9.6 ] [ 9.6.p1 ] [ 9.6.p2 ] [ 9.6.p3 ] [ 9.6.p4 ] [ 10.0 ] [ 10.0.p1 ] [ 10.0.p2 ] [ 10.0.p3 ] [ 10.0.p4 ] [ 10.1 ] [ 10.1.p1 ] [ 10.1.p2 ] [ 10.1.p3 ] [ 10.2 ] [ 10.2.p1 ] [ 10.2.p2 ] [ 10.2.p3 ] [ 10.3 ] [ 10.3.p1 ] [ 10.3.p2 ] [ 10.3.p3 ] [ 10.4 ] [ 10.4.p1 ] [ 10.4.p2 ] [ 10.4.p3 ] [ 10.5 ] [ 10.5.p1 ] [ 10.6 ] [ 10.6.p1 ] [ 10.6.p2 ] [ 10.6.p3 ] [ 10.7 ] [ 10.7.p1 ] [ 10.7.p2 ] [ 10.7.p3 ] [ 10.7.p4 ] [ 11.0 ] [ 11.0.p1 ] [ 11.0.p2 ] [ 11.0.p3, ] [ 11.0.p4 ] [ 11.1 ] [ 11.1.1 ] [ 11.1.2 ] [ 11.1.3 ] [ 11.2 ] [ 11.2.1 ] [ 11.2.2 ] [ 11.3.0 ]

Diff markup

Differences between /processes/hadronic/management/src/G4HadronicProcess.cc (Version 11.3.0) and /processes/hadronic/management/src/G4HadronicProcess.cc (Version 6.2.p2)


  1 //                                                  1 //
  2 // *******************************************      2 // ********************************************************************
  3 // * License and Disclaimer                    <<   3 // * DISCLAIMER                                                       *
  4 // *                                                4 // *                                                                  *
  5 // * The  Geant4 software  is  copyright of th <<   5 // * The following disclaimer summarizes all the specific disclaimers *
  6 // * the Geant4 Collaboration.  It is provided <<   6 // * of contributors to this software. The specific disclaimers,which *
  7 // * conditions of the Geant4 Software License <<   7 // * govern, are listed with their locations in:                      *
  8 // * LICENSE and available at  http://cern.ch/ <<   8 // *   http://cern.ch/geant4/license                                  *
  9 // * include a list of copyright holders.      << 
 10 // *                                                9 // *                                                                  *
 11 // * Neither the authors of this software syst     10 // * Neither the authors of this software system, nor their employing *
 12 // * institutes,nor the agencies providing fin     11 // * institutes,nor the agencies providing financial support for this *
 13 // * work  make  any representation or  warran     12 // * work  make  any representation or  warranty, express or implied, *
 14 // * regarding  this  software system or assum     13 // * regarding  this  software system or assume any liability for its *
 15 // * use.  Please see the license in the file  <<  14 // * use.                                                             *
 16 // * for the full disclaimer and the limitatio << 
 17 // *                                               15 // *                                                                  *
 18 // * This  code  implementation is the result  <<  16 // * This  code  implementation is the  intellectual property  of the *
 19 // * technical work of the GEANT4 collaboratio <<  17 // * GEANT4 collaboration.                                            *
 20 // * By using,  copying,  modifying or  distri <<  18 // * By copying,  distributing  or modifying the Program (or any work *
 21 // * any work based  on the software)  you  ag <<  19 // * based  on  the Program)  you indicate  your  acceptance of  this *
 22 // * use  in  resulting  scientific  publicati <<  20 // * statement, and all its terms.                                    *
 23 // * acceptance of all terms of the Geant4 Sof << 
 24 // *******************************************     21 // ********************************************************************
 25 //                                                 22 //
 26 //                                                 23 //
 27 // ------------------------------------------- << 
 28 //                                                 24 //
 29 // GEANT4 Class source file                    <<  25 // HPW to implement the choosing of an element for scattering.
 30 //                                             << 
 31 // G4HadronicProcess                           << 
 32 //                                             << 
 33 // original by H.P.Wellisch                    << 
 34 // J.L. Chuma, TRIUMF, 10-Mar-1997             << 
 35 //                                             << 
 36 // Modifications:                              << 
 37 // 05-Jul-2010 V.Ivanchenko cleanup commented  << 
 38 // 20-Jul-2011 M.Kelsey -- null-pointer checks << 
 39 // 24-Sep-2011 M.Kelsey -- Use envvar G4HADRON << 
 40 //    engine state before each model call      << 
 41 // 18-Oct-2011 M.Kelsey -- Handle final-state  << 
 42 // 14-Mar-2012 G.Folger -- enhance checks for  << 
 43 // 28-Jul-2012 M.Maire  -- add function GetTar << 
 44 // 14-Sep-2012 Inherit from RestDiscrete, use  << 
 45 //    configure base-class                     << 
 46 // 28-Sep-2012 Restore inheritance from G4VDis << 
 47 //    changing, remove warning message from or << 
 48 // 21-Aug-2019 V.Ivanchenko leave try/catch on << 
 49                                                << 
 50 #include "G4HadronicProcess.hh"                << 
 51                                                    26 
 52 #include "G4Types.hh"                              27 #include "G4Types.hh"
 53 #include "G4SystemOfUnits.hh"                  <<  28 
                                                   >>  29 #include <fstream>
                                                   >>  30 #include <strstream>
                                                   >>  31 #include <stdlib.h>
                                                   >>  32 #include "G4HadronicProcess.hh"
                                                   >>  33 #include "G4EffectiveCharge.hh"
 54 #include "G4HadProjectile.hh"                      34 #include "G4HadProjectile.hh"
 55 #include "G4ElementVector.hh"                      35 #include "G4ElementVector.hh"
 56 #include "G4Track.hh"                              36 #include "G4Track.hh"
 57 #include "G4Step.hh"                               37 #include "G4Step.hh"
 58 #include "G4Element.hh"                            38 #include "G4Element.hh"
 59 #include "G4ParticleChange.hh"                     39 #include "G4ParticleChange.hh"
                                                   >>  40 #include "G4TransportationManager.hh"
                                                   >>  41 #include "G4Navigator.hh"
 60 #include "G4ProcessVector.hh"                      42 #include "G4ProcessVector.hh"
 61 #include "G4ProcessManager.hh"                     43 #include "G4ProcessManager.hh"
 62 #include "G4NucleiProperties.hh"               <<  44 #include "G4StableIsotopes.hh"
                                                   >>  45 #include "G4HadTmpUtil.hh"
 63                                                    46 
                                                   >>  47 #include "G4HadLeadBias.hh"
 64 #include "G4HadronicException.hh"                  48 #include "G4HadronicException.hh"
 65 #include "G4HadronicProcessStore.hh"           <<  49 #include "G4HadReentrentException.hh"
 66 #include "G4HadronicParameters.hh"             <<  50 #include "G4HadronicInteractionWrapper.hh"
 67 #include "G4VCrossSectionDataSet.hh"           << 
 68                                                << 
 69 #include "G4NistManager.hh"                    << 
 70 #include "G4VLeadingParticleBiasing.hh"        << 
 71 #include "G4HadXSHelper.hh"                    << 
 72 #include "G4Threading.hh"                      << 
 73 #include "G4Exp.hh"                            << 
 74                                                << 
 75 #include <typeinfo>                            << 
 76 #include <sstream>                             << 
 77 #include <iostream>                            << 
 78                                                    51 
 79 namespace                                      <<  52 #include "G4HadSignalHandler.hh"
 80 {                                              << 
 81   constexpr G4double lambdaFactor = 0.8;       << 
 82   constexpr G4double invLambdaFactor = 1.0/lam << 
 83 }                                              << 
 84                                                << 
 85 ////////////////////////////////////////////// << 
 86                                                    53 
 87 G4HadronicProcess::G4HadronicProcess(const G4S <<  54 //@@ add model name info, once typeinfo available #include <typeinfo.h>
 88                                      G4Process << 
 89  : G4VDiscreteProcess(processName, procType)   << 
 90 {                                              << 
 91   SetProcessSubType(fHadronInelastic);  // Def << 
 92   InitialiseLocal();                           << 
 93 }                                              << 
 94                                                << 
 95 G4HadronicProcess::G4HadronicProcess(const G4S << 
 96                                      G4Hadroni << 
 97  : G4VDiscreteProcess(processName, fHadronic)  << 
 98 {                                              << 
 99   SetProcessSubType(aHadSubType);              << 
100   InitialiseLocal();                           << 
101 }                                              << 
102                                                    55 
103 G4HadronicProcess::~G4HadronicProcess()        <<  56   namespace G4HadronicProcess_local
104 {                                              <<  57   {
105   theProcessStore->DeRegister(this);           <<  58     extern "C" void G4HadronicProcessHandler_1(int)
106   delete theTotalResult;                       <<  59     {
107   delete theCrossSectionDataStore;             <<  60       G4HadronicWhiteBoard::Instance().Dump();
108   if(isMaster) {                               << 
109     if (fXSpeaks != nullptr) {                 << 
110       for (auto const& e : *fXSpeaks ) {       << 
111         delete e;                              << 
112       }                                        << 
113     }                                              61     }
114     delete fXSpeaks;                           <<  62   } 
115     delete theEnergyOfCrossSectionMax;         <<  63  
116   }                                            <<  64  G4IsoParticleChange * G4HadronicProcess::theIsoResult = NULL;
117 }                                              <<  65  G4IsoParticleChange * G4HadronicProcess::theOldIsoResult = NULL;
118                                                <<  66  G4bool G4HadronicProcess::isoIsEnabled = true;
119 void G4HadronicProcess::InitialiseLocal() {    <<  67  
120   theTotalResult = new G4ParticleChange();     <<  68  void G4HadronicProcess::
121   theTotalResult->SetSecondaryWeightByProcess( <<  69  EnableIsotopeProductionGlobally()  {isoIsEnabled = true;}
122   theCrossSectionDataStore = new G4CrossSectio <<  70  
123   theProcessStore = G4HadronicProcessStore::In <<  71  void G4HadronicProcess::
124   theProcessStore->Register(this);             <<  72  DisableIsotopeProductionGlobally() {isoIsEnabled = false;}
125   minKinEnergy = 1*CLHEP::MeV;                 <<  73  
126                                                <<  74  G4HadronicProcess::G4HadronicProcess( const G4String &processName) :
127   G4HadronicParameters* param = G4HadronicPara <<  75       G4VDiscreteProcess( processName )
128   epReportLevel = param->GetEPReportLevel();   <<  76  { 
129   epCheckLevels.first = param->GetEPRelativeLe <<  77    ModelingState = 0;
130   epCheckLevels.second = param->GetEPAbsoluteL <<  78    isoIsOnAnyway = 0;
131                                                <<  79    theTotalResult = new G4ParticleChange();
132   unitVector.set(0.0, 0.0, 0.1);               <<  80    theCrossSectionDataStore = new G4CrossSectionDataStore();
133   if(G4Threading::IsWorkerThread()) { isMaster <<  81    aScaleFactor = 1;
134 }                                              <<  82    xBiasOn = false;
135                                                <<  83    if(getenv("SwitchLeadBiasOn")) theBias.push_back(new G4HadLeadBias());
136 void G4HadronicProcess::RegisterMe( G4Hadronic <<  84  }
137 {                                              <<  85 
138   if(nullptr == a) { return; }                 <<  86  G4HadronicProcess::~G4HadronicProcess()
139   theEnergyRangeManager.RegisterMe( a );       <<  87  { 
140   G4HadronicProcessStore::Instance()->Register <<  88    delete theTotalResult;
141 }                                              <<  89    std::for_each(theProductionModels.begin(), 
                                                   >>  90             theProductionModels.end(), 
                                                   >>  91       G4Delete());
                                                   >>  92    std::for_each(theBias.begin(), 
                                                   >>  93             theBias.end(), 
                                                   >>  94       G4Delete());
                                                   >>  95    if(theOldIsoResult) delete theOldIsoResult;
                                                   >>  96    // if(theIsoResult) delete theIsoResult;
                                                   >>  97  }
                                                   >>  98 
                                                   >>  99  void G4HadronicProcess::RegisterMe( G4HadronicInteraction *a )
                                                   >> 100  { 
                                                   >> 101    try{GetManagerPointer()->RegisterMe( a );}   
                                                   >> 102    catch(G4HadronicException & aE)
                                                   >> 103    {
                                                   >> 104      aE.Report(std::cout);
                                                   >> 105      G4Exception("G4HadronicProcess", "007", FatalException,
                                                   >> 106                  "Could not register G4HadronicInteraction");
                                                   >> 107    }
                                                   >> 108  }
142                                                   109 
143 G4double                                       << 110 G4double G4HadronicProcess::
144 G4HadronicProcess::GetElementCrossSection(cons << 111 GetMeanFreePath(const G4Track &aTrack, G4double, G4ForceCondition *)
145             const G4Element * elm,             << 112 { 
146             const G4Material* mat)             << 113 /*
147 {                                              << 114   if(ReStarted)
148   if(nullptr == mat)                           << 
149   {                                               115   {
150     static const G4int nmax = 5;               << 116     if(trackIdCache == aTrack.GetTrackId())
151     if(nMatWarn < nmax) {                      << 117     {
152       ++nMatWarn;                              << 118       theInitialNumberOfInteractionLength += G4VProcess::theNumberOfInteractionLengthLeft;
153       G4ExceptionDescription ed;               << 119       
154       ed << "Cannot compute Element x-section  << 
155    << " because no material defined \n"        << 
156    << " Please, specify material pointer or de << 
157    << " for Z= " << elm->GetZasInt();          << 
158       G4Exception("G4HadronicProcess::GetEleme << 
159       JustWarning, ed);                        << 
160     }                                             120     }
                                                   >> 121     else
                                                   >> 122     {
                                                   >> 123       theInitialNumberOfInteractionLength = G4VProcess::theNumberOfInteractionLengthLeft;
                                                   >> 124     }
                                                   >> 125     trackIdCache = aTrack.GetTrackId();
                                                   >> 126     ReStarted = false;
161   }                                               127   }
162   return theCrossSectionDataStore->GetCrossSec << 128 */ 
163 }                                              << 129   G4double sigma = 0.0;
164                                                << 130   try
165 void G4HadronicProcess::PreparePhysicsTable(co << 131   {
166 {                                              << 132     const G4DynamicParticle *aParticle = aTrack.GetDynamicParticle();
167   if(nullptr == firstParticle) { firstParticle << 133     if( !IsApplicable(*aParticle->GetDefinition()))
168   theProcessStore->RegisterParticle(this, &p); << 134     {
                                                   >> 135       G4cout << "Unrecoverable error: "<<G4endl;
                                                   >> 136       G4ProcessManager * it = aParticle->GetDefinition()->GetProcessManager();
                                                   >> 137       G4ProcessVector * itv = it->GetProcessList();
                                                   >> 138       G4cout <<aParticle->GetDefinition()->GetParticleName()<< 
                                                   >> 139            " has the following processes:"<<G4endl;
                                                   >> 140       for(G4int i=0; i<itv->size(); i++)
                                                   >> 141       {
                                                   >> 142   G4cout <<"  "<<(*itv)[i]->GetProcessName()<<G4endl;    
                                                   >> 143       }
                                                   >> 144       G4cout << "for kinetic energy "<<aParticle->GetKineticEnergy()<<G4endl;
                                                   >> 145       G4cout << "and material "<<aTrack.GetMaterial()->GetName()<<G4endl;
                                                   >> 146       G4Exception("G4HadronicProcess", "007", FatalException,
                                                   >> 147                    std::string(this->GetProcessName()+
                                                   >> 148                    " was called for "+
                                                   >> 149                    aParticle->GetDefinition()->GetParticleName()).c_str() );
                                                   >> 150     }
                                                   >> 151     G4Material *aMaterial = aTrack.GetMaterial();
                                                   >> 152     G4int nElements = aMaterial->GetNumberOfElements();
                                                   >> 153     ModelingState = 1;
                                                   >> 154     
                                                   >> 155     // returns the mean free path in GEANT4 internal units
                                                   >> 156     
                                                   >> 157     const G4double *theAtomicNumDensityVector =
                                                   >> 158       aMaterial->GetAtomicNumDensityVector();
                                                   >> 159     
                                                   >> 160     G4double aTemp = aMaterial->GetTemperature();
                                                   >> 161         
                                                   >> 162     for( G4int i=0; i<nElements; ++i )
                                                   >> 163     {
                                                   >> 164       G4double xSection =
                                                   >> 165         GetMicroscopicCrossSection( aParticle, (*aMaterial->GetElementVector())[i], aTemp);
                                                   >> 166       sigma += theAtomicNumDensityVector[i] * xSection;
                                                   >> 167     }
                                                   >> 168     sigma *= aScaleFactor;
                                                   >> 169     theLastCrossSection = sigma;
                                                   >> 170   }
                                                   >> 171   catch(G4HadronicException aR)
                                                   >> 172   { 
                                                   >> 173     aR.Report(G4cout); 
                                                   >> 174     G4Exception("G4HadronicProcess", "007", FatalException,
                                                   >> 175                 "G4HadronicProcess::GetMeanFreePath failed");
                                                   >> 176   } 
                                                   >> 177   if( sigma > 0.0 )
                                                   >> 178     return 1.0/sigma;
                                                   >> 179   else
                                                   >> 180     return DBL_MAX;
169 }                                                 181 }
170                                                   182 
171 void G4HadronicProcess::BuildPhysicsTable(cons << 183  G4double G4HadronicProcess::GetDistanceToBoundary(const G4Track & aT)
172 {                                              << 184  {
173   if(firstParticle != &p) { return; }          << 185    G4TransportationManager * aTM = 
174                                                << 186    G4TransportationManager::GetTransportationManager();
175   theCrossSectionDataStore->BuildPhysicsTable( << 187    G4Navigator * aN = aTM->GetNavigatorForTracking();
176   theEnergyRangeManager.BuildPhysicsTable(p);  << 188    G4ThreeVector pGlobalPoint = aT.GetStep()->GetPreStepPoint()->GetPosition();
177   G4HadronicParameters* param = G4HadronicPara << 189    G4ThreeVector pDirection = aT.GetMomentumDirection();
178                                                << 190    G4double dummy(0);
179   G4int subtype = GetProcessSubType();         << 191    G4double result = aN->ComputeStep(pGlobalPoint, pDirection, DBL_MAX, dummy);
180   if(useIntegralXS) {                          << 192    aN->LocateGlobalPointAndSetup(pGlobalPoint);
181     if(subtype == fHadronInelastic) {          << 193    return result;
182       useIntegralXS = param->EnableIntegralIne << 194  }
183     } else if(subtype == fHadronElastic) {     << 
184       useIntegralXS = param->EnableIntegralEla << 
185     }                                          << 
186   }                                            << 
187   fXSType = fHadNoIntegral;                    << 
188                                                << 
189   if(nullptr == masterProcess) {               << 
190     masterProcess = dynamic_cast<const G4Hadro << 
191   }                                            << 
192   if(nullptr == masterProcess) {               << 
193     if(1 < param->GetVerboseLevel()) {         << 
194       G4ExceptionDescription ed;               << 
195       ed << "G4HadronicProcess::BuildPhysicsTa << 
196    << GetProcessName() << " for " << p.GetPart << 
197    << " fail due to undefined pointer to the m << 
198    << "  ThreadID= " << G4Threading::G4GetThre << 
199    << "  initialisation of worker started befo << 
200       G4Exception("G4HadronicProcess::BuildPhy << 
201       JustWarning, ed);                        << 
202     }                                          << 
203   }                                            << 
204                                                   195 
205   // check particle for integral method        << 196  G4Element * G4HadronicProcess::ChooseAandZ(
206   if(isMaster || nullptr == masterProcess) {   << 197   const G4DynamicParticle *aParticle, const G4Material *aMaterial )
207     G4double charge = p.GetPDGCharge()/eplus;  << 198   {
208                                                << 199     static G4bool noIsotopeWiseCrossSections=getenv("GHAD_DISABLE_ISOTOPE_WISE_CROSS_SECTIONS");
209     // select cross section shape              << 200     static G4StableIsotopes theIso;
210     if(charge != 0.0 && useIntegralXS) {       << 201     currentZ = 0;
211       G4double tmax = param->GetMaxEnergy();   << 202     currentN = 0;
212       currentParticle = firstParticle;         << 203     const G4int numberOfElements = aMaterial->GetNumberOfElements();
213       // initialisation in the master thread   << 204     const G4ElementVector *theElementVector = aMaterial->GetElementVector();
214       G4int pdg = p.GetPDGEncoding();          << 205     G4int i;
215       if (std::abs(pdg) == 211) {              << 206     if( numberOfElements == 1 ) 
216   fXSType = fHadTwoPeaks;                      << 207     {
217       } else if (pdg == 321) {                 << 208       currentZ = G4double( ((*theElementVector)[0])->GetZ());
218   fXSType = fHadOnePeak;                       << 209       G4int localZ = G4lrint(currentZ);
219       } else if (pdg == -321) {                << 210       if(noIsotopeWiseCrossSections)
220   fXSType = fHadDecreasing;                    << 211       {
221       } else if (pdg == 2212) {                << 212         currentN = (*theElementVector)[0]->GetN();
222   fXSType = fHadTwoPeaks;                      << 213       }
223       } else if (pdg == -2212 || pdg == -10000 << 214       else
224      pdg == -1000020030 || pdg == -1000020040) << 215       {
225   fXSType = fHadDecreasing;                    << 216         G4double * running = new G4double[theIso.GetNumberOfIsotopes(localZ)];
226       } else if (charge > 0.0 || pdg == 11 ||  << 217   for (i=0; i<theIso.GetNumberOfIsotopes(localZ); i++)
227   fXSType = fHadIncreasing;                    << 218         {
228       }                                        << 219           G4double fracInPercent=theIso.GetAbundance(theIso.GetFirstIsotope(localZ)+i);
229                                                << 220           G4double runningA=theIso.GetIsotopeNucleonCount(theIso.GetFirstIsotope(localZ)+i);
230       delete theEnergyOfCrossSectionMax;       << 221     running[i]=fracInPercent*pow(runningA, 2./3.);
231       theEnergyOfCrossSectionMax = nullptr;    << 222     // rough approximation; to get it better, redesign getMSC to not use G4Element, see also below
232       if(fXSType == fHadTwoPeaks) {            << 223     if(i!=0) running[i] += running[i-1];
233         if (fXSpeaks != nullptr) {             << 
234           for (auto const& e : *fXSpeaks ) {   << 
235             delete e;                          << 
236           }                                    << 
237         }                                         224         }
238   delete fXSpeaks;                             << 225   G4double trial = G4UniformRand();
239   fXSpeaks =                                   << 226   G4double sum = running[theIso.GetNumberOfIsotopes(localZ)-1];
240     G4HadXSHelper::FillPeaksStructure(this, &p << 227   for(i=0; i<theIso.GetNumberOfIsotopes(localZ); i++)
241   if(nullptr == fXSpeaks) {                    << 228   {
242     fXSType = fHadOnePeak;                     << 229     currentN = theIso.GetIsotopeNucleonCount(theIso.GetFirstIsotope(localZ)+i);
                                                   >> 230     if(running[i]/sum>trial) break;
243   }                                               231   }
                                                   >> 232   delete [] running;
244       }                                           233       }
245       if(fXSType == fHadOnePeak) {             << 234       targetNucleus.SetParameters(currentN, currentZ);
246   theEnergyOfCrossSectionMax =                 << 235       return (*theElementVector)[0];
247     G4HadXSHelper::FindCrossSectionMax(this, & << 236     }
248   if(nullptr == theEnergyOfCrossSectionMax) {  << 237     
249     fXSType = fHadIncreasing;                  << 238     const G4double *theAtomicNumberDensity = aMaterial->GetAtomicNumDensityVector();
                                                   >> 239     G4double aTemp = aMaterial->GetTemperature();
                                                   >> 240     G4double crossSectionTotal = 0;
                                                   >> 241     std::vector<G4double> runningSum;
                                                   >> 242     for( i=0; i < numberOfElements; ++i )
                                                   >> 243     {
                                                   >> 244       runningSum.push_back(theAtomicNumberDensity[i] *
                                                   >> 245         dispatch->GetMicroscopicCrossSection( aParticle, (*theElementVector)[i], aTemp));
                                                   >> 246       crossSectionTotal+=runningSum[i];
                                                   >> 247     }
                                                   >> 248     
                                                   >> 249     G4double random = G4UniformRand();
                                                   >> 250     for( i=0; i < numberOfElements; ++i )
                                                   >> 251     { 
                                                   >> 252       if(i!=0) runningSum[i]+=runningSum[i-1];
                                                   >> 253       if( random<=runningSum[i]/crossSectionTotal )
                                                   >> 254       {
                                                   >> 255         currentZ = G4double( ((*theElementVector)[i])->GetZ());
                                                   >> 256         G4int localZ = G4lrint(currentZ);
                                                   >> 257         if(noIsotopeWiseCrossSections)
                                                   >> 258         {
                                                   >> 259           currentN = ((*theElementVector)[i])->GetN();
                                                   >> 260         }
                                                   >> 261   else
                                                   >> 262   {
                                                   >> 263           G4double * running = new G4double[theIso.GetNumberOfIsotopes(localZ)];
                                                   >> 264     for (i=0; i<theIso.GetNumberOfIsotopes(localZ); i++)
                                                   >> 265           {
                                                   >> 266             G4double fracInPercent=theIso.GetAbundance(theIso.GetFirstIsotope(localZ)+i);
                                                   >> 267             G4double runningA=theIso.GetIsotopeNucleonCount(theIso.GetFirstIsotope(localZ)+i);
                                                   >> 268       running[i]=fracInPercent*pow(runningA, 2./3.);
                                                   >> 269       if(i!=0) running[i] += running[i-1];
                                                   >> 270           }
                                                   >> 271     G4double trial = G4UniformRand();
                                                   >> 272     for(i=0; i<theIso.GetNumberOfIsotopes(localZ); i++)
                                                   >> 273     {
                                                   >> 274       currentN = theIso.GetIsotopeNucleonCount(theIso.GetFirstIsotope(localZ)+i);
                                                   >> 275       if(running[i]/running[theIso.GetNumberOfIsotopes(localZ)-1]>trial) break;
                                                   >> 276     }
                                                   >> 277       delete [] running;
250   }                                               278   }
                                                   >> 279   targetNucleus.SetParameters(currentN, currentZ);
                                                   >> 280         return (*theElementVector)[i];
251       }                                           281       }
252     }                                             282     }
253   } else {                                     << 283     currentZ = G4double((*theElementVector)[numberOfElements-1]->GetZ());
254     // initialisation in worker threads        << 284     G4int localZ = G4lrint(currentZ);
255     fXSType = masterProcess->CrossSectionType( << 285     if(noIsotopeWiseCrossSections)
256     fXSpeaks = masterProcess->TwoPeaksXS();    << 286     {
257     theEnergyOfCrossSectionMax = masterProcess << 287       currentN = (*theElementVector)[numberOfElements-1]->GetN();
258   }                                            << 
259   if(isMaster && 1 < param->GetVerboseLevel()) << 
260     G4cout << "G4HadronicProcess::BuildPhysics << 
261      << GetProcessName() << " and " << p.GetPa << 
262      << " typeXS=" << fXSType << G4endl;       << 
263   }                                            << 
264   G4HadronicProcessStore::Instance()->PrintInf << 
265 }                                              << 
266                                                << 
267 void G4HadronicProcess::StartTracking(G4Track* << 
268 {                                              << 
269   currentMat = nullptr;                        << 
270   currentParticle = track->GetDefinition();    << 
271   fDynParticle = track->GetDynamicParticle();  << 
272   theNumberOfInteractionLengthLeft = -1.0;     << 
273 }                                              << 
274                                                << 
275 G4double G4HadronicProcess::PostStepGetPhysica << 
276                              const G4Track& tr << 
277            G4double previousStepSize,          << 
278                              G4ForceCondition* << 
279 {                                              << 
280   *condition = NotForced;                      << 
281                                                << 
282   const G4Material* mat = track.GetMaterial(); << 
283   if(mat != currentMat) {                      << 
284     currentMat = mat;                          << 
285     mfpKinEnergy = DBL_MAX;                    << 
286     matIdx = (G4int)track.GetMaterial()->GetIn << 
287   }                                            << 
288   UpdateCrossSectionAndMFP(track.GetKineticEne << 
289                                                << 
290   // zero cross section                        << 
291   if(theLastCrossSection <= 0.0) {             << 
292     theNumberOfInteractionLengthLeft = -1.0;   << 
293     currentInteractionLength = DBL_MAX;        << 
294     return DBL_MAX;                            << 
295   }                                            << 
296                                                << 
297   // non-zero cross section                    << 
298   if (theNumberOfInteractionLengthLeft < 0.0)  << 
299     theNumberOfInteractionLengthLeft = -G4Log( << 
300     theInitialNumberOfInteractionLength = theN << 
301   } else {                                     << 
302     theNumberOfInteractionLengthLeft -=        << 
303       previousStepSize/currentInteractionLengt << 
304     theNumberOfInteractionLengthLeft =         << 
305       std::max(theNumberOfInteractionLengthLef << 
306   }                                            << 
307   currentInteractionLength = theMFP;           << 
308   return theNumberOfInteractionLengthLeft*theM << 
309 }                                              << 
310                                                << 
311 G4double G4HadronicProcess::GetMeanFreePath(   << 
312                             const G4Track &aTr << 
313                             G4ForceCondition*) << 
314 {                                              << 
315   G4double xs = aScaleFactor*theCrossSectionDa << 
316      ->ComputeCrossSection(aTrack.GetDynamicPa << 
317   return (xs > 0.0) ? 1.0/xs : DBL_MAX;        << 
318 }                                              << 
319                                                << 
320 G4VParticleChange*                             << 
321 G4HadronicProcess::PostStepDoIt(const G4Track& << 
322 {                                              << 
323   theNumberOfInteractionLengthLeft = -1.0;     << 
324                                                << 
325   //G4cout << "PostStepDoIt " << aTrack.GetDef << 
326   //   << " Ekin= " << aTrack.GetKineticEnergy << 
327   // if primary is not Alive then do nothing   << 
328   theTotalResult->Clear();                     << 
329   theTotalResult->Initialize(aTrack);          << 
330   fWeight = aTrack.GetWeight();                << 
331   theTotalResult->ProposeWeight(fWeight);      << 
332   if(aTrack.GetTrackStatus() != fAlive) { retu << 
333                                                << 
334   // Find cross section at end of step and che << 
335   //                                           << 
336   const G4DynamicParticle* aParticle = aTrack. << 
337   const G4Material* aMaterial = aTrack.GetMate << 
338                                                << 
339   // check only for charged particles          << 
340   if(fXSType != fHadNoIntegral) {              << 
341     mfpKinEnergy = DBL_MAX;                    << 
342     G4double xs = aScaleFactor*                << 
343       theCrossSectionDataStore->ComputeCrossSe << 
344     //G4cout << "xs=" << xs << " xs0=" << theL << 
345     //     << "  " << aMaterial->GetName() <<  << 
346     if(xs < theLastCrossSection*G4UniformRand( << 
347       // No interaction                        << 
348       return theTotalResult;                   << 
349     }                                          << 
350   }                                            << 
351                                                << 
352   const G4Element* anElement =                 << 
353     theCrossSectionDataStore->SampleZandA(aPar << 
354                                                << 
355   // Next check for illegal track status       << 
356   //                                           << 
357   if (aTrack.GetTrackStatus() != fAlive &&     << 
358       aTrack.GetTrackStatus() != fSuspend) {   << 
359     if (aTrack.GetTrackStatus() == fStopAndKil << 
360         aTrack.GetTrackStatus() == fKillTrackA << 
361         aTrack.GetTrackStatus() == fPostponeTo << 
362       G4ExceptionDescription ed;               << 
363       ed << "G4HadronicProcess: track in unusa << 
364    << aTrack.GetTrackStatus() << G4endl;       << 
365       ed << "G4HadronicProcess: returning unch << 
366       DumpState(aTrack,"PostStepDoIt",ed);     << 
367       G4Exception("G4HadronicProcess::PostStep << 
368     }                                             288     }
369     // No warning for fStopButAlive which is a << 289     else
370     return theTotalResult;                     << 290     {
371   }                                            << 291       G4double * running = new G4double[theIso.GetNumberOfIsotopes(localZ)];
372                                                << 292       for (i=0; i<theIso.GetNumberOfIsotopes(localZ); i++)
373   // Initialize the hadronic projectile from t << 293       {
374   thePro.Initialise(aTrack);                   << 294         G4double fracInPercent=theIso.GetAbundance(theIso.GetFirstIsotope(localZ)+i);
375                                                << 295         G4double runningA=theIso.GetIsotopeNucleonCount(theIso.GetFirstIsotope(localZ)+i);
376   theInteraction = ChooseHadronicInteraction(t << 296   running[i]=fracInPercent*pow(runningA, 2./3.);
377                                              a << 297   // rough approximation; to get it better, redesign getMSC to not use G4Element
378   if(nullptr == theInteraction) {              << 298   if(i!=0) running[i] += running[i-1];
379     G4ExceptionDescription ed;                 << 299       }
380     ed << "Target element "<<anElement->GetNam << 300       G4double trial = G4UniformRand();
381        << targetNucleus.GetZ_asInt() << "  A=  << 301       for(i=0; i<theIso.GetNumberOfIsotopes(localZ); i++)
382        << targetNucleus.GetA_asInt() << G4endl << 302       {
383     DumpState(aTrack,"ChooseHadronicInteractio << 303   currentN = theIso.GetIsotopeNucleonCount(theIso.GetFirstIsotope(localZ)+i);
384     ed << " No HadronicInteraction found out"  << 304   if(running[i]/running[theIso.GetNumberOfIsotopes(localZ)-1]>trial) break;
385     G4Exception("G4HadronicProcess::PostStepDo << 305       }
386                 FatalException, ed);           << 306       delete [] running;
387     return theTotalResult;                     << 307     }
                                                   >> 308     targetNucleus.SetParameters(currentN, currentZ);
                                                   >> 309     return (*theElementVector)[numberOfElements-1];
388   }                                               310   }
389                                                << 311  
390   G4HadFinalState* result = nullptr;           << 312  G4VParticleChange *G4HadronicProcess::GeneralPostStepDoIt(
391   G4int reentryCount = 0;                      << 313   const G4Track &aTrack, const G4Step &)
392   /*                                           << 
393   G4cout << "### " << aParticle->GetDefinition << 
394    << "  Ekin(MeV)= " << aParticle->GetKinetic << 
395    << "  Z= " << targetNucleus.GetZ_asInt()    << 
396    << "  A= " << targetNucleus.GetA_asInt()    << 
397    << "  by " << theInteraction->GetModelName( << 
398    << G4endl;                                  << 
399   */                                           << 
400   do                                           << 
401   {                                               314   {
                                                   >> 315     // G4cout << theNumberOfInteractionLengthLeft<<G4endl;
                                                   >> 316     #ifndef G4HadSignalHandler_off
                                                   >> 317     G4HadSignalHandler aHandler(G4HadronicProcess_local::G4HadronicProcessHandler_1);
                                                   >> 318     #endif
                                                   >> 319     if(aTrack.GetTrackStatus() != fAlive) 
                                                   >> 320     {
                                                   >> 321       G4cerr << "G4HadronicProcess: track in unusable state - "
                                                   >> 322              <<aTrack.GetTrackStatus()<<G4endl;
                                                   >> 323       G4cerr << "G4HadronicProcess: returning unchanged track "<<G4endl;
                                                   >> 324       G4Exception("G4HadronicProcess", "001", JustWarning, "bailing out");
                                                   >> 325       theTotalResult->Clear();
                                                   >> 326       theTotalResult->Initialize(aTrack);
                                                   >> 327       return theTotalResult;
                                                   >> 328     }
                                                   >> 329     const G4DynamicParticle *aParticle = aTrack.GetDynamicParticle();
                                                   >> 330     G4Material *aMaterial = aTrack.GetMaterial();
                                                   >> 331     G4double originalEnergy = aParticle->GetKineticEnergy();
                                                   >> 332     G4double kineticEnergy = originalEnergy;
                                                   >> 333     if(aParticle->GetDefinition()->GetBaryonNumber()>1.5)
                                                   >> 334     {
                                                   >> 335       kineticEnergy/=aParticle->GetDefinition()->GetBaryonNumber();
                                                   >> 336     }
                                                   >> 337     G4Element * anElement = 0;
402     try                                           338     try
403     {                                             339     {
404       // Call the interaction                  << 340       anElement = ChooseAandZ( aParticle, aMaterial );
405       result = theInteraction->ApplyYourself(  << 
406       ++reentryCount;                          << 
407     }                                             341     }
408     catch(G4HadronicException & aR)               342     catch(G4HadronicException & aR)
409     {                                             343     {
410       G4ExceptionDescription ed;               << 344       aR.Report(G4cout);
411       aR.Report(ed);                           << 345       G4cout << "Unrecoverable error for:"<<G4endl;
412       ed << "Call for " << theInteraction->Get << 346       G4cout << " - Particle energy[GeV] = "<< originalEnergy/GeV<<G4endl;
413       ed << "Target element "<<anElement->GetN << 347       G4cout << " - Material = "<<aMaterial->GetName()<<G4endl;
414    << targetNucleus.GetZ_asInt()               << 348       G4cout << " - Particle type = "
415    << "  A= " << targetNucleus.GetA_asInt() << << 349              <<aParticle->GetDefinition()->GetParticleName()<<G4endl;
416       DumpState(aTrack,"ApplyYourself",ed);    << 350       G4Exception("G4HadronicProcess", "007", FatalException,
417       ed << " ApplyYourself failed" << G4endl; << 351                   "GeneralPostStepDoIt failed on element selection.");
418       G4Exception("G4HadronicProcess::PostStep << 
419       ed);                                     << 
420     }                                          << 
421                                                << 
422     // Check the result for catastrophic energ << 
423     result = CheckResult(thePro, targetNucleus << 
424                                                << 
425     if(reentryCount>100) {                     << 
426       G4ExceptionDescription ed;               << 
427       ed << "Call for " << theInteraction->Get << 
428       ed << "Target element "<<anElement->GetN << 
429    << targetNucleus.GetZ_asInt()               << 
430    << "  A= " << targetNucleus.GetA_asInt() << << 
431       DumpState(aTrack,"ApplyYourself",ed);    << 
432       ed << " ApplyYourself does not completed << 
433       G4Exception("G4HadronicProcess::PostStep << 
434       ed);                                     << 
435     }                                             352     }
436   }                                            << 353     try
437   while(!result);  /* Loop checking, 30-Oct-20 << 354     {
438                                                << 355     theInteraction = ChooseHadronicInteraction( kineticEnergy,
439   // Check whether kaon0 or anti_kaon0 are pre << 356                                                 aMaterial, anElement );
440   // if this is the case, transform them into  << 357     }
441   // with equal, 50% probability, keeping thei << 358     catch(G4HadronicException & aE)
442   // the other kinematical properties).        << 359     {
443   // When this happens - very rarely - a "Just << 360       aE.Report(std::cout);
444   // Because Fluka-Cern produces kaon0 and ant << 361       G4cout << "Unrecoverable error for:"<<G4endl;
445   // of warnings to max 1 per thread.          << 362       G4cout << " - Particle energy[GeV] = "<< originalEnergy/GeV<<G4endl;
446   G4int nSec = (G4int)result->GetNumberOfSecon << 363       G4cout << " - Material = "<<aMaterial->GetName()<<G4endl;
447   if ( nSec > 0 ) {                            << 364       G4cout << " - Particle type = "<<aParticle->GetDefinition()->GetParticleName()<<G4endl;
448     for ( G4int i = 0; i < nSec; ++i ) {       << 365       G4Exception("G4HadronicProcess", "007", FatalException,
449       auto dynamicParticle = result->GetSecond << 366                   "ChooseHadronicInteraction failed.");
450       auto part = dynamicParticle->GetParticle << 367     }
451       if ( part == G4KaonZero::Definition() || << 368     G4HadProjectile thePro(aTrack);
452            part == G4AntiKaonZero::Definition( << 369     
453         G4ParticleDefinition* newPart;         << 370     G4HadFinalState *result = 0;
454         if ( G4UniformRand() > 0.5 ) { newPart << 371     G4int reentryCount = 0;
455         else { newPart = G4KaonZeroLong::Defin << 372     do
456         dynamicParticle->SetDefinition( newPar << 373     {
457   if ( nKaonWarn < 1 ) {                       << 374       try
458     ++nKaonWarn;                               << 375       {
459     G4ExceptionDescription ed;                 << 376    G4HadronicInteractionWrapper aW;
460     ed << " Hadronic model " << theInteraction << 377    result = aW.ApplyInteraction(thePro, targetNucleus, theInteraction);
461     ed << " created " << part->GetParticleName << 378       }
462     ed << " -> forced to be " << newPart->GetP << 379       catch(G4HadReentrentException aR)
463     G4Exception( "G4HadronicProcess::PostStepD << 380       {
                                                   >> 381         aR.Report(G4cout);
                                                   >> 382   G4cout << " G4HadronicProcess re-entering the ApplyYourself call for"<<G4endl;
                                                   >> 383         G4cout << " - Particle energy[GeV] = "<< originalEnergy/GeV<<G4endl;
                                                   >> 384         G4cout << " - Material = "<<aMaterial->GetName()<<G4endl;
                                                   >> 385         G4cout << " - Particle type = "<<aParticle->GetDefinition()->GetParticleName()<<G4endl;
                                                   >> 386   result = 0; // here would still be leaking...
                                                   >> 387   if(reentryCount>100)
                                                   >> 388   {
                                                   >> 389            G4Exception("G4HadronicProcess", "007", FatalException,
                                                   >> 390     "GetHadronicProcess: Reentering ApplyYourself too often - GeneralPostStepDoIt failed.");  
464   }                                               391   }
                                                   >> 392         G4Exception("G4HadronicProcess", "007", FatalException,
                                                   >> 393     "GetHadronicProcess: GeneralPostStepDoIt failed (Reentering ApplyYourself not yet supported.)");  
                                                   >> 394       }
                                                   >> 395       catch(G4HadronicException aR)
                                                   >> 396       {
                                                   >> 397         aR.Report(G4cout);
                                                   >> 398   G4cout << " G4HadronicProcess failed in ApplyYourself call for"<<G4endl;
                                                   >> 399         G4cout << " - Particle energy[GeV] = "<< originalEnergy/GeV<<G4endl;
                                                   >> 400         G4cout << " - Material = "<<aMaterial->GetName()<<G4endl;
                                                   >> 401         G4cout << " - Particle type = "<<aParticle->GetDefinition()->GetParticleName()<<G4endl;
                                                   >> 402         G4Exception("G4HadronicProcess", "007", FatalException,
                                                   >> 403               "GeneralPostStepDoIt failed.");
465       }                                           404       }
466     }                                             405     }
467   }                                            << 406     while(!result);
468                                                << 407     if(!ModelingState && !getenv("BypassAllSafetyChecks") ) 
469   result->SetTrafoToLab(thePro.GetTrafoToLab() << 408     {
470   FillResult(result, aTrack);                  << 409       G4cout << "ERROR IN EXECUTION -- HADRONIC PROCESS STATE NOT VALID"<<G4endl;
471                                                << 410       G4cout << "Result will be of undefined quality."<<G4endl;
472   if (epReportLevel != 0) {                    << 411     }
473     CheckEnergyMomentumConservation(aTrack, ta << 412     if(result->GetStatusChange() == isAlive && thePro.GetDefinition() != aTrack.GetDefinition())
474   }                                            << 413     {
475   //G4cout << "PostStepDoIt done nICelectrons= << 414       G4DynamicParticle * aP = const_cast<G4DynamicParticle *>(aTrack.GetDynamicParticle());
476   return theTotalResult;                       << 415       aP->SetDefinition(const_cast<G4ParticleDefinition *>(thePro.GetDefinition()));
477 }                                              << 416     }
478                                                << 417     result->SetTrafoToLab(thePro.GetTrafoToLab());
479 void G4HadronicProcess::ProcessDescription(std << 418     for(G4int i=0; i<result->GetNumberOfSecondaries(); i++)
480 {                                              << 419     {
481   outFile << "The description for this process << 420       G4DynamicParticle* aSecTrack = result->GetSecondary(i)->GetParticle();
482 }                                              << 421       if(aSecTrack->GetDefinition()->GetPDGCharge()>1.5)
483                                                << 422       {
484 G4double G4HadronicProcess::XBiasSurvivalProba << 423          G4EffectiveCharge aCalculator;
485 {                                              << 424    G4double charge = aCalculator.GetCharge(aMaterial, aSecTrack->GetKineticEnergy(),
486   G4double nLTraversed = GetTotalNumberOfInter << 425                                           aSecTrack->GetDefinition()->GetPDGMass(),
487   G4double biasedProbability = 1.-G4Exp(-nLTra << 426             aSecTrack->GetDefinition()->GetPDGCharge());
488   G4double realProbability = 1-G4Exp(-nLTraver << 427          if(getenv("GHADChargeDebug")) 
489   G4double result = (biasedProbability-realPro << 428          {
490   return result;                               << 429             std::cout << "Recoil fractional charge is "
491 }                                              << 430                       << charge/aSecTrack->GetDefinition()->GetPDGCharge()<<" "
492                                                << 431                       << charge <<" "<<aSecTrack->GetDefinition()->GetPDGCharge()<<std::endl;
493 G4double G4HadronicProcess::XBiasSecondaryWeig << 432          }
494 {                                              << 433    aSecTrack->SetCharge(charge);
495   G4double nLTraversed = GetTotalNumberOfInter << 
496   G4double result =                            << 
497      1./aScaleFactor*G4Exp(-nLTraversed/aScale << 
498   return result;                               << 
499 }                                              << 
500                                                << 
501 void                                           << 
502 G4HadronicProcess::FillResult(G4HadFinalState  << 
503 {                                              << 
504   theTotalResult->ProposeLocalEnergyDeposit(aR << 
505   const G4ThreeVector& dir = aT.GetMomentumDir << 
506                                                << 
507   G4double efinal = std::max(aR->GetEnergyChan << 
508                                                << 
509   // check status of primary                   << 
510   if(aR->GetStatusChange() == stopAndKill) {   << 
511     theTotalResult->ProposeTrackStatus(fStopAn << 
512     theTotalResult->ProposeEnergy( 0.0 );      << 
513                                                << 
514     // check its final energy                  << 
515   } else if(0.0 == efinal) {                   << 
516     theTotalResult->ProposeEnergy( 0.0 );      << 
517     if(aT.GetParticleDefinition()->GetProcessM << 
518        ->GetAtRestProcessVector()->size() > 0) << 
519          { theTotalResult->ProposeTrackStatus( << 
520     else { theTotalResult->ProposeTrackStatus( << 
521                                                << 
522     // primary is not killed apply rotation an << 
523   } else  {                                    << 
524     theTotalResult->ProposeTrackStatus(fAlive) << 
525     G4ThreeVector newDir = aR->GetMomentumChan << 
526     newDir.rotateUz(dir);                      << 
527     theTotalResult->ProposeMomentumDirection(n << 
528     theTotalResult->ProposeEnergy(efinal);     << 
529   }                                            << 
530   //G4cout << "FillResult: Efinal= " << efinal << 
531   //   << theTotalResult->GetTrackStatus()     << 
532   //   << "  fKill= " << fStopAndKill << G4end << 
533                                                << 
534   // check secondaries                         << 
535   nICelectrons = 0;                            << 
536   G4int nSec = (G4int)aR->GetNumberOfSecondari << 
537   theTotalResult->SetNumberOfSecondaries(nSec) << 
538   G4double time0 = aT.GetGlobalTime();         << 
539                                                << 
540   for (G4int i = 0; i < nSec; ++i) {           << 
541     G4DynamicParticle* dynParticle = aR->GetSe << 
542                                                << 
543     // apply rotation                          << 
544     G4ThreeVector newDir = dynParticle->GetMom << 
545     newDir.rotateUz(dir);                      << 
546     dynParticle->SetMomentumDirection(newDir); << 
547                                                << 
548     // check if secondary is on the mass shell << 
549     const G4ParticleDefinition* part = dynPart << 
550     G4double mass = part->GetPDGMass();        << 
551     G4double dmass= dynParticle->GetMass();    << 
552     const G4double delta_mass_lim = 1.0*CLHEP: << 
553     const G4double delta_ekin = 0.001*CLHEP::e << 
554     if(std::abs(dmass - mass) > delta_mass_lim << 
555       G4double e =                             << 
556         std::max(dynParticle->GetKineticEnergy << 
557       if(verboseLevel > 1) {                   << 
558   G4ExceptionDescription ed;                   << 
559   ed << "TrackID= "<< aT.GetTrackID()          << 
560      << "  " << aT.GetParticleDefinition()->Ge << 
561      << " Target Z= " << targetNucleus.GetZ_as << 
562      << targetNucleus.GetA_asInt()             << 
563      << " Ekin(GeV)= " << aT.GetKineticEnergy( << 
564      << "\n Secondary is out of mass shell: "  << 
565      << "  EkinNew(MeV)= " << e                << 
566      << " DeltaMass(MeV)= " << dmass - mass << << 
567   G4Exception("G4HadronicProcess::FillResults" << 
568       }                                           434       }
569       dynParticle->SetKineticEnergy(e);        << 
570       dynParticle->SetMass(mass);              << 
571     }                                             435     }
572     G4int idModel = aR->GetSecondary(i)->GetCr << 
573     if(part->GetPDGEncoding() == 11) { ++nICel << 
574                                                << 
575     // time of interaction starts from zero +  << 
576     G4double time = std::max(aR->GetSecondary( << 
577                                                   436 
578     G4Track* track = new G4Track(dynParticle,  << 437     if(getenv("HadronicDoitLogging") )
579     track->SetCreatorModelID(idModel);         << 438     {
580     track->SetParentResonanceDef(aR->GetSecond << 439       G4cout << "HadronicDoitLogging "
581     track->SetParentResonanceID(aR->GetSeconda << 440              << GetProcessName() <<" "
582     G4double newWeight = fWeight*aR->GetSecond << 441              << aParticle->GetDefinition()->GetPDGEncoding()<<" "
583     track->SetWeight(newWeight);               << 442        << originalEnergy<<" "
584     track->SetTouchableHandle(aT.GetTouchableH << 443        << aParticle->GetMomentum()<<" "
585     theTotalResult->AddSecondary(track);       << 444        << targetNucleus.GetN()<<" "
586   }                                            << 445        << targetNucleus.GetZ()<<" "
587   aR->Clear();                                 << 446        << G4endl;
588   // G4cout << "FillResults done nICe= " << nI << 
589 }                                              << 
590                                                << 
591 void G4HadronicProcess::MultiplyCrossSectionBy << 
592 {                                              << 
593   BiasCrossSectionByFactor(factor);            << 
594 }                                              << 
595                                                << 
596 void G4HadronicProcess::BiasCrossSectionByFact << 
597 {                                              << 
598   if (aScale <= 0.0) {                         << 
599     G4ExceptionDescription ed;                 << 
600     ed << " Wrong biasing factor " << aScale < << 
601     G4Exception("G4HadronicProcess::BiasCrossS << 
602                 JustWarning, ed, "Cross-sectio << 
603   } else {                                     << 
604     aScaleFactor = aScale;                     << 
605   }                                            << 
606 }                                              << 
607                                                << 
608 G4HadFinalState* G4HadronicProcess::CheckResul << 
609             const G4Nucleus &aNucleus,         << 
610             G4HadFinalState * result)          << 
611 {                                              << 
612   // check for catastrophic energy non-conserv << 
613   // to re-sample the interaction              << 
614   G4HadronicInteraction * theModel = GetHadron << 
615   G4double nuclearMass(0);                     << 
616   if (nullptr != theModel) {                   << 
617                                                << 
618     // Compute final-state total energy        << 
619     G4double finalE(0.);                       << 
620     G4int nSec = (G4int)result->GetNumberOfSec << 
621                                                << 
622     nuclearMass = G4NucleiProperties::GetNucle << 
623                  aNucleus.GetZ_asInt());       << 
624     if (result->GetStatusChange() != stopAndKi << 
625       // Interaction didn't complete, returned << 
626       // and reset nucleus or the primary surv << 
627       // (e.g. electro-nuclear ) => keep  nucl << 
628       finalE=result->GetLocalEnergyDeposit() + << 
629              aPro.GetDefinition()->GetPDGMass( << 
630       if( nSec == 0 ){                         << 
631          // Since there are no secondaries, th << 
632          // To check energy balance we must ne << 
633         nuclearMass=0.0;                       << 
634       }                                        << 
635     }                                          << 
636     for (G4int i = 0; i < nSec; ++i) {         << 
637       G4DynamicParticle *pdyn=result->GetSecon << 
638       finalE += pdyn->GetTotalEnergy();        << 
639       G4double mass_pdg=pdyn->GetDefinition()- << 
640       G4double mass_dyn=pdyn->GetMass();       << 
641       if ( std::abs(mass_pdg - mass_dyn) > 0.1 << 
642         // If it is shortlived, then a differe << 
643         if ( pdyn->GetDefinition()->IsShortLiv << 
644              std::abs(mass_pdg - mass_dyn) < 3 << 
645           continue;                            << 
646         }                                      << 
647   result->Clear();                             << 
648   result = nullptr;                            << 
649   G4ExceptionDescription desc;                 << 
650   desc << "Warning: Secondary with off-shell d << 
651        << G4endl                               << 
652        << " " << pdyn->GetDefinition()->GetPar << 
653        << ", PDG mass: " << mass_pdg << ", dyn << 
654        << mass_dyn << G4endl                   << 
655        << (epReportLevel<0 ? "abort the event" << 
656      : "re-sample the interaction") << G4endl  << 
657        << " Process / Model: " <<  GetProcessN << 
658        << theModel->GetModelName() << G4endl   << 
659        << " Primary: " << aPro.GetDefinition() << 
660        << " (" << aPro.GetDefinition()->GetPDG << 
661        << " E= " <<  aPro.Get4Momentum().e()   << 
662        << ", target nucleus (" << aNucleus.Get << 
663        << aNucleus.GetA_asInt() << ")" << G4en << 
664   G4Exception("G4HadronicProcess:CheckResult() << 
665         epReportLevel<0 ? EventMustBeAborted : << 
666   // must return here.....                     << 
667   return result;                               << 
668       }                                        << 
669     }                                          << 
670     G4double deltaE= nuclearMass +  aPro.GetTo << 
671                                                << 
672     std::pair<G4double, G4double> checkLevels  << 
673       theModel->GetFatalEnergyCheckLevels();   << 
674     if (std::abs(deltaE) > checkLevels.second  << 
675         std::abs(deltaE) > checkLevels.first*a << 
676       // do not delete result, this is a point << 
677       result->Clear();                         << 
678       result = nullptr;                        << 
679       G4ExceptionDescription desc;             << 
680       desc << "Warning: Bad energy non-conserv << 
681      << (epReportLevel<0 ? "abort the event"   << 
682          :  "re-sample the interaction") << G4 << 
683      << " Process / Model: " <<  GetProcessNam << 
684      << theModel->GetModelName() << G4endl     << 
685      << " Primary: " << aPro.GetDefinition()-> << 
686      << " (" << aPro.GetDefinition()->GetPDGEn << 
687      << " E= " <<  aPro.Get4Momentum().e()     << 
688      << ", target nucleus (" << aNucleus.GetZ_ << 
689      << aNucleus.GetA_asInt() << ")" << G4endl << 
690      << " E(initial - final) = " << deltaE <<  << 
691       G4Exception("G4HadronicProcess:CheckResu << 
692       epReportLevel<0 ? EventMustBeAborted : J << 
693     }                                             447     }
694   }                                            << 448     ClearNumberOfInteractionLengthLeft();
695   return result;                               << 449     if(isoIsOnAnyway!=-1)
696 }                                              << 450     {
697                                                << 451       if(isoIsEnabled||isoIsOnAnyway)
698 void                                           << 452       {
699 G4HadronicProcess::CheckEnergyMomentumConserva << 453         result = DoIsotopeCounting(result, aTrack, targetNucleus);
700                                                << 454       }
701 {                                              << 
702   G4int target_A=aNucleus.GetA_asInt();        << 
703   G4int target_Z=aNucleus.GetZ_asInt();        << 
704   G4double targetMass = G4NucleiProperties::Ge << 
705   G4LorentzVector target4mom(0, 0, 0, targetMa << 
706            + nICelectrons*CLHEP::electron_mass << 
707                                                << 
708   G4LorentzVector projectile4mom = aTrack.GetD << 
709   G4int track_A = aTrack.GetDefinition()->GetB << 
710   G4int track_Z = G4lrint(aTrack.GetDefinition << 
711                                                << 
712   G4int initial_A = target_A + track_A;        << 
713   G4int initial_Z = target_Z + track_Z - nICel << 
714                                                << 
715   G4LorentzVector initial4mom = projectile4mom << 
716                                                << 
717   // Compute final-state momentum for scatteri << 
718   G4LorentzVector final4mom;                   << 
719   G4int final_A(0), final_Z(0);                << 
720                                                << 
721   G4int nSec = theTotalResult->GetNumberOfSeco << 
722   if (theTotalResult->GetTrackStatus() != fSto << 
723     // Either interaction didn't complete, ret << 
724     //  or    the primary survived the interac << 
725                                                << 
726     // Interaction didn't complete, returned " << 
727     //   - or suppressed recoil  (e.g. Neutron << 
728     final4mom = initial4mom;                   << 
729     final_A = initial_A;                       << 
730     final_Z = initial_Z;                       << 
731     if (nSec > 0) {                            << 
732       // The primary remains in final state (e << 
733       // Use the final energy / momentum       << 
734       const G4ThreeVector& v = *theTotalResult << 
735       G4double ekin = theTotalResult->GetEnerg << 
736       G4double mass = aTrack.GetDefinition()-> << 
737       G4double ptot = std::sqrt(ekin*(ekin + 2 << 
738       final4mom.set(ptot*v.x(), ptot*v.y(), pt << 
739       final_A = track_A;                       << 
740       final_Z = track_Z;                       << 
741       // Expect that the target nucleus will h << 
742       //  and its products, including recoil,  << 
743     }                                             455     }
744   }                                            << 456     
745   if( nSec > 0 ) {                             << 457     G4double e=aTrack.GetKineticEnergy();
746     G4Track* sec;                              << 458     ModelingState = 0;
747                                                << 459     if(e<5*GeV)
748     for (G4int i = 0; i < nSec; i++) {         << 460     {
749       sec = theTotalResult->GetSecondary(i);   << 461       for(size_t i=0; i<theBias.size(); i++)
750       final4mom += sec->GetDynamicParticle()-> << 462       {
751       final_A += sec->GetDefinition()->GetBary << 463         result = theBias[i]->Bias(result);
752       final_Z += G4lrint(sec->GetDefinition()- << 464       }
753     }                                             465     }
                                                   >> 466     FillTotalResult(result, aTrack);
                                                   >> 467     return theTotalResult;
754   }                                               468   }
755                                                   469 
756   // Get level-checking information (used to c << 470   G4HadFinalState * G4HadronicProcess::
757   G4String processName = GetProcessName();     << 471   DoIsotopeCounting(G4HadFinalState * aResult,
758   G4HadronicInteraction* theModel = GetHadroni << 472                     const G4Track & aTrack,
759   G4String modelName("none");                  << 473                     const G4Nucleus & aNucleus)
760   if (theModel) modelName = theModel->GetModel << 474   {
761   std::pair<G4double, G4double> checkLevels =  << 475     // get the PC from iso-production
762   if (!levelsSetByProcess) {                   << 476     if(theOldIsoResult) delete theOldIsoResult;
763     if (theModel) checkLevels = theModel->GetE << 477     if(theIsoResult) delete theIsoResult;
764     checkLevels.first= std::min(checkLevels.fi << 478     theIsoResult = new G4IsoParticleChange;
765     checkLevels.second=std::min(checkLevels.se << 479     G4bool done = false;
766   }                                            << 480     G4IsoResult * anIsoResult = NULL;
767                                                << 481     for(unsigned int i=0; i<theProductionModels.size(); i++)
768   // Compute absolute total-energy difference, << 482     {
769   G4bool checkRelative = (aTrack.GetKineticEne << 483       anIsoResult = theProductionModels[i]->GetIsotope(aTrack, aNucleus);
770                                                << 484       if(anIsoResult!=NULL)
771   G4LorentzVector diff = initial4mom - final4m << 485       {
772   G4double absolute = diff.e();                << 486         done = true;
773   G4double relative = checkRelative ? absolute << 487         break;
774                                                << 488       }
775   G4double absolute_mom = diff.vect().mag();   << 489     }
776   G4double relative_mom = checkRelative ? abso << 490     // if none in charge, use default iso production
777                                                << 491     if(!done) anIsoResult = ExtractResidualNucleus(aTrack, aNucleus, aResult); 
778   // Evaluate relative and absolute conservati << 492         
779   G4bool relPass = true;                       << 493     // Add all info explicitely and add typename from model called.
780   G4String relResult = "pass";                 << 494     theIsoResult->SetIsotope(anIsoResult->GetIsotope());
781   if (  std::abs(relative) > checkLevels.first << 495     theIsoResult->SetProductionPosition(aTrack.GetPosition());
782    || std::abs(relative_mom) > checkLevels.fir << 496     theIsoResult->SetProductionTime(aTrack.GetGlobalTime());
783     relPass = false;                           << 497     theIsoResult->SetParentParticle(*aTrack.GetDynamicParticle());
784     relResult = checkRelative ? "fail" : "N/A" << 498     theIsoResult->SetMotherNucleus(anIsoResult->GetMotherNucleus());
785   }                                            << 499 //    theIsoResult->SetProducer(typeid(*theInteraction).name()); @@@@@@@
786                                                << 500     G4String aWorkaround("WaitingForTypeidToBeAvailableInCompilers"); // @@@@@  workaround for DEC.
787   G4bool absPass = true;                       << 501     theIsoResult->SetProducer(aWorkaround);
788   G4String absResult = "pass";                 << 502     
789   if (   std::abs(absolute) > checkLevels.seco << 503     delete anIsoResult;
790       || std::abs(absolute_mom) > checkLevels. << 504 
791     absPass = false ;                          << 505     return aResult;
792     absResult = "fail";                        << 506   }
793   }                                            << 507   
794                                                << 508   G4IsoResult * G4HadronicProcess::
795   G4bool chargePass = true;                    << 509   ExtractResidualNucleus(const G4Track & ,
796   G4String chargeResult = "pass";              << 510                          const G4Nucleus & aNucleus,
797   if (   (initial_A-final_A)!=0                << 511                          G4HadFinalState * aResult)
798       || (initial_Z-final_Z)!=0 ) {            << 512   {
799     chargePass = checkLevels.second < DBL_MAX  << 513     G4double A = aNucleus.GetN();
800     chargeResult = "fail";                     << 514     G4double Z = aNucleus.GetZ();
801    }                                           << 515     G4double bufferA = 0;
802                                                << 516     G4double bufferZ = 0;
803   G4bool conservationPass = (relPass || absPas << 517     
804                                                << 518     // loop over aResult, and decrement A, Z accordingly
805   std::stringstream Myout;                     << 519     // cash the max
806   G4bool Myout_notempty(false);                << 520     for(G4int i=0; i<aResult->GetNumberOfSecondaries(); i++)
807   // Options for level of reporting detail:    << 521     {
808   //  0. off                                   << 522       G4HadSecondary* aSecTrack = aResult->GetSecondary(i);
809   //  1. report only when E/p not conserved    << 523       if(bufferA<aSecTrack->GetParticle()->GetDefinition()->GetBaryonNumber())
810   //  2. report regardless of E/p conservation << 524       {
811   //  3. report only when E/p not conserved, w << 525         bufferA = aSecTrack->GetParticle()->GetDefinition()->GetBaryonNumber();
812   //  4. report regardless of E/p conservation << 526         bufferZ = aSecTrack->GetParticle()->GetDefinition()->GetPDGCharge();
813   //  negative -1.., as above, but send output << 527       }
814                                                << 528       Z-=aSecTrack->GetParticle()->GetDefinition()->GetPDGCharge();
815   if(   std::abs(epReportLevel) == 4           << 529       A-=aSecTrack->GetParticle()->GetDefinition()->GetBaryonNumber();
816   ||  ( std::abs(epReportLevel) == 3 && ! cons << 530     }
817       Myout << " Process: " << processName <<  << 531     
818       Myout << " Primary: " << aTrack.GetParti << 532     // if the fragment was part of the final state, it is 
819             << " (" << aTrack.GetParticleDefin << 533     // assumed to be the heaviest secondary.
820             << " E= " <<  aTrack.GetDynamicPar << 534     if(A<0.1)
821       << ", target nucleus (" << aNucleus.GetZ << 535     {
822       << aNucleus.GetA_asInt() << ")" << G4end << 536        A = bufferA;
823       Myout_notempty=true;                     << 537        Z = bufferZ;
824   }                                            << 538     }
825   if (  std::abs(epReportLevel) == 4           << 539     
826    || std::abs(epReportLevel) == 2             << 540     // prepare the IsoResult.
827    || ! conservationPass ){                    << 541     char the1[100] = {""};
828                                                << 542     std::ostrstream ost1(the1, 100, std::ios::out);
829       Myout << "   "<< relResult  <<" relative << 543     ost1 <<Z<<"_"<<A<<"\0";
830              << relative << " p/p(0)= " << rel << 544     G4String * biff = new G4String(the1);
831       Myout << "   "<< absResult << " absolute << 545     G4IsoResult * theResult = new G4IsoResult(*biff, aNucleus);
832              << absolute/MeV << " / " << absol << 546     
833       Myout << "   "<< chargeResult << " charg << 547     // cleaning up.
834       Myout_notempty=true;                     << 548     delete biff;
835                                                << 549     
836   }                                            << 550     return theResult;
837   Myout.flush();                               << 
838   if ( Myout_notempty ) {                      << 
839      if (epReportLevel > 0)      G4cout << Myo << 
840      else if (epReportLevel < 0) G4cerr << Myo << 
841   }                                               551   }
842 }                                              << 
843                                                   552 
844 void G4HadronicProcess::DumpState(const G4Trac << 553 G4double G4HadronicProcess::
845           const G4String& method,              << 554 XBiasSurvivalProbability()
846           G4ExceptionDescription& ed)          << 
847 {                                                 555 {
848   ed << "Unrecoverable error in the method " < << 556   G4double result = 0;
849      << GetProcessName() << G4endl;            << 557   G4double nLTraversed = GetTotalNumberOfInteractionLengthTraversed();
850   ed << "TrackID= "<< aTrack.GetTrackID() << " << 558   G4double biasedProbability = 1.-exp(-nLTraversed);
851      << aTrack.GetParentID()                   << 559   G4double realProbability = 1-exp(-nLTraversed/aScaleFactor);
852      << "  " << aTrack.GetParticleDefinition() << 560   result = (biasedProbability-realProbability)/biasedProbability;
853      << G4endl;                                << 561   return result;
854   ed << "Ekin(GeV)= " << aTrack.GetKineticEner << 
855      << ";  direction= " << aTrack.GetMomentum << 
856   ed << "Position(mm)= " << aTrack.GetPosition << 
857                                                << 
858   if (aTrack.GetMaterial()) {                  << 
859     ed << "  material " << aTrack.GetMaterial( << 
860   }                                            << 
861   ed << G4endl;                                << 
862                                                << 
863   if (aTrack.GetVolume()) {                    << 
864     ed << "PhysicalVolume  <" << aTrack.GetVol << 
865        << ">" << G4endl;                       << 
866   }                                            << 
867 }                                              << 
868                                                << 
869 void G4HadronicProcess::DumpPhysicsTable(const << 
870 {                                              << 
871   theCrossSectionDataStore->DumpPhysicsTable(p << 
872 }                                              << 
873                                                << 
874 void G4HadronicProcess::AddDataSet(G4VCrossSec << 
875 {                                              << 
876   theCrossSectionDataStore->AddDataSet(aDataSe << 
877 }                                              << 
878                                                << 
879 std::vector<G4HadronicInteraction*>&           << 
880 G4HadronicProcess::GetHadronicInteractionList( << 
881 {                                              << 
882   return theEnergyRangeManager.GetHadronicInte << 
883 }                                              << 
884                                                << 
885 G4HadronicInteraction*                         << 
886 G4HadronicProcess::GetHadronicModel(const G4St << 
887 {                                              << 
888   std::vector<G4HadronicInteraction*>& list    << 
889         = theEnergyRangeManager.GetHadronicInt << 
890   for (auto & mod : list) {                    << 
891     if (mod->GetModelName() == modelName) retu << 
892   }                                            << 
893   return nullptr;                              << 
894 }                                                 562 }
895                                                   563 
896 G4double                                       << 564 G4double G4HadronicProcess::
897 G4HadronicProcess::ComputeCrossSection(const G << 565 XBiasSecondaryWeight()
898                const G4Material* mat,          << 
899                const G4double kinEnergy)       << 
900 {                                                 566 {
901   auto dp = new G4DynamicParticle(part, unitVe << 567   G4double result = 0;
902   G4double xs = theCrossSectionDataStore->Comp << 568   G4double nLTraversed = GetTotalNumberOfInteractionLengthTraversed();
903   delete dp;                                   << 569   result = 1./aScaleFactor*exp(-nLTraversed/aScaleFactor*(1-1./aScaleFactor));
904   return xs;                                   << 570   return result;
905 }                                                 571 }
906                                                   572 
907 void G4HadronicProcess::RecomputeXSandMFP(cons << 573 struct G4Nancheck{ bool operator()(G4double aV){return (!(aV<1))&&(!(aV>-1));}};
908 {                                              << 
909   auto dp = new G4DynamicParticle(currentParti << 
910   theLastCrossSection = aScaleFactor*          << 
911     theCrossSectionDataStore->ComputeCrossSect << 
912   theMFP = (theLastCrossSection > 0.0) ? 1.0/t << 
913   delete dp;                                   << 
914 }                                              << 
915                                                   574 
916 void G4HadronicProcess::UpdateCrossSectionAndM << 575 void G4HadronicProcess::FillTotalResult(G4HadFinalState * aR, const G4Track & aT)
917 {                                                 576 {
918   if(fXSType == fHadNoIntegral) {              << 577 //          G4cout << "############# Entry debug "
919     DefineXSandMFP();                          << 578 //           <<GetProcessName()<<" "
920                                                << 579 //     <<aT.GetDynamicParticle()->GetDefinition()->GetParticleName()<<" "
921   } else if(fXSType == fHadIncreasing) {       << 580 //     <<aT.GetDynamicParticle()<<" "
922     if(e*invLambdaFactor < mfpKinEnergy) {     << 581  //                <<aScaleFactor<<" "
923       mfpKinEnergy = e;                        << 582 //     <<aT.GetWeight()<<" "
924       ComputeXSandMFP();                       << 583 //     <<G4endl;
925     }                                          << 584       G4Nancheck go_wild;
926                                                << 585       theTotalResult->Clear();
927   } else if(fXSType == fHadDecreasing) {       << 586       theTotalResult->SetLocalEnergyDeposit(0.);
928     if(e < mfpKinEnergy && mfpKinEnergy > minK << 587       theTotalResult->Initialize(aT);
929       G4double e1 = std::max(e*lambdaFactor, m << 588       theTotalResult->SetSecondaryWeightByProcess(true);
930       mfpKinEnergy = e1;                       << 589       theTotalResult->SetStatusChange(fAlive);
931       RecomputeXSandMFP(e1);                   << 590       G4double rotation = 2.*pi*G4UniformRand();
932     }                                          << 591       G4ThreeVector it(0., 0., 1.);
933                                                << 592       /*
934   } else if(fXSType == fHadOnePeak) {          << 593       if(xBiasOn)
935     G4double epeak = (*theEnergyOfCrossSection << 594       {
936     if(e <= epeak) {                           << 595         G4cout << "BiasDebug "<<GetProcessName()<<" "
937       if(e*invLambdaFactor < mfpKinEnergy) {   << 596                               <<aScaleFactor<<" "
938         mfpKinEnergy = e;                      << 597                               <<XBiasSurvivalProbability()<<" "
939   ComputeXSandMFP();                           << 598               <<XBiasSecondaryWeight()<<" "
940       }                                        << 599             <<G4endl;
941     } else if(e < mfpKinEnergy) {              << 600       }
942       G4double e1 = std::max(epeak, e*lambdaFa << 601       */
943       mfpKinEnergy = e1;                       << 602       // if(GetProcessName() != "LElastic") std::cout << "Debug -1 "<<aR->GetStatusChange()<<std::endl;
944       RecomputeXSandMFP(e1);                   << 603       if(aR->GetStatusChange()==stopAndKill)
945     }                                          << 604       {
946                                                << 605   if( xBiasOn && G4UniformRand()<XBiasSurvivalProbability() )
947   } else if(fXSType == fHadTwoPeaks) {         << 606   {
948     G4TwoPeaksHadXS* xs = (*fXSpeaks)[matIdx]; << 607     theTotalResult->SetWeightChange( XBiasSurvivalProbability()*aT.GetWeight() );
949     const G4double e1peak = xs->e1peak;        << 608   }
950                                                << 609   else
951     // below the 1st peak                      << 610   {
952     if(e <= e1peak) {                          << 611           theTotalResult->SetStatusChange(fStopAndKill);
953       if(e*invLambdaFactor < mfpKinEnergy) {   << 612           theTotalResult->SetEnergyChange( 0.0 );
954         mfpKinEnergy = e;                      << 613   }
955   ComputeXSandMFP();                           << 
956       }                                        << 
957       return;                                  << 
958     }                                          << 
959     const G4double e1deep = xs->e1deep;        << 
960     // above the 1st peak, below the deep      << 
961     if(e <= e1deep) {                          << 
962       if(mfpKinEnergy >= e1deep || e <= mfpKin << 
963         const G4double e1 = std::max(e1peak, e << 
964         mfpKinEnergy = e1;                     << 
965   RecomputeXSandMFP(e1);                       << 
966       }                                        << 
967       return;                                  << 
968     }                                          << 
969     const G4double e2peak = xs->e2peak;        << 
970     // above the deep, below 2nd peak          << 
971     if(e <= e2peak) {                          << 
972       if(e*invLambdaFactor < mfpKinEnergy) {   << 
973         mfpKinEnergy = e;                      << 
974   ComputeXSandMFP();                           << 
975       }                                           614       }
976       return;                                  << 615       else if(aR->GetStatusChange()!=stopAndKill )
977     }                                          << 616       {
978     const G4double e2deep = xs->e2deep;        << 617         if(aR->GetStatusChange()==suspend)
979     // above the 2nd peak, below the deep      << 618         {
980     if(e <= e2deep) {                          << 619           theTotalResult->SetStatusChange(fSuspend);
981       if(mfpKinEnergy >= e2deep || e <= mfpKin << 620     if(xBiasOn)
982         const G4double e1 = std::max(e2peak, e << 621       {
983         mfpKinEnergy = e1;                     << 622             G4Exception("G4HadronicProcess", "007", FatalException,
984   RecomputeXSandMFP(e1);                       << 623                   "Cannot cross-section bias a process that suspends tracks.");
                                                   >> 624     }
                                                   >> 625         }
                                                   >> 626   if(xBiasOn && G4UniformRand()<XBiasSurvivalProbability())
                                                   >> 627   {
                                                   >> 628     theTotalResult->SetWeightChange( XBiasSurvivalProbability()*aT.GetWeight() );
                                                   >> 629     G4double newWeight = aR->GetWeightChange()*aT.GetWeight();
                                                   >> 630     if(go_wild(aR->GetEnergyChange()))
                                                   >> 631     {
                                                   >> 632             G4Exception("G4HadronicProcess", "007", FatalException,
                                                   >> 633                   "surviving track received NaN energy.");  
                                                   >> 634     }
                                                   >> 635     if(go_wild(aR->GetMomentumChange().x()) || 
                                                   >> 636        go_wild(aR->GetMomentumChange().y()) || 
                                                   >> 637        go_wild(aR->GetMomentumChange().z()))
                                                   >> 638     {
                                                   >> 639             G4Exception("G4HadronicProcess", "007", FatalException,
                                                   >> 640                   "surviving track received NaN momentum.");  
                                                   >> 641     }
                                                   >> 642       G4double newM=aT.GetDefinition()->GetPDGMass();
                                                   >> 643     G4double newE=aR->GetEnergyChange() + newM;
                                                   >> 644     G4double newP=sqrt(newE*newE - newM*newM);
                                                   >> 645     G4DynamicParticle * aNew = 
                                                   >> 646        new G4DynamicParticle(aT.GetDefinition(), newE, newP*aR->GetMomentumChange());
                                                   >> 647     G4HadSecondary * theSec = new G4HadSecondary(aNew, newWeight);
                                                   >> 648     aR->AddSecondary(theSec);
                                                   >> 649   }
                                                   >> 650   else
                                                   >> 651   {
                                                   >> 652     G4double newWeight = aR->GetWeightChange()*aT.GetWeight();
                                                   >> 653     theTotalResult->SetWeightChange(newWeight); // This is multiplicative
                                                   >> 654     if(aR->GetEnergyChange()>-.5) 
                                                   >> 655     {
                                                   >> 656         if(go_wild(aR->GetEnergyChange()))
                                                   >> 657       {
                                                   >> 658               G4Exception("G4HadronicProcess", "007", FatalException,
                                                   >> 659                     "track received NaN energy.");  
                                                   >> 660       }
                                                   >> 661       theTotalResult->SetEnergyChange(aR->GetEnergyChange());
                                                   >> 662     }
                                                   >> 663     G4LorentzVector newDirection(aR->GetMomentumChange().unit(), 1.);
                                                   >> 664     newDirection*=aR->GetTrafoToLab();
                                                   >> 665     theTotalResult->SetMomentumDirectionChange(newDirection.vect());
                                                   >> 666   }
985       }                                           667       }
986       return;                                  << 668       else
987     }                                          << 669       {
988     const G4double e3peak = xs->e3peak;        << 670         G4cerr << "Track status is "<< aR->GetStatusChange()<<G4endl;
989     // above the deep, below 3d peak           << 671   G4Exception("G4HadronicProcess", "007", FatalException,
990     if(e <= e3peak) {                          << 672               "use of unsupported track-status.");
991       if(e*invLambdaFactor < mfpKinEnergy) {   << 673       }
992         mfpKinEnergy = e;                      << 674       if(GetProcessName() != "LElastic"
993   ComputeXSandMFP();                           << 675          &&
                                                   >> 676    AlwaysKillLeadingHadron() 
                                                   >> 677          && 
                                                   >> 678    theTotalResult->GetStatusChange()==fAlive
                                                   >> 679    &&
                                                   >> 680    aR->GetStatusChange()==isAlive)
                                                   >> 681       {
                                                   >> 682         G4double newWeight = theTotalResult->GetWeightChange();
                                                   >> 683   G4double newM=aT.GetDefinition()->GetPDGMass();
                                                   >> 684   G4double newE=aR->GetEnergyChange() + newM;
                                                   >> 685   G4double newP=sqrt(newE*newE - newM*newM);
                                                   >> 686   G4DynamicParticle * aNew = 
                                                   >> 687      new G4DynamicParticle(aT.GetDefinition(), newE, newP*aR->GetMomentumChange());
                                                   >> 688   // std::cout << "Debug 0 "<<aR->GetNumberOfSecondaries()<<std::endl;
                                                   >> 689   //std::cout << "Debug 1 "<<aR->GetEnergyChange()<<" "<< aNew->GetTotalEnergy() <<std::endl;
                                                   >> 690   //std::cout << "Debug 2 "<<aR->GetMomentumChange()<<" "<< aNew->GetMomentum() << std::endl;
                                                   >> 691   //std::cout << "Debug 3 "<<newWeight<<std::endl;
                                                   >> 692   //std::cout << std::endl;
                                                   >> 693   G4HadSecondary * theSec = new G4HadSecondary(aNew, newWeight);
                                                   >> 694   aR->AddSecondary(theSec);
                                                   >> 695   aR->SetStatusChange(stopAndKill);
                                                   >> 696         theTotalResult->SetStatusChange(fStopAndKill);
                                                   >> 697         theTotalResult->SetEnergyChange( 0.0 );
                                                   >> 698         //std::cout << "Debug 4 "<< aR->GetNumberOfSecondaries() <<std::endl;
                                                   >> 699       }
                                                   >> 700       theTotalResult->SetLocalEnergyDeposit(aR->GetLocalEnergyDeposit());
                                                   >> 701       theTotalResult->SetNumberOfSecondaries(aR->GetNumberOfSecondaries());
                                                   >> 702 
                                                   >> 703       for(G4int i=0; i<aR->GetNumberOfSecondaries(); i++)
                                                   >> 704       {
                                                   >> 705         //std::cout << "Debug 5 "<< aR->GetNumberOfSecondaries() <<std::endl;
                                                   >> 706         G4LorentzVector theM = aR->GetSecondary(i)->GetParticle()->Get4Momentum();
                                                   >> 707         theM.rotate(rotation, it);
                                                   >> 708   theM*=aR->GetTrafoToLab();
                                                   >> 709   if(go_wild(theM.e()))
                                                   >> 710   {
                                                   >> 711           G4Exception("G4HadronicProcess", "007", FatalException,
                                                   >> 712                 "secondary track received NaN energy.");  
                                                   >> 713   }
                                                   >> 714   if(go_wild(theM.x()) || 
                                                   >> 715      go_wild(theM.y()) || 
                                                   >> 716      go_wild(theM.z()))
                                                   >> 717   {
                                                   >> 718           G4Exception("G4HadronicProcess", "007", FatalException,
                                                   >> 719                 "secondary track received NaN momentum.");  
                                                   >> 720   }
                                                   >> 721   aR->GetSecondary(i)->GetParticle()->Set4Momentum(theM);
                                                   >> 722   G4double time = aR->GetSecondary(i)->GetTime();
                                                   >> 723   if(time<0) time = aT.GetGlobalTime();
                                                   >> 724         G4Track* track = new G4Track(aR->GetSecondary(i)->GetParticle(),
                                                   >> 725              aT.GetGlobalTime(),
                                                   >> 726              aT.GetPosition());
                                                   >> 727   G4double newWeight = aT.GetWeight()*aR->GetSecondary(i)->GetWeight();
                                                   >> 728   //static G4double pinelcount=0;
                                                   >> 729   if(xBiasOn) newWeight *= XBiasSecondaryWeight();
                                                   >> 730           // G4cout << "#### ParticleDebug "
                                                   >> 731           // <<GetProcessName()<<" "
                                                   >> 732     // <<aR->GetSecondary(i)->GetParticle()->GetDefinition()->GetParticleName()<<" "
                                                   >> 733                 // <<aScaleFactor<<" "
                                                   >> 734                 // <<XBiasSurvivalProbability()<<" "
                                                   >> 735       // <<XBiasSecondaryWeight()<<" "
                                                   >> 736     // <<aT.GetWeight()<<" "
                                                   >> 737     // <<aR->GetSecondary(i)->GetWeight()<<" "
                                                   >> 738     // <<aR->GetSecondary(i)->GetParticle()->Get4Momentum()<<" "
                                                   >> 739     // <<G4endl;
                                                   >> 740   track->SetWeight(newWeight);
                                                   >> 741   G4double trackDeb = track->GetKineticEnergy();
                                                   >> 742   if( (  trackDeb<0 
                                                   >> 743      || (trackDeb>aT.GetKineticEnergy()+1*GeV) ) && getenv("GHADEnergyBalanceDebug") )
                                                   >> 744   {
                                                   >> 745     G4cout << "Debugging hadronic processes: "<<track->GetKineticEnergy()
                                                   >> 746            <<" "<<aT.GetKineticEnergy()
                                                   >> 747      <<" "<<GetProcessName()
                                                   >> 748      <<" "<<aT.GetDefinition()->GetParticleName() 
                                                   >> 749      <<G4endl;
                                                   >> 750   }
                                                   >> 751   /*if(GetProcessName()=="PhotonInelastic")
                                                   >> 752   {
                                                   >> 753     if(aR->GetSecondary(i)->GetParticle()->GetDefinition()==G4Neutron::NeutronDefinition())
                                                   >> 754     {
                                                   >> 755      pinelcount+= newWeight;
                                                   >> 756      G4cout << "=======> Neutrons from gamma-nuclear "<<pinelcount<<G4endl;
                                                   >> 757     }
                                                   >> 758   }*/
                                                   >> 759   
                                                   >> 760   theTotalResult->AddSecondary(track);
994       }                                           761       }
                                                   >> 762       aR->Clear();
995       return;                                     763       return;
996     }                                          << 
997     // above 3d peak                           << 
998     if(e <= mfpKinEnergy) {                    << 
999       const G4double e1 = std::max(e3peak, e*l << 
1000       mfpKinEnergy = e1;                      << 
1001       RecomputeXSandMFP(e1);                  << 
1002     }                                         << 
1003                                               << 
1004   } else {                                    << 
1005     DefineXSandMFP();                         << 
1006   }                                           << 
1007 }                                                764 }
                                                   >> 765  /* end of file */
1008                                                  766