Import Geant4 10.1.0 source tree

2016-06-10 12:08:39 +02:00
parent 286caacf06
commit c9b32a6c0a
5770 changed files with 1050949 additions and 367105 deletions
@@ -0,0 +1,117 @@
+//
+// ********************************************************************
+// * License and Disclaimer                                           *
+// *                                                                  *
+// * The  Geant4 software  is  copyright of the Copyright Holders  of *
+// * the Geant4 Collaboration.  It is provided  under  the terms  and *
+// * conditions of the Geant4 Software License,  included in the file *
+// * LICENSE and available at  http://cern.ch/geant4/license .  These *
+// * include a list of copyright holders.                             *
+// *                                                                  *
+// * 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.  Please see the license in the file  LICENSE  and URL above *
+// * for the full disclaimer and the limitation of liability.         *
+// *                                                                  *
+// * This  code  implementation is the result of  the  scientific and *
+// * technical work of the GEANT4 collaboration.                      *
+// * By using,  copying,  modifying or  distributing the software (or *
+// * any work based  on the software)  you  agree  to acknowledge its *
+// * use  in  resulting  scientific  publications,  and indicate your *
+// * acceptance of all terms of the Geant4 Software license.          *
+// ********************************************************************
+//
+#include "G4LEPTSElossDistr.hh"
+#include "G4LEPTSDistribution.hh"
+
+
+G4LEPTSElossDistr::G4LEPTSElossDistr(string file) {
+  fileName = file;
+
+  ReadFile();
+}
+
+
+void G4LEPTSElossDistr::ReadFile() 
+{
+  theNDistributions = 0;
+
+  FILE * fp;
+
+  if ((fp=fopen(fileName.c_str(), "r"))==NULL){
+    //G4cout << "Error reading " << fileName << G4endl;
+    NoBins = 0;
+    bFileFound = false;
+    return;
+  } 
+
+  bFileFound = true;
+  //  G4cout << "Read Eloss Distro (" << fileName << ") " << G4endl;
+  G4int nEnergies;
+  G4int nAngles;
+  G4int nData;
+  fscanf(fp,"%i \n",&nEnergies);
+  for( G4int ie = 0; ie < nEnergies; ie++ ){
+    float energySep; 
+    fscanf(fp,"%f \n",&energySep);
+    fscanf(fp,"%i \n",&nAngles);
+    for( G4int ia = 0; ia < nAngles; ia++ ){
+      float angleSep; 
+      fscanf(fp,"%f \n",&angleSep);
+      G4LEPTSDistribution* dist = new G4LEPTSDistribution();
+      theNDistributions ++;
+      mddist angleDist;
+      angleDist[angleSep] = dist;
+      theDistributions[energySep] = angleDist;
+      
+      fscanf(fp,"%i \n",&nData);
+      if( dist->ReadFile( fp, nData ) ) {
+	G4Exception("G4LEPTSElossDistr",
+		  "",
+		    FatalException,
+		  ("End of file found while reading file"+ fileName).c_str());	
+      }
+    }
+  }
+  
+  fclose(fp);
+
+}
+
+
+
+G4double G4LEPTSElossDistr::Sample( G4double eMin, G4double eMax) 
+{
+// Sample Energy from Cumulative distr. G4interval [eMin, eMax]
+
+  if( eMin > eMax) return 0.0;
+
+  //Get the distribution to do the sampling
+  G4LEPTSDistribution* distr  = 0;
+  if( theNDistributions == 1 ){
+    distr = (*( (*(theDistributions.begin())).second ).begin()).second;
+  } else{
+    mdmddist::const_iterator itedd;
+    for( itedd = theDistributions.begin(); itedd != theDistributions.end(); itedd++ ){
+      G4double energySep = (*itedd).first;
+      if( eMax < energySep ) {
+	//tt	if( eMax <= energySep ) { 
+	mddist dist1 = (*itedd).second;
+	mddist::const_iterator ited;
+	for( ited = dist1.begin(); ited != dist1.end(); ited++ ){
+	  G4double angleSep = (*ited).first;
+	  if( 1 < angleSep ) {
+	    distr = (*ited).second;
+	    break;
+	  }
+	}
+	break;
+      }
+    }
+  }
+
+  //  G4cout << " LEPTSElossDistr::Sample(  " << distr << " NDIST " << theNDistributions << G4endl; //GDEB
+  return distr->Sample(eMin, eMax);
+}