Geant4
9.6.p02
Main Page
Related Pages
Modules
Namespaces
Classes
Files
File List
File Members
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Friends
Macros
Groups
Pages
geant4_9_6_p02
examples
extended
electromagnetic
TestEm6
src
PhysicsListMessenger.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
//
28
//
29
// $Id$
30
//
31
//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
32
//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
33
34
#include "PhysicsListMessenger.hh"
35
36
#include "PhysicsList.hh"
37
#include "
G4UIdirectory.hh
"
38
#include "
G4UIcmdWithADouble.hh
"
39
40
//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
41
42
PhysicsListMessenger::PhysicsListMessenger
(
PhysicsList
* physL)
43
:fPhysList(physL)
44
{
45
fPhysDir =
new
G4UIdirectory
(
"/testem/phys/"
);
46
fPhysDir->
SetGuidance
(
"physics list commands"
);
47
48
fGammaToMuPairFacCmd=
new
G4UIcmdWithADouble
49
(
"/testem/phys/SetGammaToMuPairFac"
,
this
);
50
fGammaToMuPairFacCmd->
SetGuidance
(
51
"Set factor to artificially increase the GammaToMuPair cross section"
);
52
fGammaToMuPairFacCmd->
SetParameterName
(
"GammaToMuPairFac"
,
false
);
53
fGammaToMuPairFacCmd->
SetRange
(
"GammaToMuPairFac>0.0"
);
54
fGammaToMuPairFacCmd->
AvailableForStates
(
G4State_PreInit
,
G4State_Idle
);
55
56
fAnnihiToMuPairFacCmd=
new
G4UIcmdWithADouble
57
(
"/testem/phys/SetAnnihiToMuPairFac"
,
this
);
58
fAnnihiToMuPairFacCmd->
SetGuidance
(
59
"Set factor to artificially increase the AnnihiToMuPair cross section"
);
60
fAnnihiToMuPairFacCmd->
SetParameterName
(
"AnnihiToMuPairFac"
,
false
);
61
fAnnihiToMuPairFacCmd->
SetRange
(
"AnnihiToMuPairFac>0.0"
);
62
fAnnihiToMuPairFacCmd->
AvailableForStates
(
G4State_PreInit
,
G4State_Idle
);
63
64
fAnnihiToHadronFacCmd=
new
G4UIcmdWithADouble
65
(
"/testem/phys/SetAnnihiToHadronFac"
,
this
);
66
fAnnihiToHadronFacCmd->
SetGuidance
(
67
"Set factor to artificially increase the AnnihiToHadrons cross section"
);
68
fAnnihiToHadronFacCmd->
SetParameterName
(
"AnnihiToHadFac"
,
false
);
69
fAnnihiToHadronFacCmd->
SetRange
(
"AnnihiToHadFac>0.0"
);
70
fAnnihiToHadronFacCmd->
AvailableForStates
(
G4State_PreInit
,
G4State_Idle
);
71
}
72
73
//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
74
75
PhysicsListMessenger::~PhysicsListMessenger
()
76
{
77
delete
fGammaToMuPairFacCmd;
78
delete
fAnnihiToMuPairFacCmd;
79
delete
fAnnihiToHadronFacCmd;
80
delete
fPhysDir;
81
}
82
83
//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
84
85
void
PhysicsListMessenger::SetNewValue
(
G4UIcommand
* command,
86
G4String
newValue)
87
{
88
if
(command == fGammaToMuPairFacCmd)
89
{ fPhysList->
SetGammaToMuPairFac
(
90
fGammaToMuPairFacCmd->
GetNewDoubleValue
(newValue));}
91
92
if
( command == fAnnihiToMuPairFacCmd)
93
{ fPhysList->
SetAnnihiToMuPairFac
(
94
fAnnihiToMuPairFacCmd->
GetNewDoubleValue
(newValue));}
95
96
if
( command == fAnnihiToHadronFacCmd)
97
{ fPhysList->
SetAnnihiToHadronFac
(
98
fAnnihiToHadronFacCmd->
GetNewDoubleValue
(newValue));}
99
}
100
101
//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
Generated on Sat May 25 2013 14:31:58 for Geant4 by
1.8.4