Import Geant4 11.2.0 source tree

This commit is contained in:
Gabriele Cosmo
2023-12-08 10:43:34 +01:00
parent dd1f179cda
commit 860a2b92bf
3962 changed files with 139318 additions and 164259 deletions
@@ -28,79 +28,77 @@
// Author: H. Kurashige, 13 June 1997 - 1st version created
// --------------------------------------------------------------------
#include "G4ios.hh"
#include <iomanip> // Include from 'system'
#include "G4ParticleMessenger.hh"
#include "G4UImanager.hh"
#include "G4UIdirectory.hh"
#include "G4UIcmdWithAString.hh"
#include "G4UIcmdWithAnInteger.hh"
#include "G4UIcmdWithoutParameter.hh"
#include "G4ParticleTable.hh"
#include "G4IonTable.hh"
#include "G4ParticleDefinition.hh"
#include "G4ParticlePropertyMessenger.hh"
#include "G4ParticleTable.hh"
#include "G4UIcmdWithAString.hh"
#include "G4UIcmdWithAnInteger.hh"
#include "G4UIcmdWithoutParameter.hh"
#include "G4UIdirectory.hh"
#include "G4UImanager.hh"
#include "G4ios.hh"
#include <iomanip> // Include from 'system'
// --------------------------------------------------------------------
G4ParticleMessenger::G4ParticleMessenger(G4ParticleTable* pTable)
{
// get the pointer to ParticleTable
if ( pTable == nullptr)
{
if (pTable == nullptr) {
theParticleTable = G4ParticleTable::GetParticleTable();
}
else
{
else {
theParticleTable = pTable;
}
// Directory /particle/
thisDirectory = new G4UIdirectory("/particle/");
thisDirectory->SetGuidance("Particle control commands.");
// Command /particle/select
selectCmd = new G4UIcmdWithAString("/particle/select",this);
selectCmd = new G4UIcmdWithAString("/particle/select", this);
selectCmd->SetGuidance("Select particle ");
selectCmd->SetDefaultValue("none");
selectCmd->SetParameterName("particle name", false);
selectCmd->AvailableForStates(G4State_PreInit,G4State_Idle);
selectCmd->AvailableForStates(G4State_PreInit, G4State_Idle);
// Command /particle/list
listCmd = new G4UIcmdWithAString("/particle/list",this);
listCmd = new G4UIcmdWithAString("/particle/list", this);
listCmd->SetGuidance("List name of particles.");
listCmd->SetGuidance(" all(default)/lepton/baryon/meson/nucleus/quarks");
listCmd->SetParameterName("particle type", true);
listCmd->SetDefaultValue("all");
listCmd->SetCandidates("all lepton baryon meson nucleus quarks");
listCmd->AvailableForStates(G4State_PreInit,G4State_Idle);
listCmd->AvailableForStates(G4State_PreInit, G4State_Idle);
// Command /particle/find
findCmd = new G4UIcmdWithAnInteger("/particle/find",this);
// Command /particle/find
findCmd = new G4UIcmdWithAnInteger("/particle/find", this);
findCmd->SetGuidance("Find particle by encoding");
findCmd->SetDefaultValue(0);
findCmd->SetParameterName("encoding", false);
findCmd->AvailableForStates(G4State_PreInit,G4State_Idle);
findCmd->AvailableForStates(G4State_PreInit, G4State_Idle);
// Command /particle/createAllIon
createAllIonCmd = new G4UIcmdWithoutParameter("/particle/createAllIon",this);
createAllIonCmd = new G4UIcmdWithoutParameter("/particle/createAllIon", this);
createAllIonCmd->SetGuidance("Create All ions (ground state)");
createAllIonCmd->AvailableForStates(G4State_Idle);
createAllIonCmd->SetToBeBroadcasted(false);
// Command /particle/createAllIsomer
createAllIsomerCmd = new G4UIcmdWithoutParameter("/particle/createAllIsomer",this);
createAllIsomerCmd = new G4UIcmdWithoutParameter("/particle/createAllIsomer", this);
createAllIsomerCmd->SetGuidance("Create All isomers");
createAllIsomerCmd->AvailableForStates(G4State_Idle);
createAllIsomerCmd->SetToBeBroadcasted(false);
// -- particle/property/Verbose ---
verboseCmd = new G4UIcmdWithAnInteger("/particle/verbose",this);
verboseCmd = new G4UIcmdWithAnInteger("/particle/verbose", this);
verboseCmd->SetGuidance("Set Verbose level of particle table.");
verboseCmd->SetGuidance(" 0 : Silent (default)");
verboseCmd->SetGuidance(" 1 : Display warning messages");
verboseCmd->SetGuidance(" 2 : Display more");
verboseCmd->SetParameterName("verbose_level",true);
verboseCmd->SetParameterName("verbose_level", true);
verboseCmd->SetDefaultValue(0);
verboseCmd->SetRange("verbose_level >=0");
@@ -108,12 +106,11 @@ G4ParticleMessenger::G4ParticleMessenger(G4ParticleTable* pTable)
fParticlePropertyMessenger = new G4ParticlePropertyMessenger(theParticleTable);
}
// --------------------------------------------------------------------
G4ParticleMessenger::~G4ParticleMessenger()
{
delete fParticlePropertyMessenger;
delete listCmd;
delete listCmd;
delete selectCmd;
delete findCmd;
delete createAllIonCmd;
@@ -123,115 +120,97 @@ G4ParticleMessenger::~G4ParticleMessenger()
delete thisDirectory;
}
// --------------------------------------------------------------------
void G4ParticleMessenger::SetNewValue(G4UIcommand* command, G4String newValues)
{
if( command==listCmd )
{
if (command == listCmd) {
// Command /particle/List
G4int counter = 0;
G4ParticleTable::G4PTblDicIterator *piter = theParticleTable->GetIterator();
piter -> reset();
while( (*piter)() ) // Loop checking, 09.08.2015, K.Kurashige
G4ParticleTable::G4PTblDicIterator* piter = theParticleTable->GetIterator();
piter->reset();
while ((*piter)()) // Loop checking, 09.08.2015, K.Kurashige
{
G4ParticleDefinition* particle = piter->value();
if ((newValues=="all") || (newValues==particle->GetParticleType()))
{
if ((newValues == "all") || (newValues == particle->GetParticleType())) {
G4cout << std::setw(19) << particle->GetParticleName();
if ((counter++)%4 == 3)
{
if ((counter++) % 4 == 3) {
G4cout << G4endl;
}
else
{
else {
G4cout << ",";
}
}
}
G4cout << G4endl;
if (counter == 0) { G4cout << newValues << " is not found " << G4endl; }
if (counter == 0) {
G4cout << newValues << " is not found " << G4endl;
}
// Command /particle/select
// set candidate List
G4String candidates("none");
piter -> reset();
while( (*piter)() ) // Loop checking, 09.08.2015, K.Kurashige
piter->reset();
while ((*piter)()) // Loop checking, 09.08.2015, K.Kurashige
{
G4ParticleDefinition* particle = piter->value();
candidates += " " + particle->GetParticleName();
}
selectCmd->SetCandidates((const char *)(candidates));
selectCmd->SetCandidates((const char*)(candidates));
}
else if( command==selectCmd )
{
else if (command == selectCmd) {
// Command /particle/select
theParticleTable->SelectParticle(newValues);
}
else if( command==findCmd )
{
else if (command == findCmd) {
// Command /particle/find
G4ParticleDefinition* tmp
= theParticleTable->FindParticle( findCmd->GetNewIntValue(newValues));
if(tmp == nullptr)
{
G4cout << "Unknown particle [" << newValues << "]. Command ignored."
<< G4endl;
G4ParticleDefinition* tmp = theParticleTable->FindParticle(findCmd->GetNewIntValue(newValues));
if (tmp == nullptr) {
G4cout << "Unknown particle [" << newValues << "]. Command ignored." << G4endl;
}
else
{
else {
G4cout << tmp->GetParticleName() << G4endl;
tmp->DumpTable();
}
}
else if( command==createAllIonCmd )
{
else if (command == createAllIonCmd) {
// Command /particle/createAllIon
theParticleTable->GetIonTable()->CreateAllIon();
}
else if( command==createAllIsomerCmd )
{
else if (command == createAllIsomerCmd) {
// Command /particle/createAllIsomer
theParticleTable->GetIonTable()->CreateAllIsomer();
}
else if( command==verboseCmd )
{
else if (command == verboseCmd) {
// Command /particle/verbose
theParticleTable->SetVerboseLevel(verboseCmd->GetNewIntValue(newValues));
}
}
}
// --------------------------------------------------------------------
G4String G4ParticleMessenger::GetCurrentValue(G4UIcommand* command)
{
if( command==selectCmd )
{
if (command == selectCmd) {
// Command /particle/select
// set candidate List
G4String candidates("none");
G4ParticleTable::G4PTblDicIterator* piter = theParticleTable->GetIterator();
piter -> reset();
while( (*piter)() ) // Loop checking, 09.08.2015, K.Kurashige
piter->reset();
while ((*piter)()) // Loop checking, 09.08.2015, K.Kurashige
{
G4ParticleDefinition *particle = piter->value();
G4ParticleDefinition* particle = piter->value();
candidates += " " + particle->GetParticleName();
}
selectCmd->SetCandidates((const char *)(candidates));
selectCmd->SetCandidates((const char*)(candidates));
static const G4String noName("none");
// current value
if(currentParticle == nullptr)
{
// no particle is selected. return null
if (currentParticle == nullptr) {
// no particle is selected. return null
return noName;
}
return currentParticle->GetParticleName();
return currentParticle->GetParticleName();
}
if( command==verboseCmd )
{
if (command == verboseCmd) {
// Command /particle/verbose
return verboseCmd->ConvertToString(theParticleTable->GetVerboseLevel());
}