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,138 @@
+// 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: G4SandiaTable.hh,v 2.2 1998/12/10 11:43:35 maire Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... ....oooOO0OOooo....
+//
+// 18.11.98 simplified public interface; new methods for materials.  mma
+// 10.06.97 created. V. Grichine
+//
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... ....oooOO0OOooo....
+
+#ifndef G4SANDIATABLE_HH
+#define G4SANDIATABLE_HH
+
+#include "G4OrderedTable.hh"      
+#include "G4ios.hh"
+#include "globals.hh"
+#include <assert.h>
+
+class G4Material;
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... ....oooOO0OOooo....
+
+class G4SandiaTable
+{
+public:
+
+    G4SandiaTable(G4Material*);	         
+   ~G4SandiaTable();
+   
+    static G4int     GetNbOfIntervals   (G4int Z);
+    static G4double  GetSandiaCofPerAtom(G4int Z, G4int, G4int);
+    static G4double* GetSandiaCofPerAtom(G4int Z, G4double energy);
+    static G4double  GetIonizationPot   (G4int Z);
+    static G4double  GetZtoA            (G4int Z);
+    
+           G4int     GetMatNbOfIntervals()  {return fMatNbOfIntervals;};
+           G4double  GetSandiaCofForMaterial(G4int,G4int);
+           G4double* GetSandiaCofForMaterial(G4double energy);
+
+private:
+       
+    void ComputeMatSandiaMatrix();
+    
+private:
+
+    static const G4double        fSandiaTable[981][5];
+    static const G4int           fNbOfIntervals[101];
+    static       G4int           fCumulInterval[101];
+    static const G4double        fZtoAratio[101];
+    static const G4double        fIonizationPotentials[101];
+               
+    static       G4double        fSandiaCofPerAtom[4];
+    
+                 G4Material*     fMaterial;
+                 G4int           fMatNbOfIntervals;
+                 G4OrderedTable* fMatSandiaMatrix;    
+};
+    
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... ....oooOO0OOooo....
+
+// Inline function implementations
+
+
+inline
+G4int G4SandiaTable::GetNbOfIntervals(G4int Z)
+{
+   return fNbOfIntervals[Z];
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... ....oooOO0OOooo....
+
+inline
+G4double  G4SandiaTable::GetSandiaCofPerAtom(G4int Z, G4int interval, G4int j)
+{
+   assert (Z>0 && Z<101 && interval>=0 && interval<fNbOfIntervals[Z]
+                        && j>=0 && j<5);
+
+   G4int row = fCumulInterval[Z-1] + interval;
+   if (j==0) return fSandiaTable[row][0]*keV;
+   G4double AoverAvo = Z/(fZtoAratio[Z]*Avogadro*mole);         
+   return fSandiaTable[row][j]*AoverAvo*cm2*pow(keV,(int)j);     
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... ....oooOO0OOooo....
+
+inline
+G4double* G4SandiaTable::GetSandiaCofPerAtom(G4int Z, G4double energy)
+{
+   assert (Z > 0);
+   G4int interval = fNbOfIntervals[Z] - 1;
+   G4int row = fCumulInterval[Z-1] + interval;
+   while ((interval>0) && (energy<fSandiaTable[row][0]*keV))
+         row = fCumulInterval[Z-1] + --interval;
+
+   if (energy >= fIonizationPotentials[Z]*eV)
+     {        
+      G4double AoverAvo = Z/(fZtoAratio[Z]*Avogadro*mole);
+         
+      fSandiaCofPerAtom[0]=fSandiaTable[row][1]*AoverAvo*cm2*keV;     
+      fSandiaCofPerAtom[1]=fSandiaTable[row][2]*AoverAvo*cm2*keV*keV;     
+      fSandiaCofPerAtom[2]=fSandiaTable[row][3]*AoverAvo*cm2*keV*keV*keV;     
+      fSandiaCofPerAtom[3]=fSandiaTable[row][4]*AoverAvo*cm2*keV*keV*keV*keV;
+     }
+   else
+      fSandiaCofPerAtom[0] = fSandiaCofPerAtom[1] = fSandiaCofPerAtom[2] =
+      fSandiaCofPerAtom[3] = 0.;
+                        
+   return fSandiaCofPerAtom;     
+
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... ....oooOO0OOooo....
+
+inline
+G4double G4SandiaTable::GetIonizationPot(G4int Z)
+{
+   return fIonizationPotentials[Z]*eV;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... ....oooOO0OOooo....
+
+inline
+G4double G4SandiaTable::GetZtoA(G4int Z)
+{
+   return fZtoAratio[Z];
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... ....oooOO0OOooo....
+
+#endif 
+