| Geant4 Cross Reference |
1 // 1
2 // *******************************************
3 // * License and Disclaimer
4 // *
5 // * The Geant4 software is copyright of th
6 // * the Geant4 Collaboration. It is provided
7 // * conditions of the Geant4 Software License
8 // * LICENSE and available at http://cern.ch/
9 // * include a list of copyright holders.
10 // *
11 // * Neither the authors of this software syst
12 // * institutes,nor the agencies providing fin
13 // * work make any representation or warran
14 // * regarding this software system or assum
15 // * use. Please see the license in the file
16 // * for the full disclaimer and the limitatio
17 // *
18 // * This code implementation is the result
19 // * technical work of the GEANT4 collaboratio
20 // * By using, copying, modifying or distri
21 // * any work based on the software) you ag
22 // * use in resulting scientific publicati
23 // * acceptance of all terms of the Geant4 Sof
24 // *******************************************
25 //
26 //
27 //
28 // -------------------------------------------
29 // GEANT 4 class implementation
30 //
31 // ------------- GFlashShowerModelMesseng
32 //
33 // Author: Joanna Weng - 9.11.2004
34 // -------------------------------------------
35
36 #include "GFlashShowerModelMessenger.hh"
37
38 #include "G4Electron.hh"
39 #include "G4Positron.hh"
40 #include "G4SystemOfUnits.hh"
41 #include "G4UIcmdWithADouble.hh"
42 #include "G4UIcmdWithADoubleAndUnit.hh"
43 #include "G4UIcmdWithAString.hh"
44 #include "G4UIcmdWithAnInteger.hh"
45 #include "G4UIdirectory.hh"
46 #include "globals.hh"
47
48 #include "GFlashParticleBounds.hh"
49 #include "GFlashShowerModel.hh"
50
51 #include <iomanip>
52 #include <sstream>
53
54 GFlashShowerModelMessenger::GFlashShowerModelM
55 {
56 myParaDir = new G4UIdirectory("/GFlash/");
57 myParaDir->SetGuidance("Parametrisation cont
58 myModel = aModel;
59
60 FlagCmd = new G4UIcmdWithAnInteger("/GFlash/
61 FlagCmd->SetGuidance("Defines if GFlash is a
62 FlagCmd->SetParameterName("flag", false, fal
63
64 ContCmd = new G4UIcmdWithAnInteger("/GFlash/
65 ContCmd->SetGuidance("Defines if Containment
66 ContCmd->SetParameterName("flag", false, fal
67
68 StepInX0Cmd = new G4UIcmdWithADouble("/GFlas
69 StepInX0Cmd->SetGuidance("Defines step lengh
70 StepInX0Cmd->SetParameterName("flag", false,
71
72 EminCmd = new G4UIcmdWithADoubleAndUnit("/GF
73 EminCmd->SetGuidance("Set minimum kinetic en
74 EminCmd->SetParameterName("Emin", false, fal
75 EminCmd->SetDefaultUnit("GeV");
76 EminCmd->SetUnitCategory("Energy");
77 EminCmd->AvailableForStates(G4State_PreInit,
78
79 EmaxCmd = new G4UIcmdWithADoubleAndUnit("/GF
80 EmaxCmd->SetGuidance("Set maximum kinetic en
81 EmaxCmd->SetParameterName("Emax", false, fal
82 EmaxCmd->SetDefaultUnit("GeV");
83 EmaxCmd->SetUnitCategory("Energy");
84 EmaxCmd->AvailableForStates(G4State_PreInit,
85
86 EkillCmd = new G4UIcmdWithADoubleAndUnit("/G
87 EkillCmd->SetGuidance("Set maximum kinetic e
88 EkillCmd->SetParameterName("Ekill", false, f
89 EkillCmd->SetDefaultUnit("GeV");
90 EkillCmd->SetUnitCategory("Energy");
91 EkillCmd->AvailableForStates(G4State_PreInit
92 }
93
94 GFlashShowerModelMessenger::~GFlashShowerModel
95 {
96 delete ContCmd;
97 delete FlagCmd;
98 delete StepInX0Cmd;
99 delete EminCmd;
100 delete EmaxCmd;
101 delete EkillCmd;
102 }
103
104 void GFlashShowerModelMessenger::SetNewValue(G
105 {
106 if (command == FlagCmd) {
107 myModel->SetFlagParamType(FlagCmd->GetNewI
108 this->GetCurrentValue(command);
109 }
110 if (command == ContCmd) {
111 myModel->SetFlagParticleContainment(ContCm
112 this->GetCurrentValue(command);
113 }
114 if (command == StepInX0Cmd) {
115 myModel->SetStepInX0(StepInX0Cmd->GetNewDo
116 this->GetCurrentValue(command);
117 }
118
119 else if (command == EminCmd) {
120 myModel->PBound->SetMinEneToParametrise(*G
121 Em
122 this->GetCurrentValue(command);
123 }
124
125 else if (command == EmaxCmd) {
126 myModel->PBound->SetMaxEneToParametrise(*G
127 Em
128 this->GetCurrentValue(command);
129 }
130
131 else if (command == EkillCmd) {
132 myModel->PBound->SetEneToKill(*G4Electron:
133 EkillCmd->Ge
134 this->GetCurrentValue(command);
135 }
136 }
137
138 G4String GFlashShowerModelMessenger::GetCurren
139 {
140 G4String returnValue(1, '\0');
141 std::ostringstream os;
142
143 if (command == FlagCmd) {
144 os << "/GFlash/flag " << myModel->GetFlagP
145 returnValue = G4String(os.str());
146 }
147
148 else if (command == EkillCmd) {
149 os << "/GFlash/Ekill " << myModel->PBound-
150 << " GeV" << '\0';
151 returnValue = G4String(os.str());
152 }
153
154 else if (command == EminCmd) {
155 os << "/GFlash/Emin "
156 << myModel->PBound->GetMinEneToParametr
157 << '\0';
158 returnValue = G4String(os.str());
159 }
160
161 else if (command == EmaxCmd) {
162 os << "/GFlash/Emax "
163 << myModel->PBound->GetMaxEneToParametr
164 << '\0';
165 returnValue = G4String(os.str());
166 }
167
168 return returnValue;
169 }
170