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 /// \file electromagnetic/TestEm6/src/PhysicsL 27 /// \brief Implementation of the PhysicsListMe 28 // 29 // 30 //....oooOO0OOooo........oooOO0OOooo........oo 31 //....oooOO0OOooo........oooOO0OOooo........oo 32 33 #include "PhysicsListMessenger.hh" 34 35 #include "PhysicsList.hh" 36 37 #include "G4UIcmdWithADouble.hh" 38 #include "G4UIcmdWithAString.hh" 39 #include "G4UIdirectory.hh" 40 41 //....oooOO0OOooo........oooOO0OOooo........oo 42 43 PhysicsListMessenger::PhysicsListMessenger(Phy 44 : G4UImessenger(), 45 fPhysList(physL), 46 fPhysDir(0), 47 fGammaToMuPairFacCmd(0), 48 fAnnihiToMuPairFacCmd(0), 49 fAnnihiToHadronFacCmd(0), 50 fListCmd(0) 51 { 52 fPhysDir = new G4UIdirectory("/testem/phys/" 53 fPhysDir->SetGuidance("physics list commands 54 55 fGammaToMuPairFacCmd = new G4UIcmdWithADoubl 56 fGammaToMuPairFacCmd->SetGuidance( 57 "Set factor to artificially increase the G 58 fGammaToMuPairFacCmd->SetParameterName("Gamm 59 fGammaToMuPairFacCmd->SetRange("GammaToMuPai 60 fGammaToMuPairFacCmd->AvailableForStates(G4S 61 62 fAnnihiToMuPairFacCmd = new G4UIcmdWithADoub 63 fAnnihiToMuPairFacCmd->SetGuidance( 64 "Set factor to artificially increase the A 65 fAnnihiToMuPairFacCmd->SetParameterName("Ann 66 fAnnihiToMuPairFacCmd->SetRange("AnnihiToMuP 67 fAnnihiToMuPairFacCmd->AvailableForStates(G4 68 69 fAnnihiToHadronFacCmd = new G4UIcmdWithADoub 70 fAnnihiToHadronFacCmd->SetGuidance( 71 "Set factor to artificially increase the A 72 fAnnihiToHadronFacCmd->SetParameterName("Ann 73 fAnnihiToHadronFacCmd->SetRange("AnnihiToHad 74 fAnnihiToHadronFacCmd->AvailableForStates(G4 75 76 fListCmd = new G4UIcmdWithAString("/testem/p 77 fListCmd->SetGuidance("Add modula physics li 78 fListCmd->SetParameterName("PList", false); 79 fListCmd->AvailableForStates(G4State_PreInit 80 } 81 82 //....oooOO0OOooo........oooOO0OOooo........oo 83 84 PhysicsListMessenger::~PhysicsListMessenger() 85 { 86 delete fGammaToMuPairFacCmd; 87 delete fAnnihiToMuPairFacCmd; 88 delete fAnnihiToHadronFacCmd; 89 delete fPhysDir; 90 delete fListCmd; 91 } 92 93 //....oooOO0OOooo........oooOO0OOooo........oo 94 95 void PhysicsListMessenger::SetNewValue(G4UIcom 96 { 97 if (command == fGammaToMuPairFacCmd) { 98 fPhysList->SetGammaToMuPairFac(fGammaToMuP 99 } 100 101 if (command == fAnnihiToMuPairFacCmd) { 102 fPhysList->SetAnnihiToMuPairFac(fAnnihiToM 103 } 104 105 if (command == fAnnihiToHadronFacCmd) { 106 fPhysList->SetAnnihiToHadronFac(fAnnihiToH 107 } 108 109 if (command == fListCmd) { 110 fPhysList->AddPhysicsList(newValue); 111 } 112 } 113 114 //....oooOO0OOooo........oooOO0OOooo........oo 115