lars/geant4
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Import Geant4 10.7.0 source tree

Browse Source
This commit is contained in:
Gabriele Cosmo
2020-12-04 12:30:43 +01:00
parent 67ba86d073
commit dab42d2018
3770 changed files with 226369 additions and 286486 deletions
Download Patch File Download Diff File Expand all files Collapse all files
source/processes/hadronic/management/src/G4HadronicEPTestMessenger.cc
+72 -23
View File
@@ -29,17 +29,32 @@
#include "G4UIcmdWithAnInteger.hh"
#include "G4UIcmdWithADouble.hh"
#include "G4UIcmdWithADoubleAndUnit.hh"
#include "G4HadronicException.hh"
G4HadronicEPTestMessenger::G4HadronicEPTestMessenger(G4HadronicProcessStore* theStore)
:theProcessStore(theStore)
{
// Main directory for control of the e/p test
heptstDirectory = new G4UIdirectory("/heptst/");
heptstDirectory->SetGuidance("Controls for the hadronic energy/momentum test");
old_heptstDirectory = new G4UIdirectory("/heptst/"); // To be removed in G4 11.0
old_heptstDirectory->SetGuidance("Controls for the hadronic energy/momentum test");
heptstDirectory = new G4UIdirectory("/process/had/heptst/");
heptstDirectory->SetGuidance("Controls for the hadronic energy/momentum test");
// Command to set level of detail reported upon e/p non-conservation
reportLvlCmd = new G4UIcmdWithAnInteger("/heptst/reportLevel",this);
old_reportLvlCmd = new G4UIcmdWithAnInteger("/heptst/reportLevel",this); // To be removed in G4 11.0
old_reportLvlCmd->SetGuidance("Set level of detail reported upon E/p non-conservation");
old_reportLvlCmd->SetGuidance(" 0 - (default) no reporting ");
old_reportLvlCmd->SetGuidance(" 1 - report only when E/p not conserved ");
old_reportLvlCmd->SetGuidance(" 2 - report regardless of E/p conservation ");
old_reportLvlCmd->SetGuidance(" 3 - report only when E/p not conserved, with names, limits ");
old_reportLvlCmd->SetGuidance(" 4 - report regardless of E/p conservation, with names, limits ");
old_reportLvlCmd->SetParameterName("OldReportLevel",true);
old_reportLvlCmd->SetDefaultValue(0);
old_reportLvlCmd->SetRange("OldReportLevel >= 0 && OldReportLevel < 5");
reportLvlCmd = new G4UIcmdWithAnInteger("/process/had/heptst/reportLevel",this);
reportLvlCmd->SetGuidance("Set level of detail reported upon E/p non-conservation");
reportLvlCmd->SetGuidance(" 0 - (default) no reporting ");
reportLvlCmd->SetGuidance(" 1 - report only when E/p not conserved ");
@@ -49,41 +64,75 @@ G4HadronicEPTestMessenger::G4HadronicEPTestMessenger(G4HadronicProcessStore* the
reportLvlCmd->SetParameterName("ReportLevel",true);
reportLvlCmd->SetDefaultValue(0);
reportLvlCmd->SetRange("ReportLevel >= 0 && ReportLevel < 5");
// Set the relative energy non-conservation level for the process
old_procRelLvlCmd = new G4UIcmdWithADouble("/heptst/processRelLevel",this); // To be removed in G4 11.0
old_procRelLvlCmd->SetGuidance("Set relative level of allowed energy non-conservation");
old_procRelLvlCmd->SetParameterName("OlProcessRelLevel",true);
old_procRelLvlCmd->SetDefaultValue(-1.0);
procRelLvlCmd = new G4UIcmdWithADouble("/process/had/heptst/processRelLevel",this);
procRelLvlCmd->SetGuidance("Set relative level of allowed energy non-conservation");
procRelLvlCmd->SetParameterName("ProcessRelLevel",true);
procRelLvlCmd->SetDefaultValue(-1.0);
// Set the absolute energy non-conservation level for the process
procAbsLvlCmd = new G4UIcmdWithADoubleAndUnit("/heptst/processAbsLevel",this);
old_procAbsLvlCmd = new G4UIcmdWithADoubleAndUnit("/heptst/processAbsLevel",this); // To be removed in G4 11.0
old_procAbsLvlCmd->SetGuidance("Set absolute energy level (with unit) of allowed energy non-conservation");
old_procAbsLvlCmd->SetParameterName("OldProcessAbsLevel",true);
old_procAbsLvlCmd->SetDefaultValue(-1.0);
old_procAbsLvlCmd->SetUnitCategory("Energy");
procAbsLvlCmd = new G4UIcmdWithADoubleAndUnit("/process/had/heptst/processAbsLevel",this);
procAbsLvlCmd->SetGuidance("Set absolute energy level (with unit) of allowed energy non-conservation");
procAbsLvlCmd->SetParameterName("ProcessAbsLevel",true);
procAbsLvlCmd->SetDefaultValue(-1.0);
procAbsLvlCmd->SetUnitCategory("Energy");
// Set the relative energy non-conservation level for the process
procRelLvlCmd = new G4UIcmdWithADouble("/heptst/processRelLevel",this);
procRelLvlCmd->SetGuidance("Set relative level of allowed energy non-conservation");
procRelLvlCmd->SetParameterName("ProcessRelLevel",true);
procRelLvlCmd->SetDefaultValue(-1.0);
}
G4HadronicEPTestMessenger::~G4HadronicEPTestMessenger()
{
delete heptstDirectory;
delete reportLvlCmd;
delete procAbsLvlCmd;
delete procRelLvlCmd;
delete old_heptstDirectory; // To be removed in G4 11.0
delete heptstDirectory;
delete old_reportLvlCmd; // To be removed in G4 11.0
delete reportLvlCmd;
delete old_procRelLvlCmd; // To be removed in G4 11.0
delete procRelLvlCmd;
delete old_procAbsLvlCmd; // To be removed in G4 11.0
delete procAbsLvlCmd;
}
void G4HadronicEPTestMessenger::SetNewValue(G4UIcommand* command, G4String newValue)
{
if (command==reportLvlCmd) {
theProcessStore->SetEpReportLevel(reportLvlCmd->GetNewIntValue(newValue) );
} else if(command==procRelLvlCmd) {
// G4double absval = theHadronicProcess->GetEnergyMomentumCheckLevels().second;
theProcessStore->SetProcessRelLevel(procRelLvlCmd->GetNewDoubleValue(newValue) );
} else if(command==procAbsLvlCmd) {
// G4double relval = theHadronicProcess->GetEnergyMomentumCheckLevels().first;
theProcessStore->SetProcessAbsLevel(procAbsLvlCmd->GetNewDoubleValue(newValue) );
// Old commands to be removed in G4 11.0
if ( command == old_reportLvlCmd ) {
theProcessStore->SetEpReportLevel( old_reportLvlCmd->GetNewIntValue( newValue ) );
G4ExceptionDescription ed;
ed << "This command is valid but deprecated and will be replaced with the command:\n"
<< "/process/had/heptst/reportLevel in the next major release, Geant4 version 11.0";
G4Exception( "G4HadronicEPTestMessenger", "hadEPTestMessenger001", JustWarning, ed );
} else if ( command == old_procRelLvlCmd ) {
theProcessStore->SetProcessRelLevel( old_procRelLvlCmd->GetNewDoubleValue( newValue ) );
G4ExceptionDescription ed;
ed << "This command is valid but deprecated and will be replaced with the command:\n"
<< "/process/had/heptst/processRelLevel in the next major release, Geant4 version 11.0";
G4Exception( "G4HadronicEPTestMessenger", "hadEPTestMessenger002", JustWarning, ed );
} else if ( command == old_procAbsLvlCmd ) {
theProcessStore->SetProcessAbsLevel( old_procAbsLvlCmd->GetNewDoubleValue( newValue ) );
G4ExceptionDescription ed;
ed << "This command is valid but deprecated and will be replaced with the command:\n"
<< "/process/had/heptst/processAbsLevel in the next major release, Geant4 version 11.0";
G4Exception( "G4HadronicEPTestMessenger", "hadEPTestMessenger003", JustWarning, ed );
}
// New commands
if ( command == reportLvlCmd ) {
theProcessStore->SetEpReportLevel( reportLvlCmd->GetNewIntValue( newValue ) );
} else if ( command == procRelLvlCmd ) {
theProcessStore->SetProcessRelLevel( procRelLvlCmd->GetNewDoubleValue( newValue ) );
} else if ( command == procAbsLvlCmd ) {
theProcessStore->SetProcessAbsLevel( procAbsLvlCmd->GetNewDoubleValue( newValue ) );
}
}