Import Geant4 9.1.0 source tree

2016-06-09 15:37:50 +02:00
parent a8e9364cea
commit 96c8bcd0af
6923 changed files with 198390 additions and 41849 deletions
@@ -0,0 +1,152 @@
+//
+// ********************************************************************
+// * 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.          *
+// ********************************************************************
+//
+// ------------------------------------------------------------
+//      GEANT 4 class header file
+//
+//      History:
+//               25 July 2007 P.Gumplinger
+//               Samples Radiative Muon Decay
+//               Reference: 
+//                    TRIUMF/TWIST Technote: 
+//                    "Radiative muon decay" by P. Depommier and A. Vacheret
+//
+// ------------------------------------------------------------
+//
+//
+//
+//
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+#ifndef G4MuonRadiativeDecayChannelWithSpin_h
+#define G4MuonRadiativeDecayChannelWithSpin_h 1
+
+#include "globals.hh"
+#include "Randomize.hh"
+#include "G4ThreeVector.hh"
+#include "G4VDecayChannel.hh"
+
+class G4MuonRadiativeDecayChannelWithSpin : public G4VDecayChannel
+{
+  // Class Decription
+  // This class describes radiative muon decay kinemtics, but
+  // gives incorrect energy spectrum for neutrinos
+
+  public:  // With Description
+
+    //Constructors
+    G4MuonRadiativeDecayChannelWithSpin(const G4String& theParentName,
+                                        G4double        theBR);
+    //  Destructor
+    virtual ~G4MuonRadiativeDecayChannelWithSpin();
+
+  public:  // With Description
+
+    virtual G4DecayProducts *DecayIt(G4double);
+
+    void SetPolarization(G4ThreeVector);
+    const G4ThreeVector& GetPolarization() const;
+
+  private:
+
+    G4ThreeVector parent_polarization;
+
+    G4double fron(G4double Pmu, G4double x, G4double y,
+                  G4double cthetaE, G4double cthetaG, G4double cthetaEG);
+
+    // rn3dim generates random vectors, uniformly distributed over the surface 
+    // of a sphere of given radius.
+    // See http://wwwinfo.cern.ch/asdoc/shortwrupsdir/v131/top.html
+
+    void rn3dim(G4double& x, G4double& y, G4double& z, G4double xlong);
+
+    G4double atan4(G4double x, G4double y);
+
+    G4double EMMU;
+    G4double EMASS;
+
+};
+
+inline void G4MuonRadiativeDecayChannelWithSpin::
+                                        SetPolarization(G4ThreeVector polar)
+{
+  parent_polarization = polar;
+}
+
+inline const G4ThreeVector& G4MuonRadiativeDecayChannelWithSpin::
+                                        GetPolarization() const
+{
+  return parent_polarization;
+}
+
+inline void G4MuonRadiativeDecayChannelWithSpin::rn3dim(G4double& x,
+                                                        G4double& y,
+                                                        G4double& z,
+                                                        G4double xlong)
+{
+      G4double a = 0.; G4double b = 0.; G4double c = 0.; G4double r = 0.;
+
+      do {
+         a = G4UniformRand() - 0.5;
+         b = G4UniformRand() - 0.5;
+         c = G4UniformRand() - 0.5;
+         r = a*a + b*b + c*c;
+      } while (r > 0.25);
+
+      G4double rinv = xlong/(std::sqrt(r)); 
+      x = a * rinv;
+      y = b * rinv;
+      z = c * rinv;
+
+      return;
+}
+
+inline G4double G4MuonRadiativeDecayChannelWithSpin::atan4(G4double x,
+                                                           G4double y)
+{
+      G4double phi = 0.;
+
+      G4double pi = 4.*std::atan(1.);
+
+      if        (x==0. && y>0.){
+         phi = 0.5*pi;
+      } else if (x==0. && y<0.){
+         phi = 1.5*pi;
+      } else if (y==0. && x>0.){
+         phi = 0.;
+      } else if (y==0. && x<0.){
+         phi = pi;
+      } else if (x>0.         ){
+         phi = std::atan(y/x);
+      } else if (x<0.         ){
+         phi = std::atan(y/x) + pi;
+      }
+
+      return phi;
+}
+
+#endif