Import Geant4 8.0.0 source tree

2016-06-09 14:36:02 +02:00
parent d93e1e39a9
commit 8a51e0bc40
5471 changed files with 99628 additions and 55248 deletions
@@ -0,0 +1,118 @@
+//
+// ********************************************************************
+// * DISCLAIMER                                                       *
+// *                                                                  *
+// * The following disclaimer summarizes all the specific disclaimers *
+// * of contributors to this software. The specific disclaimers,which *
+// * govern, are listed with their locations in:                      *
+// *   http://cern.ch/geant4/license                                  *
+// *                                                                  *
+// * Neither the authors of this software system, nor their employing *
+// * institutes,nor the agencies providing financial support for this *
+// * work  make  any representation or  warranty, express or implied, *
+// * regarding  this  software system or assume any liability for its *
+// * use.                                                             *
+// *                                                                  *
+// * This  code  implementation is the  intellectual property  of 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: GVFlashShowerParameterisation.cc,v 1.1 2005/11/30 19:29:44 gcosmo Exp $
+// GEANT4 tag $Name: geant4-08-00 $
+//
+//
+// ------------------------------------------------------------
+// GEANT 4 class implementation
+//
+//      ------- GVFlashShowerParameterisation -------
+//
+// Authors: Joanna Weng - 11.2005
+// ------------------------------------------------------------
+
+#include "GVFlashShowerParameterisation.hh"
+#include <cmath>
+#include "Randomize.hh"
+#include "G4ios.hh"
+#include "G4Material.hh"
+#include "Gamma.hh" // @@@@
+#include "G4MaterialTable.hh"
+
+GVFlashShowerParameterisation::GVFlashShowerParameterisation()
+  : thePar(0)
+{
+}
+
+GVFlashShowerParameterisation::~GVFlashShowerParameterisation()
+{
+}
+
+G4double GVFlashShowerParameterisation::GetEffZ(const G4Material * mat  )
+{
+  // Returns Z or effective Z=sum(pi*Zi) (if compound/mixture)
+  // of given material
+  //
+  G4double z = 0.;
+  G4int nofElements = mat->GetNumberOfElements();
+  if (nofElements > 1) 
+  {
+    for (G4int i=0; i<nofElements; i++) {
+      G4double zOfElement = mat->GetElement(i)->GetZ();
+      G4double massFraction = mat->GetFractionVector()[i];
+      // cout << mat->GetElement(i)->GetName()
+      //      <<" Z= "<<zOfElement << " , Fraction= "<<massFraction <<endl;
+      z += zOfElement*massFraction;
+    }
+  }
+  else { 
+    z = mat->GetZ(); 
+  }  
+  return z;
+}
+
+G4double GVFlashShowerParameterisation::GetEffA  (const G4Material * mat  )
+{
+  // Returns A or effective A=sum(pi*Ai) (if compound/mixture)
+  // of given material
+  //
+  G4double a = 0.;
+  G4int nofElements = mat->GetNumberOfElements();
+  if (nofElements > 1) {
+    for (G4int i=0; i<nofElements; i++) {
+      G4double aOfElement = mat->GetElement(i)->GetA()/(g/mole);
+      G4double massFraction = mat->GetFractionVector()[i];     
+      a += aOfElement*massFraction;
+    }
+  }
+  else { 
+    a = mat->GetA()/(g/mole);
+  }
+  return a;
+}
+
+void GVFlashShowerParameterisation::PrintMaterial(const G4Material * mat)
+{
+  G4cout<<"/********************************************/ " << G4endl;
+  G4cout<<"  - GVFlashShowerParameterisation::Material -  " << G4endl;
+  G4cout<<"        Material : " << mat->GetName()  << G4endl;
+  G4cout<<"   Z = "<< Z  << G4endl;
+  G4cout<<"   A = "<< A  << G4endl;
+  G4cout<<"   X0 = "<<X0/cm <<" cm" << G4endl;
+  G4cout<<"    Rm= "<<Rm/cm <<" cm" << G4endl;
+  G4cout<<"   Ec = "<<Ec/MeV << " MeV"<< G4endl;
+  G4cout<<"/********************************************/ " << G4endl; 
+}
+
+G4double GVFlashShowerParameterisation::GeneratePhi()
+{
+  G4double Phi = twopi*G4UniformRand() ;
+  return Phi;
+}
+
+G4double GVFlashShowerParameterisation::gam(G4double x, G4double a) const 
+{
+  static MyGamma theG;
+  return  theG.Gamma(a, x); 
+}