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 // Authors: S.Guatelli, Matthew Large and A. M 27 // 28 29 #include "G4UImanager.hh" 30 #include "G4UIsession.hh" 31 32 #include "G4VisExecutive.hh" 33 #include "G4UIExecutive.hh" 34 35 #include "ICRP110PhantomConstruction.hh" 36 #include "ICRP110PhantomActionInitialization.h 37 #include "G4ScoringManager.hh" 38 #include "ICRP110UserScoreWriter.hh" 39 #include "ICRP110PhantomVisAction.hh" 40 #include "QGSP_BIC_HP.hh" 41 #include "G4RunManagerFactory.hh" 42 43 int main(int argc,char** argv) 44 { 45 auto* runManager = G4RunManagerFactory::Creat 46 G4int nThreads = 4; 47 runManager->SetNumberOfThreads(nThreads); 48 49 // Activate UI-command base scorer 50 G4ScoringManager* scorerManager = G4ScoringMa 51 scorerManager -> SetVerboseLevel(1); 52 53 //============================================ 54 // Un-comment this line for user defined score 55 scorerManager -> SetScoreWriter(new ICRP11 56 //============================================ 57 58 // Set mandatory initialization classes 59 auto userPhantom = new ICRP110PhantomConstru 60 runManager -> SetUserInitialization(userPhan 61 62 runManager -> SetUserInitialization(new QGSP 63 64 // runManager -> SetUserInitialization(new IC 65 66 G4VisManager* visManager = new G4VisExecutiv 67 visManager->RegisterRunDurationUserVisAction 68 ("phantom",new ICRP110PhantomVisAction(userP 69 visManager -> Initialize(); 70 71 auto actions = new ICRP110PhantomActionIniti 72 runManager -> SetUserInitialization(actions) 73 74 G4UImanager* UImanager = G4UImanager::GetUIp 75 76 if (argc==1) // Define UI session for inte 77 { 78 G4cout << " UI session starts ..." << G4 79 auto ui = new G4UIExecutive(argc, argv); 80 UImanager -> ApplyCommand("/control/exec 81 ui -> SessionStart(); 82 delete ui; 83 } 84 else // Batch mode 85 { 86 G4String command = "/control/execute "; 87 G4String fileName = argv[1]; 88 UImanager -> ApplyCommand(command+fileNa 89 } 90 91 delete visManager; 92 93 delete runManager; 94 95 return 0; 96 } 97