Import Geant4 0.0.0 source tree

2016-06-01 15:25:35 +02:00
parent 54d6b71f95
commit b97f8d0df7
3237 changed files with 807095 additions and 0 deletions
@@ -0,0 +1,124 @@
+// This code implementation is the intellectual property of
+// the RD44 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: G4OpAbsorption.cc,v 2.6 1998/09/03 21:31:01 gum Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+////////////////////////////////////////////////////////////////////////
+// Optical Photon Absorption Class Implementation
+////////////////////////////////////////////////////////////////////////
+//
+// File:        G4OpAbsorption.cc
+// Description: Discrete Process -- Absorption of Optical Photons  
+// Version:     1.0
+// Created:     1996-05-21
+// Author:      Juliet Armstrong
+// Updated:     1997-04-09 by Peter Gumplinger
+//              > new physics/tracking scheme
+//              1998-08-25 by Stefano Magni
+//              > Change process to use G4MaterialPropertiesTables
+//              1998-09-03 by Peter Gumplinger
+//              > Protect G4MaterialPropertyVector* AttenuationLengthVector
+// mail:        gum@triumf.ca
+//              magni@mi.infn.it
+//
+////////////////////////////////////////////////////////////////////////
+
+#include "G4ios.hh"
+#include "G4OpAbsorption.hh"
+
+/////////////////////////
+// Class Implementation
+/////////////////////////
+
+        //////////////
+        // Operators
+        //////////////
+
+// G4OpAbsorption::operator=(const G4OpAbsorption &right)
+// {
+// }
+
+        /////////////////
+        // Constructors
+        /////////////////
+
+G4OpAbsorption::G4OpAbsorption(const G4String& processName)
+              : G4VDiscreteProcess(processName)
+{
+        if (verboseLevel>0) {
+           G4cout << GetProcessName() << " is created " << endl;
+        }
+}
+
+// G4OpAbsorption::G4OpAbsorption(const G4OpAbsorpton &right)
+// {
+// }
+
+        ////////////////
+        // Destructors
+        ////////////////
+
+G4OpAbsorption::~G4OpAbsorption(){}
+
+        ////////////
+        // Methods
+        ////////////
+
+// PostStepDoIt
+// -------------
+//
+G4VParticleChange*
+G4OpAbsorption::PostStepDoIt(const G4Track& aTrack, const G4Step& aStep)
+{
+        aParticleChange.Initialize(aTrack);
+
+        aParticleChange.SetStatusChange(fStopAndKill);
+
+        if (verboseLevel>0) {
+	   G4cout << "\n** Photon Absorbed! **" << endl;
+        }
+        return G4VDiscreteProcess::PostStepDoIt(aTrack, aStep);
+}
+
+
+// GetMeanFreePath
+// ---------------
+//
+G4double G4OpAbsorption::GetMeanFreePath(const G4Track& aTrack,
+ 				         G4double ,
+				         G4ForceCondition* )
+{
+	const G4DynamicParticle* aParticle = aTrack.GetDynamicParticle();
+        const G4Material* aMaterial = aTrack.GetMaterial();
+
+	G4double thePhotonMomentum = aParticle->GetTotalMomentum();
+
+	G4MaterialPropertiesTable* aMaterialPropertyTable;
+	G4MaterialPropertyVector* AttenuationLengthVector;
+	
+        G4double AttenuationLength = DBL_MAX;
+
+	aMaterialPropertyTable = aMaterial->GetMaterialPropertiesTable();
+
+	if ( aMaterialPropertyTable ) {
+	   AttenuationLengthVector = aMaterialPropertyTable->
+                                                GetProperty("ABSLENGTH");
+           if ( AttenuationLengthVector ){
+             AttenuationLength = AttenuationLengthVector->
+                                         GetProperty (thePhotonMomentum);
+           }
+           else {
+             G4cout << "No Absorbtion length specified" << endl;
+           }
+        } 
+        else {
+           G4cout << "No Absorbtion length specified" << endl;
+        }	
+
+        return AttenuationLength;
+}