Import Geant4 6.0.0 source tree

2016-06-09 10:41:53 +02:00
parent 4aea781e80
commit 96686e0c8f
6560 changed files with 153347 additions and 238155 deletions
@@ -0,0 +1,142 @@
+//
+// ********************************************************************
+// * 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.                                    *
+// ********************************************************************
+//
+//
+// -------------------------------------------------------------------
+//      GEANT4 Class file
+//
+//      For information related to this code contact:
+//
+//      File name:     G4PartialWidthTable
+//
+//      Author:        
+// 
+//      Creation date: 15 April 1999
+//
+//      Modifications: 
+//      
+// -------------------------------------------------------------------
+
+#include "globals.hh"
+#include "G4HadronicException.hh"
+#include "G4ios.hh"
+#include "G4PartialWidthTable.hh"
+#include "G4KineticTrack.hh"
+
+
+G4PartialWidthTable::G4PartialWidthTable(const G4double* energies, G4int entries) : nEnergies(entries)
+{ 
+  // Fill the vector with tabulated energies
+  G4int i;
+  for (i=0; i<entries; i++)
+    {
+      G4double e = *(energies + i) * GeV;
+      energy.push_back(e);
+    }
+}
+
+
+G4PartialWidthTable::~G4PartialWidthTable()
+{ }
+
+
+G4bool G4PartialWidthTable::operator==(const G4PartialWidthTable &right) const
+{
+  return (this == (G4PartialWidthTable *) &right);
+}
+
+
+G4bool G4PartialWidthTable::operator!=(const G4PartialWidthTable &right) const
+{
+  return (this != (G4PartialWidthTable *) &right);
+}
+
+
+G4int G4PartialWidthTable::NumberOfChannels() const
+{
+  return widths.size();
+}
+
+
+const G4PhysicsVector* G4PartialWidthTable::Width(const G4String& name1, const G4String& name2) const
+{
+  // Returned pointer is not owned by the client
+  G4int i;
+  G4PhysicsVector* width = 0;
+  G4int n = 0;
+  G4int entries = widths.size();
+  for (i=0; i<entries; i++)
+    {
+      if ( (daughter1[i] == name1 && daughter2[i] == name2) ||
+	   (daughter2[i] == name1 && daughter1[i] == name2) )
+	{
+	  width = (G4PhysicsVector*) (widths[i]);
+	  n++;
+	}
+    }
+  if (n > 1) throw G4HadronicException(__FILE__, __LINE__, "G4PartialWidthTable::Width - ambiguity");
+
+  return width;
+}
+
+
+void G4PartialWidthTable::AddWidths(const G4double* channelWidth, 
+				    const G4String& name1, const G4String& name2)
+{
+  G4PhysicsFreeVector* width = new G4PhysicsFreeVector(nEnergies);
+  G4int i;
+  for (i=0; i<nEnergies; i++)
+    {
+      G4double value = *(channelWidth+ i) * GeV;
+      G4double e = energy[i];
+      width->PutValue(i,e,value);
+    }	            
+
+  widths.push_back(width);
+  daughter1.push_back(name1);
+  daughter2.push_back(name2);
+
+  return;
+}
+
+
+void G4PartialWidthTable::Dump() const
+{
+  G4int entries = widths.size();
+
+  G4int i;
+  for (i=0; i<entries; i++)
+    {
+      G4cout << " Channel " << i  << ": " 
+	   << daughter1[i] << " " << daughter2[i] << G4endl;
+      G4PhysicsFreeVector* width = widths[i];
+      G4int j;
+      for (j=0; j<nEnergies; j++)
+	{
+	  G4bool dummy = false;
+	  G4double e = energy[i];
+	  G4double w = width->GetValue(e,dummy);
+	  G4cout << j << ") Energy = " << e << ", Width = " << w << G4endl;
+	}
+    }
+  return;
+}