Import Geant4 1.0.0 source tree

source/processes/hadronic/management/src/G4HadronicProcess.cc

@@ -1,15 +1,29 @@
 // This code implementation is the intellectual property of
-// the RD44 GEANT4 collaboration.
+// the GEANT4 collaboration.
 //
 // By copying, distributing or modifying the Program (or any work
 // based on the Program) you indicate your acceptance of this statement,
 // and all its terms.
 //
-// $Id: G4HadronicProcess.cc,v 1.1 1999/01/07 16:11:36 gunter Exp $
-// GEANT4 tag $Name: geant4-00-01 $
+// $Id: G4HadronicProcess.cc,v 1.7.2.1 1999/12/07 20:51:31 gunter Exp $
+// GEANT4 tag $Name: geant4-01-00 $
 //
  // HPW to implement the choosing of an element for scattering.
+#include <fstream.h>
+#ifdef WIN32
+  #include <strstrea.h>
+#else
+  #include <strstream.h>
+#endif
+#include <stdlib.h>
 #include "G4HadronicProcess.hh"
+//@@ add model name info, once typeinfo available #include <typeinfo.h>
+ 
+ G4IsoParticleChange * G4HadronicProcess::theIsoResult = NULL;
+ G4IsoParticleChange * G4HadronicProcess::theOldIsoResult = NULL;
+ G4bool G4HadronicProcess::isoIsEnabled = true;
+ void G4HadronicProcess::EnableIsotopeProductionGlobally()  {isoIsEnabled = true;}
+ void G4HadronicProcess::DisableIsotopeProductionGlobally() {isoIsEnabled = false;}
  
  G4Element * G4HadronicProcess::ChooseAandZ(
   const G4DynamicParticle *aParticle, const G4Material *aMaterial )
@@ -66,7 +80,98 @@
     G4VParticleChange *result =
       theInteraction->ApplyYourself( aTrack, targetNucleus);
     ResetNumberOfInteractionLengthLeft();
+    if(isoIsOnAnyway!=-1)
+    {
+      if(isoIsEnabled||isoIsOnAnyway)
+      {
+        result = DoIsotopeCounting(result, aTrack, targetNucleus);
+      }
+    }
     return result;
   }
 
+  G4VParticleChange * G4HadronicProcess::
+  DoIsotopeCounting(G4VParticleChange * aResult,
+                    const G4Track & aTrack,
+                    const G4Nucleus & aNucleus)
+  {
+    // get the PC from iso-production
+    if(theOldIsoResult) delete theOldIsoResult;
+    if(theIsoResult) delete theIsoResult;
+    theIsoResult = new G4IsoParticleChange;
+    G4bool done = false;
+    G4IsoResult * anIsoResult = NULL;
+    for(G4int i=0; i<theProductionModels.length(); i++)
+    {
+      anIsoResult = theProductionModels(i)->GetIsotope(aTrack, aNucleus);
+      if(anIsoResult!=NULL)
+      {
+        done = true;
+        break;
+      }
+    }
+    // if none in charge, use default iso production
+    if(!done) anIsoResult = ExtractResidualNucleus(aTrack, aNucleus, aResult); 
+        
+    // Add all info explicitely and add typename from model called.
+    theIsoResult->SetIsotope(anIsoResult->GetIsotope());
+    theIsoResult->SetProductionPosition(aTrack.GetPosition());
+    theIsoResult->SetProductionTime(aTrack.GetGlobalTime());
+    theIsoResult->SetParentParticle(*aTrack.GetDynamicParticle());
+    theIsoResult->SetMotherNucleus(anIsoResult->GetMotherNucleus());
+//    theIsoResult->SetProducer(typeid(*theInteraction).name()); @@@@@@@
+    G4String aWorkaround("WaitingForTypeidToBeAvailableInCompilers"); // @@@@@  workaround for DEC.
+    theIsoResult->SetProducer(aWorkaround);
+    
+    delete anIsoResult;
+
+    return aResult;
+  }
+  
+  G4IsoResult * G4HadronicProcess::
+  ExtractResidualNucleus(const G4Track & aTrack,
+                         const G4Nucleus & aNucleus,
+                         G4VParticleChange * aResult)
+  {
+    G4double A = aNucleus.GetN();
+    G4double Z = aNucleus.GetZ();
+    G4double bufferA = 0;
+    G4double bufferZ = 0;
+    
+    // loop over aResult, and decrement A, Z accordingly
+    // cash the max
+    for(G4int i=0; i<aResult->GetNumberOfSecondaries(); i++)
+    {
+      G4Track* aSecTrack = aResult->GetSecondary(i);
+      if(bufferA<aSecTrack->GetDefinition()->GetBaryonNumber())
+      {
+        bufferA = aSecTrack->GetDefinition()->GetBaryonNumber();
+        bufferZ = aSecTrack->GetDefinition()->GetPDGCharge();
+      }
+      Z-=aSecTrack->GetDefinition()->GetPDGCharge();
+      A-=aSecTrack->GetDefinition()->GetBaryonNumber();
+    }
+    
+    // if the fragment was part of the final state, it is 
+    // assumed to be the heaviest secondary.
+    if(A<0.1)
+    {
+       A = bufferA;
+       Z = bufferZ;
+    }
+    
+    // prepare the IsoResult.
+    char the1[100] = {""};
+    ostrstream ost1(the1, 100, ios::out);
+    ost1 <<Z<<"_"<<A;
+    G4String * biff = new G4String(the1);
+    G4IsoResult * theResult = new G4IsoResult(*biff, aNucleus);
+    
+    // cleaning up.
+    delete biff;
+    
+    return theResult;
+  }
+
+
  /* end of file */