Import Geant4 10.7.0.beta source tree

source/processes/hadronic/util/src/G4HadronicParameters.cc

@@ -32,31 +32,43 @@
 //
 // Description:    Singleton to keep global hadronic parameters.
 //
-//                 For the time being, at least, offers only "getters" but
-//                 not "setters", i.e. a recompilation is needed to change
-//                 the default parameters.
-//
 // Modified:
 //
 //----------------------------------------------------------------------------
 
 #include "G4HadronicParameters.hh"
 #include <CLHEP/Units/PhysicalConstants.h>
+#include "G4ApplicationState.hh"
+#include "G4StateManager.hh"
+#include "G4HadronicParametersMessenger.hh"
 
 
 G4HadronicParameters* G4HadronicParameters::sInstance = nullptr;
 
+#ifdef G4MULTITHREADED
+G4Mutex G4HadronicParameters::paramMutex = G4MUTEX_INITIALIZER;
+#endif
 
 G4HadronicParameters* G4HadronicParameters::Instance() {
   if ( sInstance == nullptr ) {
-    static G4HadronicParameters theHadronicParametersObject;
-    sInstance = &theHadronicParametersObject;
+    #ifdef G4MULTITHREADED
+    G4MUTEXLOCK( &paramMutex );
+    if ( sInstance == nullptr ) {
+    #endif
+      static G4HadronicParameters theHadronicParametersObject;
+      sInstance = &theHadronicParametersObject;
+    #ifdef G4MULTITHREADED
+    }
+    G4MUTEXUNLOCK(&paramMutex);
+    #endif
   }
   return sInstance;
 }
 
 
-G4HadronicParameters::~G4HadronicParameters() {}
+G4HadronicParameters::~G4HadronicParameters() {
+  delete fMessenger;
+}
 
 
 G4HadronicParameters::G4HadronicParameters() {
@@ -65,5 +77,56 @@ G4HadronicParameters::G4HadronicParameters() {
   fMaxEnergyTransitionFTF_Cascade = 6.0*CLHEP::GeV;
   fMinEnergyTransitionQGS_FTF = 12.0*CLHEP::GeV;
   fMaxEnergyTransitionQGS_FTF = 25.0*CLHEP::GeV;
+  fVerboseLevel = 1;
+  fEnableBC = false;
+  fMessenger = new G4HadronicParametersMessenger( this );
 }
 
+
+G4bool G4HadronicParameters::IsLocked() const {
+  return ( ! G4Threading::IsMasterThread() ||
+           G4StateManager::GetStateManager()->GetCurrentState() != G4State_PreInit );
+}
+
+
+void G4HadronicParameters::SetMaxEnergy( const G4double val ) {
+  if ( ! IsLocked()  &&  val > 0.0 ) { 
+    fMaxEnergy = val;
+  }
+}
+
+
+void G4HadronicParameters::SetMinEnergyTransitionFTF_Cascade( const G4double val ) {
+  if ( ! IsLocked()  &&  val > 0.0 ) { 
+    fMinEnergyTransitionFTF_Cascade = val;
+  }
+}
+
+void G4HadronicParameters::SetMaxEnergyTransitionFTF_Cascade( const G4double val ) {
+  if ( ! IsLocked()  &&  val > fMinEnergyTransitionFTF_Cascade ) { 
+    fMaxEnergyTransitionFTF_Cascade = val;
+  }
+}
+
+
+void G4HadronicParameters::SetMinEnergyTransitionQGS_FTF( const G4double val ) {
+  if ( ! IsLocked()  &&  val > 0.0 ) { 
+    fMinEnergyTransitionQGS_FTF = val;
+  }
+}
+
+void G4HadronicParameters::SetMaxEnergyTransitionQGS_FTF( const G4double val ) {
+  if ( ! IsLocked()  &&  val > fMinEnergyTransitionQGS_FTF ) { 
+    fMaxEnergyTransitionQGS_FTF = val;
+  }
+}
+
+
+void G4HadronicParameters::SetEnableBCParticles( G4bool val ) {
+  if ( ! IsLocked() ) fEnableBC = val;
+}
+
+
+void G4HadronicParameters::SetVerboseLevel( const G4int val ) {
+  if ( ! IsLocked()  &&  val >= 0 ) fVerboseLevel = val;
+}

source/processes/hadronic/util/src/G4HadronicParametersMessenger.cc

@@ -0,0 +1,71 @@
+//
+// ********************************************************************
+// * 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.          *
+// ********************************************************************
+//
+//---------------------------------------------------------------------------
+// ClassName: G4HadronicParametersMessenger
+// Author: Alberto Ribon
+// Date: May 2020
+//---------------------------------------------------------------------------
+
+#include "G4HadronicParametersMessenger.hh"
+#include "G4UIdirectory.hh"
+#include "G4UIcommand.hh"
+#include "G4UIcmdWithAnInteger.hh"
+#include "G4HadronicParameters.hh"
+
+
+G4HadronicParametersMessenger::G4HadronicParametersMessenger( G4HadronicParameters* inputHadParam ) :
+  theHadronicParameters( inputHadParam )
+{
+  // Main directory for the whole hadronic
+  theDirectory = new G4UIdirectory( "/process/had/" );
+  theDirectory->SetGuidance( "Control of general hadronic physics parameters and choices." );
+
+  // This command setup the overall verbose level for hadronics.
+  // It is the responsibility of all hadronic models, cross sections and processes to check
+  // this verbose level and behave consistently: in particular, if the level is "0" there
+  // should be no print out regardless of their eventual internal (local) verbosity level.
+  theVerboseCmd = new G4UIcmdWithAnInteger( "/process/had/verbose", this );
+  theVerboseCmd->SetGuidance( "Set verbose level: 0 (minimum), 1 (default), 2 (higher), ... (even higher)" );
+  theVerboseCmd->SetParameterName( "VerboseLevel", true );
+  theVerboseCmd->SetDefaultValue( 1 );
+  theVerboseCmd->SetRange( "VerboseLevel>=0" );
+}
+
+
+G4HadronicParametersMessenger::~G4HadronicParametersMessenger() {
+  delete theDirectory;
+  delete theVerboseCmd;
+}
+
+
+void G4HadronicParametersMessenger::SetNewValue( G4UIcommand *command, G4String newValues ) {
+  if ( command == theVerboseCmd ) {
+    // Note that the messenger updates only the verbose level of the class G4HadronicParameters:
+    // it is the responsibility of each hadronic model, cross section and process to check
+    // this verbose level and behave accordingly.
+    theHadronicParameters->SetVerboseLevel( theVerboseCmd->GetNewIntValue( newValues ) );
+  }
+}