Import Geant4 11.0.0.beta source tree

2021-06-25 16:12:29 +02:00
parent c968e26a39
commit 6399a014b6
4200 changed files with 207479 additions and 237366 deletions
@@ -0,0 +1,109 @@
+//
+// ********************************************************************
+// * 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.                      *
+// *                                                                  *
+// * Parts of this code which have been  developed by QinetiQ Ltd     *
+// * under contract to the European Space Agency (ESA) are the        *
+// * intellectual property of ESA. Rights to use, copy, modify and    *
+// * redistribute this software for general public use are granted    *
+// * in compliance with any licensing, distribution and development   *
+// * policy adopted by the Geant4 Collaboration. This code has been   *
+// * written by QinetiQ Ltd for the European Space Agency, under ESA  *
+// * contract 17191/03/NL/LvH (Aurora Programme).                     *
+// *                                                                  *
+// * 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.          *
+// ********************************************************************
+//
+// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+//
+// MODULE:              G4WilsonRadius.cc
+//
+// Version:		B.1
+// Date:		15/04/04
+// Author:		P R Truscott
+// Organisation:	QinetiQ Ltd, UK
+// Customer:		ESA/ESTEC, NOORDWIJK
+// Contract:		17191/03/NL/LvH
+//
+// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+//
+// CHANGE HISTORY
+// --------------
+//
+// 6 October 2003, P R Truscott, QinetiQ Ltd, UK
+// Created.
+//
+// 15 March 2004, P R Truscott, QinetiQ Ltd, UK
+// Beta release
+//
+// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+//
+////////////////////////////////////////////////////////////////////////////////
+//
+#include "G4WilsonRadius.hh"
+#include "G4SystemOfUnits.hh"
+#include "G4Pow.hh"
+
+////////////////////////////////////////////////////////////////////////////////
+//
+G4WilsonRadius::G4WilsonRadius ()
+{
+  G4double r0 = 0.84*fermi;
+  r0sq        = r0 * r0;
+  factor      = std::sqrt(5.0/3.0) * fermi;
+  third       = 1.0 / 3.0;
+}
+////////////////////////////////////////////////////////////////////////////////
+//
+G4WilsonRadius::~G4WilsonRadius ()
+{;}
+////////////////////////////////////////////////////////////////////////////////
+//
+G4double G4WilsonRadius::GetWilsonRMSRadius (G4double A)
+{
+  G4double radius;
+  if (A > 26.0)
+    radius = factor * (0.84*G4Pow::GetInstance()->A13(A) + 0.55);
+  else
+  {
+	// this was changed from just G4double to static const G4double
+	// to make sure that time wasn't being wasted on every call reloading a stack variable
+	// by MHM 20050119
+    static const G4double r[27] = {0.0, 0.85,  2.095, 1.976, 1.671, 1.986,
+                           2.57,  2.41,  2.23,  2.519, 2.45,
+                           2.42,  2.471, 2.440, 2.58,  2.611,
+                           2.730, 2.662, 2.727, 2.9,   3.040,
+                           2.867, 2.969, 2.94,  3.075, 3.11,
+                           3.06};
+    radius = factor * r[(G4int) (A+0.4)];
+  }
+  return radius;
+}
+////////////////////////////////////////////////////////////////////////////////
+//
+G4double G4WilsonRadius::GetWilsonRadius (G4double A)
+{
+  G4double r  = GetWilsonRMSRadius(A);
+  return  1.29*std::sqrt(r*r-r0sq);
+}
+////////////////////////////////////////////////////////////////////////////////
+//