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 // Code developed by 27 // Silvia Pozzi (1), silvia.pozzi@iss.it 28 // Barbara Caccia (1), barbara.caccia@iss.it 29 // Carlo Mancini Terracciano (2), carlo.mancin 30 // (1) Istituto Superiore di Sanita' and INFN 31 // (2) Univ. La Sapienza and INFN Roma, Italy 32 33 #include "PrimaryGeneratorMessenger.hh" 34 35 PrimaryGeneratorMessenger::~PrimaryGeneratorMe 36 { 37 delete cmdGunRadius; 38 delete cmdGunMeanEnergy; 39 delete cmdGunStdEnergy; 40 } 41 42 PrimaryGeneratorMessenger::PrimaryGeneratorMes 43 : primaryGenPointer(myGun), cmdGunRadius(nullp 44 cmdGunMeanEnergy(nullptr), cmdGunStdEnergy(n 45 { 46 cmdGunRadius = new G4UIcmdWithADoubleAndUnit 47 cmdGunRadius -> SetDefaultUnit("mm"); 48 cmdGunRadius -> SetDefaultValue(1.); 49 primaryGenPointer -> SetGunRadius(1.*mm); 50 51 cmdGunMeanEnergy = new G4UIcmdWithADoubleAnd 52 cmdGunMeanEnergy -> SetDefaultUnit("MeV"); 53 cmdGunMeanEnergy -> SetDefaultValue(12.); 54 primaryGenPointer -> SetGunMeanEnergy(12.*Me 55 56 cmdGunStdEnergy = new G4UIcmdWithADoubleAndU 57 cmdGunStdEnergy -> SetDefaultUnit("MeV"); 58 cmdGunStdEnergy -> SetDefaultValue(0.127); 59 primaryGenPointer -> SetGunStdEnergy(0.127*M 60 } 61 62 void PrimaryGeneratorMessenger::SetNewValue(G4 63 { 64 if ( cmd == cmdGunRadius ) 65 { 66 cmdGunRadius -> GetNewUnitValue(newValue); 67 primaryGenPointer -> SetGunRadius(cmdGunRa 68 } 69 else if ( cmd == cmdGunMeanEnergy ) 70 { 71 cmdGunMeanEnergy -> GetNewUnitValue(newVal 72 primaryGenPointer -> SetGunMeanEnergy(cmdG 73 } 74 else if ( cmd == cmdGunStdEnergy ) 75 { 76 cmdGunStdEnergy -> GetNewUnitValue(newValu 77 primaryGenPointer -> SetGunStdEnergy(cmdGu 78 } 79 else 80 G4cerr << "PrimaryGeneratorMessenger::SetN 81 82 } 83