Geant4  10.03.p03
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
G4ParticleHPMessenger.cc
Go to the documentation of this file.
1 //
2 // ********************************************************************
3 // * License and Disclaimer *
4 // * *
5 // * The Geant4 software is copyright of the Copyright Holders of *
6 // * the Geant4 Collaboration. It is provided under the terms and *
7 // * conditions of the Geant4 Software License, included in the file *
8 // * LICENSE and available at http://cern.ch/geant4/license . These *
9 // * include a list of copyright holders. *
10 // * *
11 // * Neither the authors of this software system, nor their employing *
12 // * institutes,nor the agencies providing financial support for this *
13 // * work make any representation or warranty, express or implied, *
14 // * regarding this software system or assume any liability for its *
15 // * use. Please see the license in the file LICENSE and URL above *
16 // * for the full disclaimer and the limitation of liability. *
17 // * *
18 // * This code implementation is the result of the scientific and *
19 // * technical work of the GEANT4 collaboration. *
20 // * By using, copying, modifying or distributing the software (or *
21 // * any work based on the software) you agree to acknowledge its *
22 // * use in resulting scientific publications, and indicate your *
23 // * acceptance of all terms of the Geant4 Software license. *
24 // ********************************************************************
25 //
26 #include "G4ParticleHPMessenger.hh"
27 #include "G4ParticleHPManager.hh"
28 
29 #include "G4UIdirectory.hh"
30 #include "G4UIcmdWithAString.hh"
31 #include "G4UIcmdWithAnInteger.hh"
32 
34 :manager(man)
35 {
36  ParticleHPDir = new G4UIdirectory( "/process/had/particle_hp/" );
37  ParticleHPDir->SetGuidance( "UI commands of ParticleHP" );
38 
39  PhotoEvaCmd = new G4UIcmdWithAString("/process/had/particle_hp/use_photo_evaporation",this);
40  PhotoEvaCmd->SetGuidance(" Force the use of the Photon Evaporation model, instead of the neutron capture final state data.");
41  PhotoEvaCmd->SetParameterName("choice",false);
42  PhotoEvaCmd->SetCandidates("true false");
44 
45  SkipMissingCmd = new G4UIcmdWithAString("/process/had/particle_hp/skip_missing_isotopes",this);
46  SkipMissingCmd->SetGuidance("Use only exact isotope data files, instead of allowing nearby isotope files to be used.");
47  SkipMissingCmd->SetGuidance("In this case if the exact file is not available, the cross section will be set to zero.");
48  SkipMissingCmd->SetParameterName("choice",false);
49  SkipMissingCmd->SetCandidates("true false");
51 
52  NeglectDopplerCmd = new G4UIcmdWithAString("/process/had/particle_hp/neglect_Doppler_broadening",this);
53  NeglectDopplerCmd->SetGuidance("Switch off the Doppler broadening due to the thermal motion of the target nucleus.");
54  NeglectDopplerCmd->SetGuidance("This option provides a significant CPU performance advantage.");
55  NeglectDopplerCmd->SetParameterName("choice",false);
56  NeglectDopplerCmd->SetCandidates("true false");
58 
59  DoNotAdjustFSCmd = new G4UIcmdWithAString("/process/had/particle_hp/do_not_adjust_final_state",this);
60  DoNotAdjustFSCmd->SetGuidance("Disable to adjust final state for getting better conservation.");
61  DoNotAdjustFSCmd->SetParameterName("choice",false);
62  DoNotAdjustFSCmd->SetCandidates("true false");
64 
65  ProduceFissionFragementCmd = new G4UIcmdWithAString("/process/had/particle_hp/produce_fission_fragment",this);
66  ProduceFissionFragementCmd->SetGuidance("Enable to generate fission fragments.");
67  ProduceFissionFragementCmd->SetParameterName("choice",false);
68  ProduceFissionFragementCmd->SetCandidates("true false");
69  ProduceFissionFragementCmd->AvailableForStates(G4State_PreInit,G4State_Idle);
70 
71  VerboseCmd = new G4UIcmdWithAnInteger("/process/had/particle_hp/verbose",this);
72  VerboseCmd->SetGuidance("Set Verbose level of ParticleHP package");
73  VerboseCmd->SetParameterName("verbose_level",true);
74  VerboseCmd->SetDefaultValue(1);
75  VerboseCmd->SetRange("verbose_level >=0");
77 }
78 
80 {
81  delete ParticleHPDir;
82  delete PhotoEvaCmd;
83  delete SkipMissingCmd;
84  delete NeglectDopplerCmd;
85  delete DoNotAdjustFSCmd;
86  delete ProduceFissionFragementCmd;
87  delete VerboseCmd;
88 }
89 
91 {
92  G4bool bValue=false;
93  if ( newValue == "true" ) bValue=true;
94 
95  if ( command == PhotoEvaCmd ) {
96  manager->SetUseOnlyPhotoEvaporation( bValue );
97  }
98  if ( command == SkipMissingCmd) {
99  manager->SetSkipMissingIsotopes( bValue );
100  }
101  if ( command == NeglectDopplerCmd ) {
102  manager->SetNeglectDoppler( bValue );
103  }
104  if ( command == DoNotAdjustFSCmd ) {
105  manager->SetDoNotAdjustFinalState( bValue );
106  }
107  if ( command == ProduceFissionFragementCmd ) {
108  manager->SetProduceFissionFragments( bValue );
109  }
110  if ( command == VerboseCmd ) {
111  manager->SetVerboseLevel( VerboseCmd->ConvertToInt( newValue ) );
112  }
113 }
114 
void SetParameterName(const char *theName, G4bool omittable, G4bool currentAsDefault=false)
void SetParameterName(const char *theName, G4bool omittable, G4bool currentAsDefault=false)
G4ParticleHPMessenger(G4ParticleHPManager *)
void SetDoNotAdjustFinalState(G4bool val)
void SetProduceFissionFragments(G4bool val)
void SetUseOnlyPhotoEvaporation(G4bool val)
bool G4bool
Definition: G4Types.hh:79
void SetRange(const char *rs)
Definition: G4UIcommand.hh:125
void SetGuidance(const char *aGuidance)
Definition: G4UIcommand.hh:161
void AvailableForStates(G4ApplicationState s1)
Definition: G4UIcommand.cc:240
static G4int ConvertToInt(const char *st)
Definition: G4UIcommand.cc:447
void SetNeglectDoppler(G4bool val)
void SetNewValue(G4UIcommand *, G4String)
void SetCandidates(const char *candidateList)
void SetDefaultValue(G4int defVal)
void SetSkipMissingIsotopes(G4bool val)